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