• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.6.9
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.6
软件大小:29.2M
更新时间:12-06

按键手机助手
立即下载

软件版本:3.7.6
软件大小:262M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][思路、源码分享]----微信多开加人----再见,“再见”(42) [复制链接]

1#
用户需求:

  • 多开
  • 遇见频繁,换号加,不可以漏掉
脚本最终效果:
源码一览:



知识点讲解:
  1. Event Form1.Button1.Click
  2. Form1.ListBox1.List=Plugin.File.ReadFileEx(Form1.BrowseBox1.Path) '读取txt到列表框
  3. End Event
复制代码
  1. Function 读取删除一行()
  2. Do
  3. If Form1.ListBox1.List = "" Then '如果列表框为空
  4. MsgBox "没有账号了"'弹窗提醒没有帐号
  5. Else '否则 即有号
  6. 读取删除一行 = split(Form1.ListBox1.List, "|")(0)'读取列表框所有内容>split分割>取第一行
  7. TracePrint 读取删除一行
  8. If 读取删除一行 <> "" Then '如果第一行不为空
  9. Form1.ListBox1.RemoveItem 0 '取的第一行
  10. Exit Function'退出函数
  11. End If
  12. Form1.ListBox1.RemoveItem 0'如果为空善的第一行,这样会重新循环取一句
  13. End If
  14. Loop
  15. End Function
复制代码
  1. Call Plugin.Bkgnd.LeftClick(MyArray(i), 243, 36)//点击输入框X
  2. Delay 延迟倍数* 500
  3. Call Plugin.Bkgnd.LeftClick(MyArray(i), 135, 36)//点击输入框
  4. Delay 延迟倍数 * 500
  5. 账号=读取删除一行
  6. Call Plugin.Bkgnd.SendString(MyArray(i),账号 )//输入账号
  7. Delay 延迟倍数 * 500
  8. ///\
  9. For 20
  10. iCoord = Plugin.Bkgnd.FindMultiPic(MyArray(i), 0, 0, 700, 500, "C:\查找.bmp|C:\查找2.bmp|C:\查找3.bmp", 0, 0.8)
  11. XY = Split(iCoord,"|")
  12. If XY(0) > 0 Then
  13. Delay 延迟倍数 * 1000
  14. TracePrint "找到“网络查找微信号特征”"
  15. Call Plugin.Bkgnd.LeftClick(MyArray(i),XY(0), XY(1))//点击网络查找微信号
  16. End If
  17. Delay 延迟倍数 * 200
  18. Hwnd = Plugin.Window.Find("AlertDialog", "微信")
  19. If hwnd > 0 Then
  20. TracePrint "操作频繁"
  21. Color = Plugin.Bkgnd.GetPixelColor(Hwnd, 180,180)
  22. If Color = "19AD1A" Then
  23. Call Plugin.Bkgnd.LeftClick(hwnd, 180, 180)
  24. Delay 延迟倍数 * 500
  25. Form1.ListBox1.InsertItem 账号,0'出现频繁,将账号写回去第一行
  26. Exit For
  27. End If
  28. End If
  29. Delay 延迟倍数 * 200
  30. Hwnd = Plugin.Window.Find("ContactProfileWnd", "微信")'查找加人弹窗
  31. iCoord = Plugin.Bkgnd.FindPic(hwnd,0,0,700,500, "C:\+.bmp", 0, 0.8)
  32. XY = Split(iCoord,"|")
复制代码




52-99行写的是各种弹窗监测与点击流水线写法,下面是获取句柄偷懒的方式
[老狼][源码分享]----句柄生成器源码----被迫营业的第二天
值得一提的是,输入账号时可能提示频繁特征1,点击网络查找微信号、添加好友时、点击添加最后一步的确定时均可能弹出频繁特征2,所以采用了流水线写法
  1. do
  2. 监测图片1,找到操作1
  3. 监测图片2,找到操作2
  4. ....
  5. 监测图片“最后一步确定”,找到重复点击3次 退出循环 进入下一个号
  6. loop
复制代码
频繁时如何还原读取账号时删掉的账号
  1. Hwnd = Plugin.Window.Find("AlertDialog", "微信")
  2. If hwnd > 0 Then
  3. TracePrint "操作频繁"
  4. Color = Plugin.Bkgnd.GetPixelColor(Hwnd, 180,180)
  5. If Color = "19AD1A" Then '因为有同类名,标题的 避免误判 所以同步判断下确定按钮位置 确定是我们要的窗口
  6. Call Plugin.Bkgnd.LeftClick(hwnd, 180, 180)
  7. Delay 延迟倍数 * 500
  8. Form1.ListBox1.InsertItem 账号,0'出现频繁,将账号写回去第一行
  9. End If
  10. End If
复制代码
***** 该内容需您回复才可浏览 *****

最后编辑瑞祥幽冥狼 最后编辑于 2022-03-28 23:25:25
本主题由 超级版主 瑞祥幽冥狼 于 2022/4/1 11:11:02 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

谢谢

3#

1我要看我要看

4#

21我要看我要看

5#

能分享一下代码 吗

6#

6666666666666666学习一下

7#

我要向作者学习,或者作者能直接做成脚本吗?

8#

V587------V587

9#

好东西啊,收藏了

10#

厉害

比自己写的简洁多了

11#

阿萨盛大盛大

12#

无理的牛

13#

感谢楼主

14#

大佬66666

15#

多谢大佬

16#

快看快看

17#

学习了。

18#

666666666666666

19#

回复看看大神

20#

1111111111

发新话题 回复该主题