标题: VBS编写的程序，怎么自动发送？ [打印本页]

---

作者: ubcc    时间: 2011-1-16 23:38     标题: VBS编写的程序，怎么自动发送？

代码如下，这个也是类似网络流传的;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    时间: 2011-1-16 23:40

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

---

欢迎光临 批处理之家 (http://bbs.bathome.net/)

Powered by Discuz! 7.2