打開記事本 輸入：
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c ""說我是畜生，不說就20秒關你機，不信，試試···"" ", 0, True
Dim a
Do While (a <> "我是豬")
a = InputBox("說我是豬,就不關機，快撒，說 ""我是豬"" ", "說不說", "不說", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "早說就行了嘛"
Dim WSHshell
Set WSHshell = wscript.CreateObject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a", 0, True
MsgBox Chr(13) + Chr(13) + Chr(13) + "哈哈哈哈，真過癮"
以.vbe 格式保存就行了。。
打字慢的朋友 測試時最好複製 “我是豬”
以免造成重啟！ |
收藏
分享
讚
幹
分享
分享
