请教！用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

1、首先，我们编配哗樱写C语言的头文件#include <stdio.h>。

2、然后我们编写Main函数框架。

3、接下来我们定义两个变量，如下图所示。

4、然后我们编写输入的函数，如下图所示培丛。

5、接下来在输入后，我们编写输出程序。

6、这时候，我们便可以观察最终芦哗结果。

---