Question

找一种整人软件,打开后不输入我是猪就会自动关机的那种

能简单点跟我说明白吗

Answer 1

这涉及DOS命令 代码：on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 240 -c ""你给劳资说328244152,，不说就一分钟关你机,不信,试试、"" ",0 ,true
dim a
do while(a <> "328244152")
a = inputbox ("说328244152,就不关机，快沙，你快说 ""328244152,""　","说不说","",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) + "哈哈哈哈，"以上就是DOS命令. 里面的文字可更改 复制-- 新键文本--粘贴--更改后缀为VBE--然后点击即可. 注意该答案为我的QQ. 当然 如猪是你完全雷同..你可将do while(a <> "328244152") 中的答案328244152 更换 这样别人按提示回答也会被关机. 不过这是DOS命令 没什么病毒可言 纯属娱乐