返回列表 发帖

发个整人脚本

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说XXX大帅哥,不说XXX大帅哥一分钟关你机,不信,试试···"" ",0 ,true
dim a
do while(a <> "XXX大帅哥")
a = inputbox ("说XXX大帅哥,就不关机,快撒,说 ""XXX帅哥"" ","说不说","不说",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) + "哈哈哈哈,你真乖!"
提供成品测试
整人脚本.rar (465 Bytes)

[ 本帖最后由 小木 于 2008-6-30 19:25 编辑 ]

我怎么运行啊~~~请教~~~

TOP

用文本文档把上述内容拷贝进去
那个XXX就是名字
“WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说XXX大帅哥,不说XXX大帅哥一分钟关你机,不信,试试···"" ",0 ,true ”中的“ -t 60”是时间(以秒计)
退出 保存
然后将文本文件的后缀名改为.vbe双击就可运行了

TOP

回复 3# 小木 的帖子

我的天啊,中招了,重启了~~~~~

TOP

哈哈!我拿同学先试了下!他中了!
我想问下怎么样才可以不关机啊?

TOP

乖乖的输入啊
嘿嘿

TOP

嘿嘿~~~
整过我同学了
专注于自我的兴趣和理想

TOP

我错了,会被大家骂的

TOP

回复 5# dreamy5190 的帖子

解除关机的方法很简单啊
在CMD中输入shutdown -a就行了

TOP

程序盲……
天枰座出生,有着天枰座的特点……

TOP

返回列表