[已回复] 求助关于多线程的子线程通过多选框选中后进不去

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