QQ给附近的人群发消息，需要验证的自动申请为好友 按键精灵源码

QQ给附近的人群发消息，需要验证的自动申请为好友 按键精灵源码

先打开QQ查找界面 -找人

While true
    Hwnd = Plugin.Window.Find(0, "查找")
    If Hwnd = 0 Then 
        MessageBox "没有找到句柄，停止运行"	
        EndScript
    End If
    Call Plugin.Window.Move(Hwnd, 0, 0)
    Call Plugin.Window.Show(Hwnd)
    Call Plugin.Window.Restore(Hwnd)
    Call Plugin.Window.Active(Hwnd)
 //   Call Plugin.Window.Top(Hwnd, 0)
    Delay 200
    MoveTo 174, 485
    Call send()
    MoveTo 386, 483
    Call send()
    MoveTo 621, 485
    Call send()
    MoveTo 843, 480
    Call send()
    MoveTo 170, 557
    Call send()
    MoveTo 391, 563
    Call send()
    MoveTo 616, 559
    Call send()
    MoveTo 837, 561
    Call send()
    //下一个
    MoveTo 894, 499
    Delay 200
    LeftClick 1
    Delay 200
Wend
Sub send()
    Delay 200
    Rem CHECK
    LeftClick 1
    Delay 500  
    Hwnd2 = Plugin.Window.Foreground()
    If Hwnd = Hwnd2 Then 
        Delay 2000
        Call Plugin.Msg.Tips("正在查找聊天窗口")
        Goto CHECK
    End If
    title = Plugin.Window.GetText(Hwnd2)
    If title = "查找" Then 
    
    ElseIf Right(title, 8) = "添加好友" Then
    	
    	KeyDown 18, 1
        KeyPress 115, 1
        KeyUp 18, 1
        Delay 200
        
        KeyDown 18, 1
        KeyPress 115, 1
        KeyUp 18, 1
        Delay 200
    Else    
        //   SayString title+",在吗？"
        SayString title+",  免费源码 电影 电视剧 电子书 教程 资料 美女小视频等----文件搜http://wjsou.com/"
        Delay 200
        KeyPress "Enter", 1
        Delay 200
        KeyPress "Enter", 1
        Delay 200
        KeyPress "Enter", 1
        Delay 200
        KeyPress "Enter", 1
        Delay 200
        KeyPress "Enter", 1
        Delay 200
        
    	Hwnd4 = Plugin.Window.Foreground()       
 		title2 = Plugin.Window.GetText(Hwnd4)
 		title=Right(title2, 4)
 		If Right(title2, 4) = "添加好友" Then   	
    	KeyDown 18, 1
        KeyPress 115, 1
        KeyUp 18, 1
        Delay 200
        endif

        
        KeyDown 18, 1
        KeyPress 115, 1
        KeyUp 18, 1
        Delay 200
    End If
End Sub