Trò đùa cuối cùng khi tắt máy tính: 3 bước

2024 Tác giả: John Day | [email protected]. Sửa đổi lần cuối: 2024-01-30 13:31

Đây là một kịch bản tắt.vbs mà tôi đã thực hiện như một trò đùa. Lý do tại sao nó lại mát mẻ như vậy, là vì thay vì tắt máy ngay lập tức, máy tính nói với bạn, cảnh báo bạn rằng máy tính sẽ tắt sau 10 giây, sau đó nó hiển thị một hình động nhỏ đếm ngược 5 giây cuối cùng trước đó. nó tắt máy tính.

Tôi cũng thích biên dịch nó thành.exe bằng công cụ chuyển đổi, nhưng bạn không cần phải làm điều này. Xem vbs Screen Lock của tôi, nếu bạn muốn biết cách thực hiện việc này. Ngoài ra còn có một số liên kết cho các trình biên tập vbs cũng như trong đó có thể hướng dẫn.

Nhưng không giống như khóa màn hình của tôi, chương trình này ngắn hơn rất nhiều, vì vậy tôi sẽ cố gắng giải thích nó tốt nhất có thể.

LƯU Ý: Nếu bạn chưa biết vbs, tôi khuyên bạn nên xem Có thể hướng dẫn này để bạn có hiểu biết cơ bản về một số chức năng được sử dụng là tập lệnh này.

Bước 1: Tập lệnh của tôi…

Đây là kịch bản..

Bạn sẽ phải xóa một trong các "s" ở cuối để nó kết thúc bằng "Shutdown.vbs" hoặc những gì bạn muốn miễn là nó kết thúc bằng.vbs.

Bước 2: Tập lệnh của tôi (giải thích)…

Vì vậy, biết tôi sẽ giải thích mã…

Dòng đầu tiên không thực sự làm được gì nhiều, nó chỉ giúp ích cho tôi khi tôi tạo kịch bản. Đây là ba dòng tiếp theo:

Dim IntCounterDim objWshShl: Đặt objWshShl = WScript. CreateObject ("wscript.shell") Dim objVoice: Đặt objVoice = WScript. CreateObject ("sapi.spvoice")

Dòng đầu tiên khai báo biến mà chúng ta sẽ sử dụng để điều khiển là For… Next Loop. Hai dòng mã tiếp theo khai báo và đặt 2 biến. objWshShl được sử dụng cho hộp thông báo và chạy các chức năng. objVoice được sử dụng để làm cho máy tính "nói chuyện".

Đây là ba dòng khác:

ShutdownWarning () TimedMessageBox () ShutdownComputer ()

Những dòng này chỉ gọi ba hàm có trong tập lệnh của chúng tôi.

Đây là chức năng đầu tiên trong là script.

Chức năng ShutdownWarning objVoice. Speak "Máy tính này sẽ tắt sau 10 giây." Chức năng kết thúc WScript. Sleep 5000

Chúng tôi không thực sự cần các hàm trong tập lệnh của mình, nhưng nó chỉ giúp giữ mọi thứ có tổ chức.

Vì vậy, tất cả những gì cần làm là nói câu giữa các dấu ngoặc kép và sau đó tạm dừng trong 5 giây trước khi tiếp tục đến chức năng tiếp theo.

Phần tiếp theo này có vẻ hơi phức tạp nhưng nó thực sự khá dễ hiểu:

Hàm TimedMessageBox For IntCounter = 5 To 1 Step -1 objWshShl. Popup "Máy tính sẽ tắt sau" _ & IntCounter & "seconds", 1, "Computer Shutdown", 0 + 48 Next End Chức năng

Vì vậy, đầu tiên nó tạo ra một hàm có tên là TimedMessageBox.

Sau đó, 4 dòng tiếp theo là vòng lặp For… Next. Vì vậy, vòng lặp này sẽ lặp lại năm lần đi xuống mỗi lần một vòng.

objWshShl. Popup "Máy tính sẽ tắt sau" _ & IntCounter & "giây", 1, "Máy tính tắt", 0 + 48

Đoạn mã này thực chất chỉ là một dòng mã, nó chỉ được tách thành một dòng khác bằng cách sử dụng ký tự "_" để dễ đọc hơn. Những gì mã này làm là nó tạo ra một thông báo bật lên kéo dài trong 1 giây hiển thị số giây còn lại cho đến khi tắt bằng cách sử dụng biến IntCounter.

Khi vòng lặp này lặp lại năm lần, nó sẽ tiếp tục với tập lệnh.

Đây là chức năng tiếp theo:

Hàm ShutdownComputer objWshShl. Run "Shutdown / s / f / t 0", 0 End Function

Tất cả điều này là tắt máy tính bằng lệnh chạy. Dưới đây là các công tắc được sử dụng: / s / f / t. / S có nghĩa là tắt máy, / f có nghĩa là đóng tất cả các ứng dụng mà không có cảnh báo, / t là thời gian tính bằng giây trước khi tắt máy. Bạn sẽ nhận thấy sau lệnh đó có dấu phẩy số 0 ", 0". Điều này chỉ làm cho nó để không có phụ tùng cmd nào nhấp nháy khi lệnh tắt được thực hiện.

Bước 3: Hy vọng điều này hữu ích

Hy vọng hướng dẫn này hữu ích nếu bạn cần thêm bất kỳ trợ giúp nào hoặc có bất kỳ câu hỏi nào, vui lòng pm cho tôi hoặc để lại bình luận.