QQ好友发个文件给我喊我回答喊他喊爸爸,这个文件要怎么做,高手教一下

Question

如题所述

Answer 1

你好，很高兴为你解答问题
新建一个文本文档，输入以下内容（当然你可以复制）
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""叫爸爸，不叫就30秒后关你机，不信，试试···"" ",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) + "哈哈，爸爸不关你机。"

好了，就到上面，然后，保存文档。
打开我的电脑，“工具”-“文件夹选项”-“查看”，在下面找到“隐藏一直文件类型的拓展名”，把前面的勾去掉，确定。
然后再看你刚刚编辑的文档，重命名，把txt改成vbe，回车。OK，现在你打开这个文件看下，呵呵
希望对你有帮助