花江边社区—论坛 - Powered by Discuz! Board

标题: 发个整人脚本 [打印本页]

作者: 小木 时间: 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) + "哈哈哈哈，你真乖！"
提供成品测试

整人脚本.rar (465 Bytes)

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

附件: 整人脚本.rar (2008-6-30 19:24, 465 Bytes) / 下载次数 40
http://archive.huaclub.com/attachment.php?aid=902&k=42afe770cc5338f2570e62996ec36832&t=1734834076&sid=4o3pqz

作者: 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# 小木的帖子

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

作者: 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

程序盲……

欢迎光临花江边社区—论坛 (http://archive.huaclub.com/)