按键精灵手机版教程第三课:循环与判断

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

  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行的代码就实现了满屏的点击。还可以通过修改偏移距离来改变点击的密度。

●本文来源互联网及网友投稿,如有侵权请及时联系本站进行删除。
●转载原创文章请保留地址及版权信息,否则侵权必究。
●分享目的仅供大家学习和交流,请不要用于商业用途。
●该资源版权归原著作者所有,请于下载后24小时内删除。
●如有链接无法下载、失效或广告,请联系右侧点击QQ咨询处理。
●本站资源售价只是赞助,收取费用仅维持本站的日常运营所需。
●如遇到加密压缩包,默认解压密码为"fdeer.com",如遇到无法解压的请联系管理员。

飞鹿日志 » 按键精灵手机版教程第三课:循环与判断

发表回复