齐聚无忧

?找回密码
?博狗开元棋牌

QQ登录

只需一步,快速开始

查看: 64|回复: 0
打印 上一主题 下一主题

[Android] 【按键精灵】微信半自动加人源码

[复制链接]

4

主题

4

帖子

12

积分

新手上路

Rank: 1

积分
12
跳转到指定楼层
楼主
发表于 2019-9-21 20:37:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
undefined 工作天天需要加人,好烦就自己做了一个微信半自动加入的脚本!

undefined功能:需要自己的手动复制微信号,可以自动备注、后面的动作都是全自动。

ps:主要是微信加入有限制,所以就做了半自动的,这样对我的工作也很大的效率

现在开源给需要的朋友吧,欢迎一起讨论,我也是一个喜欢研究的小可爱哦~~~undefined

附件图 根据坐标找一下吧, - -
[Visual Basic] [color=rgb(51, 102, 153) !important]纯文本查看 [color=rgb(51, 102, 153) !important]复制代码
[color=rgb(51, 102, 153) !important]
  1. Dim intX1,intY1, intX2, intY2, intX3, intY3,intX4, intY4,intX5, intY5,微信号,备注,布局控件名,结果,临时路径
  2. Function 布局显示事件()
  3. ? ? '添加一个名称为"文字框1",初始内容为"姓名:"的文字框控件
  4. ? ? UI.AddTextView 布局控件名, "文字框1", "微信号:"
  5. ? ? '添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
  6. ? ? UI.AddEditText 布局控件名, "输入框1", "", 300, 50
  7. ? ? UI.AddTextView(布局控件名, "文字框2", "微信备注:")??
  8. ? ? '添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
  9. ? ? UI.AddEditText 布局控件名, "输入框2", "wsx ", 100
  10. End Function
  11. 临时路径 = GetTempDir()
  12. TracePrint 临时路径&"wxbzdjr/"
  13. PutAttachment 临时路径&"wxbzdjr/", "*.png"
  14. While 1 = 1
  15. ? ? FindPic 2,217,719,692, "Attachment:添加.png", "000000", 0, 0.9, intX1, intY1
  16. ? ? FindPic 52, 45, 81, 71, "Attachment:验证申请.png", "000000", 0, 0.9, intX2, intY2
  17. ? ? FindPic 57, 45, 81, 70, "Attachment:详细资料.png", "000000", 0, 0.9, intX3, intY3
  18. ? ? FindPic 19, 42, 51, 76, "Attachment:输入微信界面.png", "000000", 0, 1.0, intX4, intY4
  19. ? ? FindPic 152, 88, 574, 219, "Attachment:添加好友频繁.png", "000000", 0, 0.9, intX5, intY5
  20. ? ? If intX3 > -1 And intY3 > -1 Then
  21. ? ?? ???TracePrint "详细资料"
  22. ? ?? ???If intX1 > -1 And intY1 > -1 Then
  23. ? ?? ?? ?? ?TracePrint "添加好友"
  24. ? ?? ?? ?? ?Tap intX1,intY1
  25. ? ?? ???Else
  26. ? ?? ?? ?? ?TracePrint "没有添加好友"
  27. ? ?? ???End If
  28. ? ? ElseIf intX2 > -1 And intY2 > -1 Then
  29. ? ?? ???TracePrint "验证申请"
  30. ? ?? ???Tap 679,279 //删除已经备注
  31. ? ?? ???Delay 200
  32. ? ?? ???Tap 679,279 //激活备注
  33. ? ?? ???Delay 200
  34. ? ?? ???// InputText 备注["输入框2"]
  35. ? ?? ???结果 = UTF8.Len(备注["输入框2"])
  36. ? ?? ???For i = 1 To 结果
  37. ? ?? ?? ?? ?KeyPress UTF8.StrGetAt(备注["输入框2"], i)
  38. ? ?? ???Next
  39. ? ?? ???Delay 200
  40. ? ?? ???Tap 663,62 //发送
  41. ? ?? ???Delay 2000
  42. ? ?? ???KeyPress "Back"
  43. ? ? ElseIf intX4 > -1 And intY4 > -1 Then
  44. ? ?? ???If intX5 > -1 And intY5 > -1 Then
  45. ? ?? ?? ?? ?Dialog.MsgBox("操作过于频繁,请稍后再试,意思就是你加人次数太快了休息一下,再来加人吧!",0)
  46. ? ?? ?? ?? ?EndScript
  47. ? ?? ???Else
  48. ? ?? ?? ?? ?ShowMessage "请输入微信号!!!"
  49. ? ?? ?? ?? ?//UI.Show ("布局控件名")
  50. ? ?? ?? ?? ?布局控件名 = "请输入需要添加的微信号和备注"
  51. ? ?? ?? ?? ?'创建一个名称为"layout1"的布局控件
  52. ? ?? ?? ?? ?UI.NewLayout (布局控件名)
  53. ? ?? ?? ?? ?UI.SetOnShow(布局控件名, 布局显示事件)
  54. ? ?? ?? ?? ?TracePrint UI.Show (布局控件名)
  55. ? ?? ?? ?? ?备注 = UI.GetValue("输入框2")
  56. ? ?? ?? ?? ?微信号 = UI.GetValue("输入框1")
  57. ? ?? ?? ?? ?TracePrint 微信号["输入框1"]
  58. ? ?? ?? ?? ?Tap 687,61 //删除已输入微信号
  59. ? ?? ?? ?? ?Delay 200
  60. ? ?? ?? ?? ?//InputText 微信号["输入框1"]
  61. ? ?? ?? ?? ?If 微信号["输入框1"] <> "" Then
  62. ? ?? ?? ?? ?? ? 结果 = UTF8.Len(微信号["输入框1"])
  63. ? ?? ?? ?? ?? ? For i = 1 To 结果
  64. ? ?? ?? ?? ?? ?? ???KeyPress UTF8.StrGetAt(微信号["输入框1"], i)
  65. ? ?? ?? ?? ?? ? Next
  66. ? ?? ?? ?? ?? ? Delay 1000
  67. ? ?? ?? ?? ?? ? Tap 293,125 //查找
  68. ? ?? ?? ?? ?? ? Delay 1000
  69. ? ?? ?? ?? ?Else
  70. ? ?? ?? ?? ?? ? Dialog.MsgBox("请输入或者复制你要添加的微信号,我才能自动帮你加微信好友啊!",0)
  71. ? ?? ?? ?? ?End If
  72. ? ?? ???End If
  73. ? ? End If
  74. ? ? TracePrint "检测中"
  75. ? ? Delay 500
  76. Wend
复制代码


[color=rgb(51, 102, 153) !important]




分享到:? QQ好友和群QQ好友和群
收藏收藏
您需要登录后才可以回帖 登录 | 博狗开元棋牌

本版积分规则


Archiver|手机版|小黑屋|齐聚无忧 |网站地图

GMT+8, 2019-10-16 14:53 , Processed in 0.058591 second(s), 45 queries .

Powered by Discuz! X3.4

? 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表