发个整人脚本 脚本, 整人

小木

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)

下载次数: 40

2008-6-30 19:24

下载消耗 花江币 5 元 

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

Flower

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

小木

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

Flower

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

dreamy5190

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

小木

乖乖的输入啊
嘿嘿

atux

嘿嘿~~~
整过我同学了

小木

我错了，会被大家骂的

小木

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

天枰MM

程序盲……