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

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.1
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

登录 注册
发新话题 回复该主题

[已解决] 请教下工程师两个问题,一个是循环,一个是滑屏的 [复制链接]

1#

谢谢了!

第一个问题是:

Function 右边任务栏查找 '查找指定对象的图片,对象坐标为范围坐标

Dim 对象 = {"点击师门":"221,1029,614,1086,Attachment:右边任务栏_师门.png,000000"}

右边任务栏查找 = 找图点击(对象)

TracePrint "123"


Select Case 找图点击(对象)



Case Else



TouchDown 234,1053, 1//按住屏幕上的100,100坐标不放,并设置此触点ID=1

TouchMove 521,1054, 1, 500//ID=1的触点花1000毫秒移动至300,300坐标

TouchUp 1//松开弹起ID=1的触点

case Else

TouchDown 521,1054, 1//按住屏幕上的100,100坐标不放,并设置此触点ID=1

TouchMove 234, 1053, 1, 500

TouchUp 1


End Select

End Function

我这个是错误的语法,不知道怎么去写了,这个任务栏是可以滑动的,任务不是固定的位置,有可能第二天就到下面了,需要去找,我是想如果没找到进行滑动,AB5,还没找到的话再从B滑动到A6,循环2次还没找到的话放弃任务.

第二个问题是:

我现在写的程序,想在一个小命令多次查找循环后如果没找到退出循环继续进行下个命令.我是怎么改都不行,要么不会退出,要么报错.

Function 点击任意地方继续

Dim 对象

对象 = {"对话中1":"663,1213,717,1278,F7FFFF,-4|5|E6EAEC,-11|9|C0D0E5,-15|7|B5CADF,-21|-1|F7FFFF,-20|-7|E2ECF5,-14|-9|E3E5F0,-9|-9|AFD3EC,1|-15|84A3D9"}

//对象(1) = {"对话中2":"0,0,0,0,252|679|3F4E79,254|679|42557E,265|723|4A619B,255|735|415581,246|716|6392DE,249|730|3C4C76,278|756|B3D1F6,255|751|5A6C9C"}

点击任意地方继续 = 找色点击(对象)

End Function


本主题由 超级版主 n15976906190 于 2019/10/6 8:27:03 执行 审核帖子 操作
2#

回复 1楼xsz9527的帖子
  1. Function 右边任务栏查找
  2. Dim 值
  3. Dim 对象 = {"点击师门":"221,1029,614,1086,Attachment:右边任务栏_师门.png,000000"}'参考答复2修改
  4. 值 = 找图点击(对象)'将结果保存到变量<值>内
  5. TracePrint "123"
  6. Select Case 值'应判断第3行<找图点击(对象)>返回保存到<右边任务栏查找>的值 而不是再次调用后来判断返回值
  7. Case "1"'如果返回1 这里应该写1
  8. TouchDown 234,1053, 1
  9. TouchMove 521,1054, 1, 500
  10. TouchUp 1
  11. case Else
  12. TouchDown 521,1054, 1
  13. TouchMove 234, 1053, 1, 500
  14. TouchUp 1
  15. End Select
  16. 右边任务栏查找=值'将<值>赋值给函数返回
  17. '建议学好基础 只能纠正你代码错误 服务应对你游戏具体情况修改
  18. End Function
复制代码
  1. Dim 对象
  2. 对象 = {"对话中1","663","1213","717","1278","F7FFFF","-4|5|E6EAEC,-11|9|C0D0E5,-15|7|B5CADF,-21|-1|F7FFFF,-20|-7|E2ECF5,-14|-9|E3E5F0,-9|-9|AFD3EC,1|-15|84A3D9"}
  3. TracePrint 对象(1)'一个参数一个参数定义数组 而不是全部写在""内
  4. call 找色点击(对象)
  5. Sub 找色点击(参数1)
  6. Dim IntX,IntY
  7. For 10'找10次
  8. FindMultiColor 对象(1),对象(2),对象(3),对象(4),对象(5),对象(6),0,0.9,intX,intY
  9. If intX > -1 Then
  10. TracePrint "找到啦,坐标在"&intX&","&intY
  11. Exit For'找到提前退出
  12. Else
  13. TracePrint "没找到"
  14. End If
  15. Delay 1000
  16. Next
  17. End Sub
复制代码

收徒索引 ←点击

个 人 Q Q : 1 2 2 3 1 1 6 6 1 8
3#

回复 2楼n15976906190的帖子

好的,谢谢了,我是刚开始学不到一星期,也没学过其他的语言,只能慢慢摸索了,这些应该是没看到过教程,还是不太懂的,我仔细摸索下,非常感谢

发新话题 回复该主题