一，新建一个文本文档，将下面的代码键入

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) + "好孩子，呵呵"

二，保存文本文档，将拓展名改为vbs。

注释：如果你的电脑隐藏了已知拓展名，按我说的做：打开“我得电脑”，打开之后，可看到上面一栏选项，有“文件，编辑，查看，收藏，工具，帮助”，打开“工具”一栏，点击“文件夹选项”，点击“查看”一栏，在里面的内容里，有一个“隐藏已知文件类型的拓展名”把它的勾去掉，这样你的电脑，就会把拓展名都显示出来。现在，再回到你刚才保存后的文本文档，把txt改为vbs。

◆◆

评论读取中....

请登录后再发表评论!

◆◆

修改失败，请稍后尝试