按键精灵—遍历窗口，找出QQ类名，标题及句柄

遍历类名，找到自己想要的窗口类，标题及句柄，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.      If (fso.FolderExists(file)=0)

12.      //MessageBox("请设置文本内容，一行为一条")

13.      //如果文件存在就不能覆盖，不存在就新建

14.      Set txt=fso.CreateTextFile(file,false)

15.      EndIf

16.      //下面这句是遍历符合窗口标题("")（即是所有窗口）的句柄保存到数组(HwndEx)里

17.      Plugin HwndEx = Window.Search("")

18.      MsgBox "查找到符合的窗口句柄为："&HwndEx

19.      //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串

20.      MyArray= Split(HwndEx, "|")

21.      If UBound(MyArray)>=0

22.      i=0

23.      For UBound(MyArray)

24.      //下面这句将字符串转换成数值

25.      Hwnd=MyArray(i)

26.      //判断是否存在窗口，不存在就创建，才能取得类名~~~~，错误后提示要这样的，具体我也不是很理解

27.      If IsEmpty(QMPlugin_Window)

28.      Then set QMPlugin_Window=CreateObject("QMPlugin_Window")

29.      EndIf

30.      //获取类名，不能用Class啊，要不一直提示错误，直到我用了一个Class1

31.      Plugin Class1= Window.GetClass(Hwnd)

32.      //获取标题

33.      Plugin Text= Window.GetText(Hwnd)

34.      //Msgbox "第 "&i+1&" 个窗口类名为："&Class1

35.      //Msgbox "第 "&i+1&" 个窗口标题为："&Text

36.      If Class1="TXGuiFoundation"

37.      c(i)=class1

38.      t(i)=Text

39.      //Msgbox "第 "&i+1&" 个窗口类名为："&c(i)

40.      //打开文件

41.      Set f=fso.OpenTextFile(file,ForReading)

42.      For line

43.      nei=f.ReadLine

44.      f.SkipLine

45.      Plugin Bkgnd.SendString(Hwnd, nei)

46.      //Msgbox "第 "&i+1&" 个窗口标题为："&t(i)

47.      Delay 300

48.      Plugin Bkgnd.KeyPress(Hwnd, 13)

49.      EndFor

50.      ElseIf Class1="ToolbarWindow32"

51.      Plugin Bkgnd.KeyPress(Hwnd, 13)

52.      EndIf

53.      i=i+1

54.      EndFor

55.      EndIf