Question

谁有能让别人电脑自动关机或其他整人的程序啊！

必须是无病毒，能通过QQ发过去的、 没有恶意，只想整整对方。

Answer 1

VB整人小程序三个 第一个: 程序代码 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 55 -c ""快叫哥哥，不叫让你1分钟关机，不叫，试试···"" ",0 ,true dim a do while(a <> "哥哥") a = inputbox ("说我是猪,就不关机，快，说 ""哥哥"" ","叫不叫","不叫",7000,8000) msgbox chr(13) + chr(13) + chr(13) + a,5000,"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) + "又没让你叫老公" msgbox chr(13) + chr(13) + chr(13) + "记住了,锡尔丁,是你""哥哥""呀!" msgbox chr(13) + chr(13) + chr(13) + "知道叫我什么了么?" msgbox chr(13) + chr(13) + chr(13) + "可千万别叫错了!" msgbox chr(13) + chr(13) + chr(13) + "知道我是谁么?" msgbox chr(13) + chr(13) + chr(13) + "记住了""锡尔丁""?" msgbox chr(13) + chr(13) + chr(13) + "记住了么?~~~" msgbox chr(13) + chr(13) + chr(13) + "别恨我呀!恨我就是爱我!" msgbox chr(13) + chr(13) + chr(13) + "爱我就得叫我""老公""了!" msgbox chr(13) + chr(13) + chr(13) + "88,妹妹!" 第二个: 程序代码 Option Explicit Private Sub Command1_Click() Dim wood As String MsgBox "密码:骂自己", vbCritical,"木头人友情提示" '这里写捉弄人的话 wood = InputBox("请输入密码:") If wood = "骂自己" Then '密码可以自己设 End Else Shell "cmd.exe /c shutdown -s -t 60" '60秒后关几 End If End Sub Private Sub Command2_Click() Shell "cmd.exe /c shutdown -a" MsgBox "不怎么好玩", vbExclamation,"不玩了" End End Sub 第三个: 程序代码 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 40 -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) + "哈哈哈哈，你真听话!哈.." 用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY... 复制此代码新建文本文档命名为 整人.vbe（名字随便起，后缀名是vbe就可以了！）