QQ自动发送信息脚本

On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 1000
wsh.AppActivate("与 XXX 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit

转载于:https://blog.51cto.com/xunhe/1076621