为什么我这个子程序不允许用 goto

悲伤的节奏 · 发表于 2020-11-1 17:06:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

代码如下

[按键精灵] 纯文本查看 复制代码

Dim intX,intY,随机数,城内出城图
 
Function 信息框(参数)
    ShowMessage (参数)
    TracePrint(参数)
End Function
 
Sub 飞区(大区)
    Do
        FindPic 9,1185,130,1277,城内出城图,"202020",0,0.8,intX,intY
        If intX > -1 And intY > -1 Then '识别城内的最底部出城图标
            信息框 ("提示：正在城内，准备出城")
            Tap intX, intY
            Delay 5000
        End If
        FindMultiColor 234,1045,452,1084,"DDDDDD","111|3|D8D8D8",0,0.8,intX,intY
        If intX > -1 And intY > -1 Then'识别在野外的坐标 X,Y
            信息框 ("提示：正在野外，准备飞区")
            Tap intX, intY
            Delay 1000
        End If
        //    Tap 343,1060'点击查找区/坐标
        Delay (1000)
        FindMultiColor 272, 362, 454, 419, "032E54", "94|-2|103A5D,142|9|042F55,85|17|0F395D", 0, 0.8, intX, intY
        If intX > -1 And intY > -1 Then'识别在野外的坐标 X,Y
            信息框 ("提示：正在野外，输入王国编号")
             
            Tap 269,554'点击王国编号
            Delay (1000)
            信息框 "提示：输入王国编号"
            InputText 大区
            Delay (500)
            KeyPress "enter"
            Delay (1000)
            Tap 356,786'点击确定
            Delay (6000)
             
            Rem feiqu
             
            Delay (2000)
            Tap 334,757'点击这个区的土地
            Delay (2000)
             
        End If
        FindStr(456,811,558,850,"加入王国","6392AD-303030",0.9,intX,intY)
        If intX > -1 And intY > -1 Then
            信息框 "提示：加入王国"
            Tap 510,773'加入王国
            Delay (2000)
            Tap 491,776'确定加入
            Delay (2000)
            Tap 486,786'再次确定加入
            Delay (30000)
        ElseIf FindStr(280, 584, 438, 627, "有几率掉落", "8CB4D0-303030", 0.9, intX, intY) = -1 Then
            Tap 341,1063'点击查找区/坐标
            Delay (1000)
            Tap 209,653'点击X
            Randomize
            随机数 = Int(((1200-1+1) * Rnd()) + 1)   
            Traceprint 随机数
            Delay (1000)
            InputText (随机数)
            Delay (500)
            KeyPress "enter"
            Delay (1000)
            Tap 356,786'点击确定
            Delay (5000)
            Goto feiqu
        ElseIf FindStr(280, 584, 438, 627, "有几率掉落", "8CB4D0-303030", 0.9, intX, intY) > -1 Then
            Tap 495, 182
            Delay 2000
            Tap 341,1063'点击查找区/坐标
            Delay (1000)
            Tap 209,653'点击X
            Randomize
            随机数 = Int(((1200-1+1) * Rnd()) + 1)   
            Traceprint 随机数
            Delay (1000)
            InputText (随机数)
            Delay (500)
            KeyPress "enter"
            Delay (1000)
            Tap 356,786'点击确定
            Delay (5000)  
            Goto feiqu
        End If
         
        FindMultiColor 17,1194,135,1275,"1D486F","22|14|447C9A,14|-8|183052,51|26|7BCFE7",0,0.9,intX,intY
        If intX = -1 And intY = -1 Then
            信息框 "提示：回城"
            Tap 71,1242'回城
            Delay (3000)
            Exit Do
        End If
    Loop
     
End Sub

子程序内2个goto 调试的时候一直显示
第68行：外部错误： no visible label 'ide9a39ee58cba3a4645495155' for <goto> at line 68。错误码=1202722087
求个大佬帮我看看是什么原因

紫猫 · 发表于 2020-11-2 20:04:39

作用域问题, 跳不出去, 平时不推荐用goto, 你可以考虑用if配合do循环加上exit do来写代码结构

用户名		自动登录	找回密码
密码			立即注册

[已回复] 为什么我这个子程序不允许用 goto

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。