【按键精灵教程】按键精灵代码常见错误

金猪脚本（原飞猪脚本）以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想制作脚本和学习按键精灵的朋友可以添加按键精灵学习交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.

1：定义变量时直接赋值[backcolor=rgb(247, 247, 247)]

报错提示：没有找到合法的符号

1. //（错误代码0）没有找到合法的符号
2. Dim a = 1

复制代码

[backcolor=rgb(247, 247, 247)]

正确代码：定义变量时不能直接赋值哦~

1. Dim a
2. a = 1

复制代码

[backcolor=rgb(247, 247, 247)]

2：循环语句未设置循环次数

[backcolor=rgb(247, 247, 247)]报错提示：没有找到合法的符号

1. //第0行：无法计算取值。错误附加码=775:0
2. For '（错误码0）没有找到合法的符号。
3. MessageBox a
4. Next

复制代码

正确代码：循环语句，需要在for循环后面，加上循环次数哦~不然电脑那么笨……

1. For 5
2. MessageBox a
3. Next

复制代码

3：语句书写不全

[backcolor=rgb(247, 247, 247)]报错提示：无法计算取值。错误附加码=775:0

1. //语句书写不全
2. For i = 0 To 10 step
3. Next

复制代码

正确代码：循环语句，在步径step后，需要指定具体的数值：如step 2 ，每次循环结束的时候变量+2；step 1，每次循环结束变量+1。

1. For i = 0 To 10 step 1
2. Next

复制代码

4：未设置循环条件

[backcolor=rgb(247, 247, 247)]报错提示：[backcolor=rgb(255, 255, 255)]无法计算取值。错误附加码=775:0

1. //语法错误：脚本 11-12 ，第21行，第7个字符：（错误码0）没有找到合法的符号。
2. //语义错误：脚本 11-12 ，第0行：无法计算取值。错误附加码=775:0
3. While
4. Wend

复制代码

正确代码：亲，没有定义变量，也没有设置while的循环条件哦（while后面加一个参数：循环条件）

1. Dim a
2. a = 1
3. While a = 1
4. Wend

复制代码

5：变量名与子程序、子函数重名

[backcolor=rgb(247, 247, 247)]报错提示：名称有重复。错误附加码=3102:0

1. //语义错误：脚本 11-12 ，第60行：名称有重复。错误附加码=3102:0
2. Dim 找字
3. Sub 找字()
4. End Sub

复制代码

正确代码：定义的变量名称，不能与已有的子程序或者子函数重名哦~不然按键无法判断你想调用的是谁~

6：取数组元素下标超出范围

报错提示：下标越界: '[number: 11]'

1. //脚本 **.Q ，第**行：下标越界: '[number: 11]',
2. Dim a(9)
3. MessageBox a(11)

复制代码

正确代码：在按键精灵中，定义数组时dim a(9)，意味着数组a的最大下限是a(9)。而在调用的时候，记得千万不能超过定义的数组下限哦·~~

7：错误类型作大小比较

[backcolor=rgb(247, 247, 247)]报错提示：类型不匹配: 'A'

1. //脚本 11-12.Q ，第37行：类型不匹配: 'A',
2. Dim a
3. a = "a"
4. If a > 1 Then
5. MessageBox "a大于1"
6. End If

复制代码

正确代码：“If a > 1”，左边是字符串，右边是数值，无法进行比较~若需要将其作比较可先将字符串转换成ANSI代码后比较

1. Dim a
2. a = "a"
3. //得到"a"的ANSI字符代码后作大小比较
4. If Asc(a) > 1 Then
5. MessageBox "a大于1"
6. End If

复制代码

8：使用数组未先定义

[backcolor=rgb(247, 247, 247)]报错提示：类型不匹配:

1. //脚本 11-12.Q ，第52行：类型不匹配: 'MYARRAY',
2. //脚本 11-12.Q ，第53行：类型不匹配: 'A',
3. W1 = Clng(MyArray(0))
4. w1=clng(a(1))

复制代码

正确代码：又是一个调用变量的时候，没有好好定义的忧桑错误：

1. Dim MyArray(5)
2. Dim a(5)
3. W1 = Clng(MyArray(0))
4. w1=clng(a(1))

复制代码

9：延时命令不合理

1. Delay 6000
2. //上面语句可用下面的限定次数循环语句取代，可解决按停止键停不下来的情况。
3. For 60
4. Delay 100
5. Next

复制代码