遍历类名,找到自己想要的窗口类,标题及句柄,QQ自动后台多开发送消息。不过还不能实现自动回复,及别人发信息过来在右下角闪烁的时候,也没办法发送回复,望高人指点。以后还会陆续学习共享一些方法,顶我是我前进的动力,如果我的帖子再给埋了,我就真的没动力了。谢谢,O(∩_∩)O哈哈~
1. //设置文本消息行数
2. line=10
3. //定义数组存下窗口类名和窗口标题
4. dim c(10)
5. dim t(10)
6. Const ForReading = 1
7. Const ForWriting = 2
8. //设置短信内容
9. file="nei.txt"
10. Set fso = CreateObject("Scripting.FileSystemObject")
11.