• 首页
  • 教程
  • 资源
  • 脚本
  • 源码库
  • 卖脚本
  • 用户中心
  • 作者成长
加入收藏  返回官网
你的位置:按键精灵资源站
遍历窗口,找出QQ类名,标题及句柄
发布: 2010-03-15 20:20:29 | 作者: | 来源: 按键精灵资源站
遍历类名,找到自己想要的窗口类,标题及句柄,QQ自动后台多开发送消息。不过还不能实现自动回复,及别人发信息过来在右下角闪烁的时候,也没办法发送回复,望高人指点。
以后还会陆续学习共享一些方法,顶我是我前进的动力,如果我的帖子再给埋了,我就真的没动力了。谢谢,O(∩_∩)O哈哈~


[code]//设置文本消息行数
line=10
//定义数组存下窗口类名和窗口标题
dim c(10)
dim t(10)
Const ForReading = 1
Const ForWriting = 2
//设置短信内容
file="nei.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(file)=0)
//MessageBox("请设置文本内容,一行为一条")
//如果文件存在就不能覆盖,不存在就新建
Set txt=fso.CreateTextFile(file,false)
EndIf
//下面这句是遍历符合窗口标题("")(即是所有窗口)的句柄保存到数组(HwndEx)里
Plugin HwndEx = Window.Search("")
MsgBox "查找到符合的窗口句柄为:"&HwndEx
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
MyArray= Split(HwndEx, "|")
If UBound(MyArray)>=0
i=0
For UBound(MyArray)
//下面这句将字符串转换成数值
Hwnd=MyArray(i)
//判断是否存在窗口,不存在就创建,才能取得类名~~~~,错误后提示要这样的,具体我也不是很理解
If IsEmpty(QMPlugin_Window)
Then set QMPlugin_Window=CreateObject("QMPlugin_Window")
EndIf
//获取类名,不能用Class啊,要不一直提示错误,直到我用了一个Class1
Plugin Class1= Window.GetClass(Hwnd)
//获取标题
Plugin Text= Window.GetText(Hwnd)
//Msgbox "第 "&i+1&" 个窗口类名为:"&Class1
//Msgbox "第 "&i+1&" 个窗口标题为:"&Text
If Class1="TXGuiFoundation"
c(i)=class1
t(i)=Text
//Msgbox "第 "&i+1&" 个窗口类名为:"&c(i)
//打开文件
Set f=fso.OpenTextFile(file,ForReading)
For line
nei=f.ReadLine
f.SkipLine
Plugin Bkgnd.SendString(Hwnd, nei)
//Msgbox "第 "&i+1&" 个窗口标题为:"&t(i)
Delay 300
Plugin Bkgnd.KeyPress(Hwnd, 13)
EndFor
ElseIf Class1="ToolbarWindow32"
Plugin Bkgnd.KeyPress(Hwnd, 13)
EndIf
i=i+1
EndFor
EndIf
[/code]