找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 3555|回复: 1

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

[复制链接]

1

主题

1

回帖

2

积分

学前班

鲜花
0
猫粮
5
发表于 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
求个大佬帮我看看是什么原因
楼主热帖
  • 打卡等级:寻得绝学

1082

主题

2116

回帖

4300

积分

院长

鲜花
7
猫粮
6481
QQ
发表于 2020-11-2 20:04:39 | 显示全部楼层
作用域问题, 跳不出去, 平时不推荐用goto, 你可以考虑用if配合do循环加上exit do来写代码结构
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2024-5-29 00:41

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表