QQ群单个私聊给每个群成员发消息 第2版使用属性页 按键精灵源码

首先定位到群成员页

优化后

While true
    //Hwnd = Plugin.Window.Find(0, "天天玩具厂")
    Hwnd = Plugin.Window.Find(0, "娱乐人生11线")
    //Hwnd = Plugin.Window.Find(0, "JavaApk.com-安卓源码No.2")
    //Hwnd = Plugin.Window.Find(0, "FaceCore人脸识别")
    If Hwnd = 0 Then 
        MessageBox "没有找到句柄，停止运行"	
        EndScript
    End If
    Call Plugin.Window.Move(Hwnd, 0, 0)
    Call Plugin.Window.Active(Hwnd)
	Call Plugin.Window.Top(Hwnd, 0)

    Delay 200
    MoveTo 101, 381
    Delay 200
    LeftDoubleClick 1
    Delay 200
    Rem CHECK
    Hwnd2 = Plugin.Window.Foreground()
    If Hwnd = Hwnd2 Then 
        Delay 200
        Call Plugin.Msg.Tips("正在查找聊天窗口")
        Goto CHECK
    End If
    
    title = Plugin.Window.GetText(Hwnd2)
    SayString title+",免费源码 电影 电视剧 电子书 教程 资料 美女小视频等----文件搜http://wjsou.com/"
    Delay 200
    KeyPress "Enter", 1
    Delay 500
    KeyDown 18, 1
    KeyPress 115, 1
    KeyUp 18, 1
    Delay 200
    //下一个
    MoveTo 101, 381
    Delay 200
    LeftClick 1
    Delay 200
	KeyPress "Down", 1
Wend