求助关于多线程的子线程通过多选框选中后进不去

mikunshan

有没有大佬帮忙看下，我是通过界面多选框来控制去哪些地图，但是这样，写的代码红色的代码始终没有运行到，问题出在哪里？

Dim 打怪,地图1,地图2
打怪 = Thread.Start(guaiwu)
地图1 = ReadUIConfig("万恶4地图")
地图2 = ReadUIConfig("骨魔地图")

Do///主程序检测是否异常
Call 检查卡屏()
Delay 5000
Loop

Sub guaiwu()//打怪的线程
    Do
    TracePrint "打怪线程启动"
    If 地图1 = true Then
    TracePrint "准备进入万恶打怪了"/////进不去？？
        Call 万恶4()
        End If
        Delay 1000
        If 地图2 = true Then
         TracePrint "准备进入骨魔打怪了"//进不去？？？
        Call 骨魔()
        End If
        Delay 1000
    Loop
End Sub
Sub 万恶4()
    TracePrint "进入万恶打怪了"
    Delay 8000
End Sub
Sub 骨魔()
    TracePrint "进入骨魔打怪了"
    Delay 8000
End Sub
Sub 检查卡屏()
        TracePrint "检查中"
End Sub

8317418

♪(^∇^*)学习一下~~~~

紫猫

多线程等于多脚本，请注意变量作用域

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

Dim 打怪
打怪 = Thread.Start(guaiwu)

Do///主程序检测是否异常
Call 检查卡屏()
Delay 5000
Loop

Sub guaiwu()//打怪的线程
Dim 地图1, 地图2
地图1 = ReadUIConfig("万恶4地图")
地图2 = ReadUIConfig("骨魔地图")
    Do
    TracePrint "打怪线程启动"
    If 地图1 = true Then
    TracePrint "准备进入万恶打怪了"/////进不去？？
        Call 万恶4()
        End If
        Delay 1000
        If 地图2 = true Then
         TracePrint "准备进入骨魔打怪了"//进不去？？？
        Call 骨魔()
        End If
        Delay 1000
    Loop
End Sub
Sub 万恶4()
    TracePrint "进入万恶打怪了"
    Delay 8000
End Sub
Sub 骨魔()
    TracePrint "进入骨魔打怪了"
    Delay 8000
End Sub
Sub 检查卡屏()
        TracePrint "检查中"
End Sub

mikunshan

紫猫 发表于 2022-4-6 19:56
多线程等于多脚本，请注意变量作用域
[mw_shl_code=qscript,true]Dim 打怪
打怪 = Thread.Start(guaiwu)

o(∩_∩)o非常感谢