UC知道谁教我做整人的文件啊?
来源：百度知道 编辑：UC知道 时间：2024/09/18 04:16:40
我朋友发了个文件过来!我一打开,他就显示一个对话框出来,然后就是"喊声爸爸,喊不喊,不喊30秒关你机子".~~第一次我被整了,第2次~~为了研究是怎么回事,我喊了~"儿子乖,老汉儿不关你机了"~然后那个对话框就没了,就不的关机了.哪位高手教下我怎么制作这种东西~~或者有类似的文件留个言~~谢了!!
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) + "哈哈哈哈，真过瘾"
把这段复制，新建一个文本文档，粘贴进去，保存，然后右击，属性，将后缀由.txt改为.vbs 确定就行了！以后双击这个vbs文件就能捉弄人了
你想让他喊什么就改引号里的内容就行了！
好神奇耶！ 有的话我也想要！