Question

按键精灵 IF 语句问题

代码A:
Dim A
A = GetPixelColor(690, 1150)
If A = "FFFFFF" Then
TouchDown 450,650,1
End If
If A = "5A5AFF" Then
Tap 300, 1100
Delay 2000
插入代码B
End If

代码B：
Function _Rnd(num)
_Rnd = Int((num + 1) * Rnd())
End Function
Function _Rnd_Name()
Dim B = Array("张三", "李四")
_Rnd_Name = B(_Rnd(27))
End Function
InputText _Rnd_Name()

把代码B 插入代码A 最后的位子
代码目的
1 判断指定坐标点颜色
2 如果是FFFFFF颜色 则
3 如果是5A5AFF颜色 则
4 重复

代码A和B 单独都能运行

Answer 1

题主做的是按散郑键唤掘宽精灵随机取名吗？修改了一下代码，如下

Dim A
Do
    A = GetPixelColor(690, 1150)
    If A = "FFFFFF" Then 
   和亮     TouchDown 450,650,1
    ElseIf A = "5A5AFF" Then 
        Tap 300, 1100 
        Delay 2000
        InputText _Rnd_Name()
    End If
Loop
Function _Rnd(num)
    Randomize
    _Rnd = Int((num + 1) * Rnd()) 
End Function
Function _Rnd_Name()
    Dim B = Array("张三", "李四")
    _Rnd_Name = B(_Rnd(1))
End Function

追问

大神 太感谢了 完全正确
要不我再随便提个问题 你去回答我来采纳 给你送分好不好
太感谢你了

追答

不客气，送分不用了，记得采纳回答即可。另外你如果是随机取名的话，写2个函数有点多余了，你可以组合成1个函数

追问

大神 能帮忙优化一下吗？

追答

Function _Rnd_Name(num)
Dim B = Array("张三", "李四")
Randomize
r = Int((num + 1) * Rnd())
_Rnd_Name = B(r)
End Function

追问

错误：第4行：名称 r 没有定义。错误码=1996
错误：第5行：名称 r 没有定义。错误码=1996

追答

在前面加个 dim r