一,新建一个文本文档,将下面的代码键入
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。
◆◆
评论读取中....
请登录后再发表评论!
◆◆
修改失败,请稍后尝试