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

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

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

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

发新话题 回复该主题

[郭立员] [安卓按键]做一个阅读赚钱的脚本 [复制链接]

1#
大家好,我是公众号3分钟学堂的郭立员~

做按键精灵安卓版教程有好几年了,有时候我在想按键脚本有啥用?它的最大作用就是代替人完成重复性的操作。

前段时间,大成给我发了一个公众号阅读的平台,就是看文章给钱的,单篇文章收益不高,但是可以重复操作。






看完文章以后把当前文章的阅读数发给平台就可以获得收益了。

一个小时阅读文章上限是25篇,粗略算一下单台设备一天几块钱。

我不是专门做阅读赚钱的,手里没有那么多设备和微信,所以收益多少对我来说也不重要。

今天主要来说说写脚本的过程中的一些体会~

这个脚本我写了两个思路:

思路一:按照脚本手动操作逻辑,一步步操作,这也是平时大家写脚本的常用思路。

比如:先点击按钮,等待2秒钟时间,然后进入另外一个页面,接下来滑动页面,找图、输入文字等等一些操作,手动咋操作,脚本就写上对应的命令。

思路二:让脚本稍微聪明一点,能够自己辨别当前画面是哪个页面,在这个页面要执行什么操作。

比如:检测到当前页面是A页面,执行a操作,之后在检测页面是什么页面,如果是B页面就执行b操作,如果是C页面执行c操作。。。

这个思路的优点是每一次都“校对”当前页面是什么页面,不会出现脚本和app不同步发生错乱的情况。

缺点也很明显就是每次都要校对所有的页面。

下面给大家看看我写的代码:

代码仅供学习参考,因为都是图色命令,你复制也没法用,而且也没有找图的附件图片。
  1. /*------加载插件-------*/
  2. Import "shanhai.lua"
  3. /*---------定义全局变量--------*/
  4. Dim intx,inty

  5. /*-------主体--------*/
  6. file.Write("/sdcard/pictures/阅读数.txt")
  7. file.Write ("/sdcard/pictures/返回.txt",0)
  8. ShanHai.WeiXinUrl("com.tencent.mm","https://moon.baohe.site?recommend=USER58414478943436300163E0FF9D82")

  9. '判断页面是否打开
  10. Do
  11. FindPic 0, 0, 0, 0, "Attachment:按钮.png", "000000", 0, 0.9, intX, intY
  12. If intX > -1 And intY > -1 Then
  13. TracePrint "阅光宝盒的主页已经打开"
  14. ShowMessage "阅光宝盒的主页已经打开"
  15. Delay 3000
  16. Exit Do
  17. Else
  18. TracePrint "正在加载页面"
  19. ShowMessage "正在加载页面"
  20. 页面检测_阅读报数()
  21. End If
  22. Delay 1000
  23. Loop

  24. For 300
  25. 页面检测_主页()
  26. 页面检测_阅读报数()
  27. 页面检测_历史消息()
  28. 页面检测_文章页
  29. 页面检测_文章列表
  30. 页面检测_普通阅读
  31. Delay 500
  32. Next
  33. /*--------函数--------*/

  34. Function 页面检测_主页()
  35. Dim intx,inty
  36. FindPic 0, 0, 0, 0, "Attachment:按钮.png","000000", 0, 0.9, intX, intY
  37. If intX > -1 And intY > -1 Then
  38. TracePrint "点击阅ta按钮"
  39. ShowMessage "点击阅ta按钮"
  40. Tap intx, inty
  41. For i = 1 To 5
  42. 页面检测_歇歇()
  43. ShowMessage "时间倒计时:" & 5 - i
  44. Delay 1000
  45. Next
  46. End If
  47. End Function

  48. Function 页面检测_阅读报数()
  49. Dim intx,inty,阅读数
  50. FindPic 0, 0, 0, 0, "Attachment:阅读报数.png","000000", 0, 0.9, intX, intY
  51. If intX > -1 And intY > -1 Then
  52. TracePrint "阅读报数"
  53. 阅读数 = file.read("/sdcard/pictures/阅读数.txt")
  54. Delay 1000
  55. If Len(阅读数) > 0 Then
  56. Tap 138, 646
  57. Delay 500
  58. InputText 阅读数
  59. Delay 1000
  60. Tap 363, 746
  61. Else
  62. Tap 177,739
  63. End If
  64. End If
  65. End Function

  66. Function 页面检测_历史消息()
  67. Dim intx,inty
  68. FindPic 0, 0, 0, 0, "Attachment:历史消息.png","000000", 0, 0.9, intX, intY
  69. If intX > -1 And intY > -1 Then
  70. TracePrint "历史消息页面"
  71. If file.read("/sdcard/pictures/返回.txt") = "0" Then
  72. file.Write("/sdcard/pictures/返回.txt",1)
  73. Tap intx, inty + 90
  74. Else
  75. KeyPress "back"
  76. file.Write ("/sdcard/pictures/返回.txt",0)
  77. End If
  78. For i = 1 To 5
  79. ShowMessage "时间倒计时:" & 5 - i
  80. Delay 1000
  81. Next
  82. End If
  83. End Function

  84. Function 页面检测_文章页()
  85. Dim intx,inty,text,num,t
  86. FindPic 0, 0, 0, 0, "Attachment:点.png", "000000", 0, 0.9, intX, intY
  87. If intX > -1 And intY > -1 Then
  88. If GetPixelColor(intx, inty+5) = "FFFFFF" Then
  89. TracePrint "文章页面"
  90. ShowMessage "文章页面"
  91. t=TickCount()
  92. Do
  93. FindPic 0, 0, 0, 0, "Attachment:阅读.png|Attachment:阅读2.png|Attachment:观看.png","000000", 0, 0.9, intX, intY
  94. If intX > -1 And intY > -1 Then
  95. TracePrint "阅读"
  96. text = Image.OcrText(intx+43,inty-10,intx+120,inty+24,0,0)
  97. num = shanhai.RegexFind(text, "%d+")
  98. TracePrint num(0)
  99. ShowMessage "用时:"&TickCount() - t
  100. If TickCount() - t < 10000 Then
  101. Delay 11000-(TickCount() - t)
  102. End If
  103. KeyPress "back"
  104. file.Write ("/sdcard/pictures/阅读数.txt",num(0))
  105. Exit Do
  106. Else
  107. Swipe 5, 822, 5, 310, 1000
  108. End If
  109. Loop
  110. For i = 1 To 5
  111. ShowMessage "时间倒计时:" & 5 - i
  112. Delay 1000
  113. Next
  114. End If
  115. Delay 1000
  116. End If
  117. End Function

  118. Function 页面检测_文章列表()
  119. Dim intx,inty
  120. FindPic 0, 0, 0, 0, "Attachment:文章列表.png","000000", 0, 0.9, intX, intY
  121. If intX > -1 And intY > -1 Then
  122. TracePrint "文章列表"
  123. If file.read("/sdcard/pictures/返回.txt") = "0" Then
  124. file.Write("/sdcard/pictures/返回.txt",1)
  125. Tap 105,457
  126. Else
  127. KeyPress "back"
  128. file.Write ("/sdcard/pictures/返回.txt",0)
  129. End If
  130. For i = 1 To 5
  131. ShowMessage "时间倒计时:" & 5 - i
  132. Delay 1000
  133. Next
  134. End If
  135. End Function

  136. Function 页面检测_普通阅读()
  137. Dim intx,inty
  138. FindPic 0, 0, 0, 0, "Attachment:普通阅读.png","000000", 0, 0.9, intX, intY
  139. If intX > -1 And intY > -1 Then
  140. TracePrint "普通阅读"
  141. Tap intx, inty
  142. For i = 1 To 3
  143. ShowMessage "时间倒计时:" & 3 - i
  144. Delay 1000
  145. Next
  146. End If

  147. End Function

  148. Function 页面检测_歇歇()
  149. Dim intx,inty
  150. FindPic 0, 0, 0, 0, "Attachment:歇歇.png","000000", 0, 0.9, intX, intY
  151. If intX > -1 And intY > -1 Then
  152. TracePrint "休息一下"
  153. EndScript
  154. End If
  155. End Function
复制代码
代码中每一个函数都是独立存在的,而且我尽量使用局部变量,防止函数间冲突,如果涉及到内容的传递,我使用了文本作为媒介。

这些是循环调用的,如下图:






因为每个函数是独立存在的,函数可以随着页面的增加而随时增加,这样维护起来是方便很多。

当然如果页面特别多的时候,页面的检测时间就会比较长了。

对于要操作大量页面的脚本,还是建议使用第一个思路。

这个脚本我在做长时间测试时发现会卡死,我猜测可能是image.ocrtext命令的问题。

今天文章内容不多,主要是提供一个脚本思路,感兴趣的朋友帮忙点个赞!

扫码免费获取我的基础教程【视频教程】
扫码下方二维码关注我的公众号:3分钟学堂

QQ交流群:936858410
发新话题 回复该主题