游戏中，我们很经常碰到需要来不断点击的地方，例如需要来回点击1000次，3分钟过去了，手快的童鞋已经写到第10次点击，单身30年的童鞋已经写到第300次。。。。在这里，我们可以使用循环来对已经写好的代码进行重复运行，例如点击一个坐标（10,10）1000次，我们可以这样写：

  1. For 1000
  2. Tap 10,10
  3. Next

当然，有时候我们并不需要限制次数，那么我们可以这样：

  1. Do
  2. Tap 10,10
  3. Loop

使用For来循环，循环规定次数后就会继续向下执行，但是用Do来循环，会导致程序卡死在这个循环里不往下走，那么我们怎么来解决这个问题呢，退出循环使用Exit命令，在For循环里就是Exit For，在Do循环里就是Exit Do，如果直接使用的话，这个循环将毫无意义，肯定要有条件来触使以退出循环，此时，我们需要判断语句来处理。一个简单的判断语句：

  1. If 1 = 1 Then //如果 “条件” 则
  2. TracePrint “1果然是等于1”
  3. Else //否则
  4. TracePrint “纳尼，1居然不等于1”
  5. End If //结束判定语句

这几个语句都是相当实用的，因此最好记住，当然，用多了自然也就记住了，这些语句还有一些其他写法（比如For I=0 To 10 Step 1），童鞋门可以打开命令大全，找到下图，搜索更多用法！（即便不背下来也务必看一遍，相当有用哦）

 

恩，也许来个例子更清晰，那么我们来写一个满屏点击的脚本吧，直接贴代码：

  1. Dim 记录循环次数 = 0
  2. Dim 起始点X = 0
  3. Dim 起始点Y = 0
  4. Dim 结束点X = GetScreenX()
  5. Dim 结束点Y = GetScreenY()
  6. Dim 偏移距离 = 50
  7. Dim 横向次数 = (结束点X-起始点X)/偏移距离
  8. Dim 纵向次数 = (结束点Y-起始点Y)/偏移距离
  9. Do
  10. For i = 0 To 横向次数
  11. For j = 0 To 纵向次数
  12. Tap 起始点X + 偏移距离 * i, 起始点Y + 偏移距离 * j
  13. Next
  14. Next
  15. 记录循环次数 = 记录循环次数 + 1
  16. TracePrint “循环次数：”&记录循环次数
  17. Loop

可以看到，使用了2个循环之后，只用了不到20行的代码就实现了满屏的点击。还可以通过修改偏移距离来改变点击的密度。

声明：
本站所有文章，如无特殊说明或标注，均为本站原创发布。
任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。
如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。