VBS编写的程序，怎么自动发送？

ubcc

代码如下，这个也是类似网络流传的;QQ复仇器----之类的，先复制一段文字然后打开该VBs文件即可不断粘贴之前复制的文字内容，但是缺点是不可以自动发送，哪位大哥可以帮我修改下，打开QQ聊天框可以自己发送的，而不用手工发送。
Set WshShell= WScript.createobject("WScript.Shell")
WshShell.AppActivate "QQ信息攻击脚本"
for i=1 to 20
WScript.Sleep 1000
WshShell.SendKeys"^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next

ubcc

建议自动发送的时间间隔可以手动修改的，谢谢了~