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

软件版本: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

快捷导航

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

发新话题 回复该主题

[老狼] [老狼] [源码分享]----一段Sub、Function----被迫营业的第六天 [复制链接]

1#

问:Sub、Function存在的意义?

答:将重复度高的代码做成Sub,达到减少代码量、维护简便。

:Sub、Function存在的区别?

:Function可设置返回值,多线程一般是调用Sub。

问:本文章存在意义?

答:讲解Sub演变,让更多人学会编写一套自己的Sub、Function(模板);其他人的模板再好,除非可以直接调用不用参数,否则还是不顺手。


以安卓代码为例:



  • 一段普通的找图点击代码
  1. Dim intX, intY
  2. FindPic 0, 0, 0, 0, "Attachment:QQ.png", "050505", 0, 0.9, intX, intY
  3. If intX > -1 And intY > -1 Then
  4. Tap intx,inty
  5. End If
复制代码

  • 当找的到图片点击位置需要偏差时 例如 需要往又5像素 往上4像素
  1. Dim intX, intY
  2. FindPic 0, 0, 0, 0, "Attachment:QQ.png", "050505", 0, 0.9, intX, intY
  3. If intX > -1 And intY > -1 Then
  4. Tap intx+5,inty-4
  5. End If
复制代码

  • 当图片的名称是变量的时候
  1. Dim 图片名称="QQ"
  2. Dim intX, intY
  3. FindPic 0, 0, 0, 0, "Attachment:"&图片名称&".png", "050505", 0, 0.9, intX, intY
  4. '注:当字符串连接变量时使用& "Attachment:"与.png”为字符串 图片名称 为变量
  5. If intX > -1 And intY > -1 Then
  6. Tap intx+5,inty-4
  7. End If
复制代码

  • 如何将这个代码演变为sub
  1. Dim intX, intY
  2. Call 找图("QQ")
  3. Sub 找图(图片名称)
  4. FindPic 0, 0, 0, 0,"Attachment:"&图片名称&".png", "050505",0, 0.9, intX, intY
  5. '注:当字符串连接变量时使用& "Attachment:"与.png”为字符串 图片名称 为变量
  6. If intX > -1 And intY > -1 Then
  7. Tap intx+5,inty-4
  8. End If
  9. End Sub
复制代码

  • 若当我们找图范围也要可修改应怎么做
  1. Dim intX, intY
  2. Call 找图(0,0,0,0,"QQ",5,-4)
  3. Sub 找图(X1,Y1,X2,Y2,图片名称,偏x,偏y)
  4. FindPic X1,Y1,X2,Y2,"Attachment:"&图片名称&".png","050505", 0, 0.9, intX, intY
  5. '注:当字符串连接变量时使用& "Attachment:"与.png”为字符串 图片名称 为变量
  6. If intX > -1 And intY > -1 Then
  7. Tap intx+偏x,inty+偏y
  8. End If
  9. End Sub
复制代码

  • 若当我们需要他找图 找到方退出又该如何
  1. Dim intX, intY
  2. Call 找图(0,0,0,0,"QQ")
  3. Sub 找图(X1, Y1, X2, Y2, 图片名称)
  4. Do
  5. FindPic X1,Y1,X2,Y2,"Attachment:"&图片名称&".png","050505", 0, 0.9, intX, intY
  6. '注:当字符串连接变量时使用& "Attachment:"与.png”为字符串 图片名称 为变量
  7. If intX > -1 And intY > -1 Then '如果找到
  8. Tap intx + 5, inty - 4
  9. Exit Do'退出死循环
  10. End If
  11. Delay 1000'死循环必要延迟
  12. Loop
  13. End Sub
复制代码

  • 若当我们需要找图1 找到图1 才找图2 又该如何写
  1. Dim intX, intY
  2. Call 找图(0,0,0,0,"1")
  3. Call 找图(0,0,0,0,"2")
  4. Sub 找图(X1, Y1, X2, Y2, 图片名称)
  5. Do
  6. FindPic X1,Y1,X2,Y2,"Attachment:"&图片名称&".png","050505", 0, 0.9, intX, intY
  7. '注:当字符串连接变量时使用& "Attachment:"与.png”为字符串 图片名称 为变量
  8. If intX > -1 And intY > -1 Then '如果找到
  9. Tap intx + 5, inty - 4
  10. Exit Do'退出死循环
  11. End If
  12. Delay 1000'死循环必要延迟
  13. Loop
  14. End Sub
复制代码
=====================================================================================

  • Function如何设置返回值
  1. TracePrint 找图(0,0,0,0,"QQ")
  2. Dim intX,intY
  3. Function 找图(X1, Y1, X2, Y2, 图片名称)
  4. 找图=False'设置初始返回值
  5. FindPic X1,Y1,X2,Y2,"Attachment:"&图片名称&".png","050505", 0, 0.9, intX, intY
  6. If intX > -1 And intY > -1 Then
  7. Tap intx + 5, inty - 4
  8. 找图=True'设置找到的返回值
  9. End If
  10. Delay 1000
  11. End Function
复制代码


  • Function如何设置返回多个值

Dim 返回值= 找图(0,0,0,0,"QQ")
TracePrint 返回值["X"],返回值["Y"]
Dim intX,intY
Function 找图(X1, Y1, X2, Y2, 图片名称)

FindPic X1,Y1,X2,Y2,"Attachment:"&图片名称&".png","050505", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
Tap intx + 5, inty - 4

End If
找图={"X":intX,"Y":intY}
Delay 1000
End Function

最后编辑瑞祥幽冥狼 最后编辑于 2022-11-07 16:47:04
本主题由 超级版主 瑞祥幽冥狼 于 2023/6/4 23:31:53 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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#

认真学习

4#


<font color="Magenta">想象</font><font color="Red">之中</font>,<font color="Lime">别人</font><font color="YellowGreen">与我</font><font color="Lime">没有</font><font color="DarkOrchid">不同</font>
5#

66666

6#


脚本订购 软件设计 请联系 QQ:1762272313 添加请注明原因!
脚本订购起步价:100 RMB 非诚勿扰 点击打开淘宝店铺
承接: 小型/中型 个人/工作室 项目脚本开发
提示: 电脑版 / 安卓版[仅限图色脚本 外挂免谈]
软件保障条约:【暂不收徒 不无偿指导 !谢谢支持】
1:脚本维护与更新视情况收费一定的费用!
2:所有定制均需订金,否则勿扰. 非诚勿扰 !
3:天下没有白吃的午餐.所以别浪费彼此宝贵的时间.
4:天道酬勤 ,人道酬诚 .人无信则不立.
7#

好好学习天天向上

8#

不错

9#

11111

10#

看看吧

任何对本人有所帮助的都会给朵鲜花;联系QQ:1586694944
11#

围观老狼

12#

学习学习

13#

顶一个,被迫营业的第六天

14#

学习学习

只要对我有所帮助的,都会献上一朵鲜花。
15#

111111111111

夏天,校园里好多人穿的那么危险,却长得那么安全
16#

大佬666666666666666666

17#

感谢分享,这些子程序,完全可以拿来使用

18#


19#

感谢分享

20#

来学习一下

发新话题 回复该主题