QQ给附近的人群发消息,需要验证的自动申请为好友 按键精灵源码
2017-04-17 13:39
513 查看
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
相关文章推荐
- delphi写QQ消息群发(模拟按键精灵)
- 手机自动群发QQ消息自动回复消息群发
- QQ自动发消息源码
- 按键精灵自动发QQ消息
- QQ自动消息源码
- 再谈自动申请QQ
- 三谈自动申请QQ
- QQ点击某个好友,QQ自动关闭
- QQ自动发送文件病毒消息的手动清除方法正文分析错误
- C++、VC++、MFC网页自动注册、登陆、发帖、留言,QQ注册、QQ申请器源码、注册邮箱源码、自动发帖源码
- QQ即时通讯消息群发例子,QQ机器人开发学习资料
- 类似QQ右下角消息提示2--自动刷新
- 转帖 群发qq消息思路
- 利用Visual C++ 实现QQ消息群发
- 巧用Windows Script Host编写自动申请QQ号码脚本
- 给非QQ好友发消息的方法
- QQ消息群发
- 类似QQ右下角消息提示---自动隐藏。不大适合
- 关于自动申请QQ
- 用PHP写的QQ Client,可以登陆、登出、收发消息、添加好友