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

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

按键精灵安卓版
立即下载

软件版本:3.3.8
软件大小:62.5M
更新时间:12-18

按键精灵iOS版
立即下载

软件版本:1.7.1
软件大小:29.2M
更新时间:06-22

最新企业版UiBot
立即下载

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

快捷导航

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

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

[已解决] 求写一个循环命令 [复制链接]

1#
本人超级小白一个,希望大大能把代码写得详细一些,谢谢!
我需要写一个判断循环命令:首先执行一段代码A,执行完毕后找图1,找到图1则按一次空格键然后跳出循环;如果没有找到图则继续执行代码A;

本主题由 超级版主 瑞祥幽冥狼 于 2021/8/2 8:03:40 执行 审核帖子 操作
2#

回复 1楼laurel110的帖子
  1. Do
  2. '代码A
  3. FindPic 0,0,1024,768,"Attachment:\图1.bmp",0.9,intX,intY
  4. If intX > 0 And intY > 0 Then
  5. KeyPress "Space", 1
  6. Exit Do
  7. End If
  8. Delay 1000
  9. Loop
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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[可加]
3#

回复 2楼瑞祥幽冥狼的帖子

A代码里面也有一个找图,所以就是图2了,但是这个循环结束不了,我可以确定代码已经找到了图2,但是这个循环他不能跳出去,还会继续循环,请指导一下,谢谢!
Do
KeyPress "F7", 1
KeyPress "Z", 1
KeyDown 18, 1
KeyPress 67, 1
KeyUp 18, 1
KeyPress "1", 1
KeyPress "6", 1
KeyPress "Enter", 1
KeyPress "Enter", 1
FindPic 0,0,1800,900,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
End If
LeftClick 1
Delay 1500
Delay 1000
FindPic 0,0,1800,900,"Attachment:\图2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Exit Do
KeyPress "Space", 1
End If
Delay 1000
Loop

4#

回复 3楼laurel110的帖子

脚本属性>运行>脚本循环>循环1次
  1. FindPic 0,0,1800,900,"Attachment:\图2.bmp",0.9,intX,intY
  2. If intX > 0 And intY > 0 Then
  3. MsgBox "找到图2"'如果找到会有弹窗 不是你设置了脚本无限循环属性 就是你没找到图2
  4. KeyPress "Space", 1'应该先按空格在退出
  5. Exit Do
  6. End If
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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[可加]
5#

回复 4楼瑞祥幽冥狼的帖子

谢谢找到原因了,是因为没找到图2的原因。
现在我想在A代码执行完毕后先找图3,找到图3就鼠标移动过去单击一下,然后执行找图2,;如果没找到图3就直接执行找图2。

Do
KeyPress "F7", 1
KeyPress "Z", 1
KeyDown 18, 1
KeyPress 67, 1
KeyUp 18, 1
KeyPress "3", 1
KeyPress "Enter", 1
KeyPress "Enter", 1
FindPic 0,0,1800,900,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
LeftClick 1
End If
Delay 4000
FindPic 0,0,1800,900,"Attachment:\2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyPress "Space", 1
Exit Do
End If
Delay 1000
Loop

6#

回复 4楼瑞祥幽冥狼的帖子

版主大大,麻烦再指导一下呢(楼上我回复了,还有个问题想麻烦您再指导一下!)

7#

回复 5楼laurel110的帖子
  1. Do
  2. KeyPress "F7", 1
  3. KeyPress "Z", 1
  4. KeyDown 18, 1
  5. KeyPress 67, 1
  6. KeyUp 18, 1
  7. KeyPress "3", 1
  8. KeyPress "Enter", 1
  9. KeyPress "Enter", 1
  10. FindPic 0,0,1800,900,"Attachment:\3.bmp",0.9,intX,intY
  11. If intX > 0 And intY > 0 Then
  12. MoveTo intX, intY
  13. LeftClick 1
  14. Delay 4000'延迟放这里 找不到图3就不延迟了
  15. End If
  16. FindPic 0,0,1800,900,"Attachment:\2.bmp",0.9,intX,intY
  17. If intX > 0 And intY > 0 Then
  18. KeyPress "Space", 1
  19. Exit Do
  20. End If
  21. Delay 1000
  22. Loop
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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[可加]
发新话题 回复该主题