关于按键精灵手机助手

qi13678274649

老哥们，我想问下按键助手里面的计次循环
比如
识别文字  = Smartocr(坐标，颜色)
A  = readuiconfig(输入框1)
B = readuiconfig(输入框2)
do
IF 识别文字  =  A  then
tap 123,456
else
tap 456,789
end  if
loop

我现在想要实现，输入框2如果输入5那么上面这个运行5次以后退出循环或者停止脚本 ，没到5次就一直循环，该怎么写
感谢各位大佬

pnccm

识别文字  = Smartocr(坐标，颜色)
A  = readuiconfig(输入框1)
B = readuiconfig(输入框2)
do
    IF 识别文字  =  A  then
        Tap 123, 456
        次数 = 次数 + 1
    else
        tap 456,789
    End If
    If 次数 = B Then
            Exit Do
    End If
Loop
这不就是在识别到用一个变量叠加,然后下面加一个判断 识别到的次数 = 输入框2 就跳出吗

406873828

识别文字  = Smartocr(坐标，颜色)
A  = readuiconfig(输入框1)
B = readuiconfig(输入框2)
c=0
do
IF C=B THEN
CALL xxx()
c=c+1
else
IF 识别文字  =  A  then
tap 123,456
else
tap 456,789
end  if
end  if
loop

补充内容 (2024-4-27 06:40):
CALL xxx()           这个位置写 跳到别的程序 或 者结束循环

qi13678274649

406873828 发表于 2024-4-27 06:39
识别文字  = Smartocr(坐标，颜色)
A  = readuiconfig(输入框1)
B = readuiconfig(输入框2)

老哥，感觉有问题，我加了个调皮输出c 他一直输出0  把c=c+1放外面就一直计次

pnccm

识别文字  = Smartocr(坐标，颜色)
A  = readuiconfig(输入框1)
B = readuiconfig(输入框2)
For B
    IF 识别文字  =  A  then
        tap 123,456
    else
        tap 456,789
    end  if
Next

pnccm

A  = readuiconfig(输入框1)
B = readuiconfig(输入框2)
For B
识别文字  = Smartocr(坐标，颜色)
    IF 识别文字  =  A  then
        tap 123,456
    else
        tap 456,789
    end  if
Next

qi13678274649

pnccm 发表于 2024-4-27 12:17
A  = readuiconfig(输入框1)
B = readuiconfig(输入框2)
For B

老哥，这样不行，不管识别文字是不是等于编辑框1  都是循环5次就退出了，我想要他如果不等于5次就继续循环 等于5次停止

pnccm

qi13678274649 发表于 2024-4-27 13:00
老哥，这样不行，不管识别文字是不是等于编辑框1  都是循环5次就退出了，我想要他如果不等于5次就继续循 ...

找到就要跳出循环找不到就继续循环找5次? 那可以在 tap 123,456 下面加上exit for跳出循环

pnccm

你的问题是不是找到识别文字后点击后跳出循环  找不到就继续循环找 找5次后就停止循环

补充内容 (2024-4-27 13:49):
就是循环五次识别文字 找到跳出点击跳出循环 没找到循环5次停止循环

qq1004043585

VB 语法 不是简简单单

[Visual Basic] 纯文本查看 复制代码

'A = 要识别的文字
'B = 要循环的次数
'C = 循环次数
Dim C = 0

For B
        If C = B Then 
                C = 0
                Exit For' 退出循环
                Call Test()
        End If
        
        C = C + 1
        
        If 识别文字 = A Then 
                '点击1
        Else 
                ’点击2
        End If
Next


Sub Test()
        '这是 Call
End Sub