整蛊代码3

这次是vbs文件

需要在桌面上新建一个文本文档

将后缀名改成vbs

win7.10.8显示后缀名方法

1.打开控制面板

2.切换成小图标

3.点文件夹选项

4.打开查看

5.拉到最下面

6.打开隐藏......

7.OK

右间打开编辑

输录

on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 20 -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) + "好孩子，呵呵"