有个文件打开就是爸爸快叫爸爸然后自动关机了

电脑教程032

有个文件打开就是爸爸快叫爸爸然后自动关机了,第1张

没事，这只是一个整人的程序，没有害的

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 600 -c ""快叫爸爸，不叫就关你机，不信，试试···"" ",true

dim a

do while(a <>"爸爸")

a = inputbox ("叫爸爸,就不关机，快撒，叫 ""爸爸"" ","说不说","不说",8000,7000)

msgbox chr(13) + a,"MsgBox"

loop

msgbox chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",true

msgbox chr(13) + "安逸的很嘛"

那是一个vbe格式整人的脚本 网上很多的

比如 ：

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 30 -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) + "哈哈哈哈，真过瘾"

复制大记事本 保存为所有格式 后缀是 vbe 就做好了

试试吧