按键精灵手机版2.5基础教程
3.循环与判断
游戏中，我们很经常碰到需要来不断点击的地方，例如需要来回点击1000次，3分钟过去了，手快的童鞋已经写到第10次点击，单身30年的童鞋已经写到第300次。。。。在这里，我们可以使用循环来对已经写好的代码进行重复运行，例如点击一个坐标（10,10）1000次，我们可以这样写：
当然，有时候我们并不需要限制次数，那么我们可以这样： 使用For来循环，循环规定次数后就会继续向下执行，但是用Do来循环，会导致程序卡死在这个循环里不往下走，那么我们怎么来解决这个问题呢，退出循环使用Exit命令，在For循环里就是Exit For，在Do循环里就是Exit Do，如果直接使用的话，这个循环将毫无意义，肯定要有条件来触使以退出循环，此时，我们需要判断语句来处理。一个简单的判断语句：- If 1 = 1 Then //如果 “条件” 则
- TracePrint “1果然是等于1”
- Else //否则
- TracePrint “纳尼，1居然不等于1”
- End If //结束判定语句
- 您所在的用户组无法下载或查看附件
恩，也许来个例子更清晰，那么我们来写一个满屏点击的脚本吧，直接贴代码：
- Dim 记录循环次数 = 0
- Dim 起始点X = 0
- Dim 起始点Y = 0
- Dim 结束点X = GetScreenX()
- Dim 结束点Y = GetScreenY()
- Dim 偏移距离 = 50
- Dim 横向次数 = (结束点X-起始点X)/偏移距离
- Dim 纵向次数 = (结束点Y-起始点Y)/偏移距离
- Do
- For i = 0 To 横向次数
- For j = 0 To 纵向次数
- Tap 起始点X + 偏移距离 * i, 起始点Y + 偏移距离 * j
- Next
- Next
- 记录循环次数 = 记录循环次数 + 1
- TracePrint "循环次数："&记录循环次数
- Loop
可以看到，使用了2个循环之后，只用了不到20行的代码就实现了满屏的点击。还可以通过修改偏移距离来改变点击的密度。
闽公网安备 35010002000112号