[按键精灵手机版2.5基础教程] 3.循环与判断

2024-06-29 21:32| 来源: 网络整理| 查看: 265

按键精灵手机版2.5基础教程

3.循环与判断

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

For 1000 Tap 10,10 Next 复制代码当然，有时候我们并不需要限制次数，那么我们可以这样：Do Tap 10,10 Loop 复制代码使用For来循环，循环规定次数后就会继续向下执行，但是用Do来循环，会导致程序卡死在这个循环里不往下走，那么我们怎么来解决这个问题呢，退出循环使用Exit命令，在For循环里就是Exit For，在Do循环里就是Exit Do，如果直接使用的话，这个循环将毫无意义，肯定要有条件来触使以退出循环，此时，我们需要判断语句来处理。一个简单的判断语句：If 1 = 1 Then //如果 “条件” 则 TracePrint “1果然是等于1” Else //否则 TracePrint “纳尼，1居然不等于1” End If //结束判定语句复制代码这几个语句都是相当实用的，因此最好记住，当然，用多了自然也就记住了，这些语句还有一些其他写法（比如For I=0 To 10 Step 1），童鞋门可以打开命令大全，找到下图，搜索更多用法！（即便不背下来也务必看一遍，相当有用哦）

您所在的用户组无法下载或查看附件

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

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

【本文地址】

公司简介

联系我们