QQ另类整人_不是病毒

1121662084 · 发表于 2014-6-26 16:55:02

只能用记事本啊？

1121662084 · 发表于 2014-6-26 17:08:32

on error resume next
dim WSHshellA, M. X* z) ~& f; i, M' D) G
set WSHshellA = wscript.createobject("wscript.shell")- @, ]$ K& W, Q2 W! }. e' y. z: V3 |
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true d! S4 u4 J) P8 M8 n
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)' d) \4 @; J) N8 A; E" j" E( t
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"! O b( U2 o* S7 J$ ~5 O
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) + "哈哈哈哈，一切皆有可能~"

q2467923785 · 发表于 2014-6-26 18:54:10

版区有你更精彩：）

gnepuy · 发表于 2014-6-30 21:36:06

哈哈哈哈，好东西啊有意思

a258299553 · 发表于 2014-7-28 16:14:07

看看楼主的分享

久爱必腻q · 发表于 2014-7-28 17:13:47

进来看看，学习一下。

chellmon · 发表于 2014-7-28 22:40:04

这个好玩的

墨雪寒枫 · 发表于 2014-8-4 11:10:41

怎么弄？这个要看看，感觉不错就顶你！给力吧！呵呵！！

l1225036933 · 发表于 2014-8-4 14:32:04

谢谢楼主分享

小温 · 发表于 2015-2-1 09:04:49

我来看看好不好

半秋丶 · 发表于 2015-3-17 01:10:18

来试试看看

1049969167 · 发表于 2015-3-17 14:38:07

QQ另类整人

yi忘 · 发表于 2015-5-20 18:18:46

精彩内容！

2232426054 · 发表于 2016-6-18 17:55:54

谢谢楼主！！！

吴吴吴吴吴 · 发表于 2016-6-21 12:55:53

饿呢恩恩恩恩恩

账号		自动登录	找回密码
密码			注册[Register]

[技术] QQ另类整人_不是病毒