花江边社区—论坛 » 电脑/手机/数码 » 发个整人脚本

小木 发表于 2008-6-30 19:20

发个整人脚本

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) + "哈哈哈哈，你真乖！"
提供成品测试
[attach]902[/attach]

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

Flower 发表于 2008-7-1 19:03

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

小木 发表于 2008-7-1 20:24

回

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

Flower 发表于 2008-7-1 22:13

回复 3# 小木 的帖子

我的天啊，中招了，重启了~~~~~Huajb54.cn Huajb54.cn

dreamy5190 发表于 2008-7-1 22:28

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

小木 发表于 2008-7-1 22:55

回

乖乖的输入啊
嘿嘿

atux 发表于 2008-7-6 08:20

嘿嘿~~~
整过我同学了

小木 发表于 2008-7-6 14:09

回

我错了，会被大家骂的

小木 发表于 2008-8-8 10:18

回复 5# dreamy5190 的帖子

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

天枰MM 发表于 2008-8-8 13:49

程序盲……

查看完整版本: 发个整人脚本