Question

我记得有一个文件QQ上恶搞别人的，必须说“我是猪”要不会关机的

能发到我的邮箱里吗？1250066101@qq.com 急啊，如果可以，可以加分

Answer 1

n Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是猪，不喊就马上让你关机，不信，试试···"" ", 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) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"

-s -t 90 -c里的90是时间可改。建一个txt文本，把后缀改成vbs就行了

追问

发到我邮箱里嘛，可以加分。我怕弄错了。1250066101@qq.com

追答

已发送。

Answer 2

在网上搜，有VBS的编的小程序，