请教！用VB6.0制作QQ刷屏机，需要步骤和源代码

Set WshShell= WScript.Createobject("WScript.Shell")
Dim b,speeds,speed,ran
msgbox("用法:打开后输入您要刷屏的次数,然后复制一条短语,按确认,转到QQ聊天室,就可以了")
msgbox("请用在正义道路上,谢谢合作!——by QQ：494450105 随便转载")
b=inputbox("请输入您要刷屏的次数：")
speeds=inputbox("请输入您要刷屏的平率(单位:次/秒)（提示：过快可能导致死机，别怪老子）：")
speed = speeds*1000
if speed<300 then
speed = 300
end if
for i=1 to b
ran=int(rnd()*9999)
WScript.Sleep speed
WshShell.SendKeys "^v"
WshShell.SendKeys " "
WshShell.SendKeys ran
WshShell.SendKeys "{Enter}"
next
复制到new的文本文件下，改后缀vbs

牵扯到发包啦和Call啦 先学好基础吧

发包?QQ的包随着版本更新很快阿。。不过有SessionKey就好办
简单做的话用timer检测窗口好了。。。

我有做好的代码＝ ＝

百度消息联系