Question

恶作剧，让人自动关机的，求

发到我 邮箱 qq345479738

Answer 1

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /*/c shutdown -r -t 10 -c */""说你是猪，不说我就10秒钟关你机，不信，试试···"" ",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”的就行了

追问

可以发给我吗，这个我不会弄呀

追答

你把这个代码拷贝到.txt的文档里，然后在把后缀名“.txt”改为“.vbe”就OK了！！！！

Answer 2

这明摆着是要一个黑客软件嘛，这谁敢支持你啊，只有自己上黑客网站找找了。

追问

不是黑客软件的

追答

那你可以找一个自动定时的软件放他电脑上，给他定个时，悄悄地运行着就行了，这样的软件比较多，你搜索：定时软件，就能找到了。

Answer 3

120*23=2760平方米