线程安全关闭失败，强制关闭脚本崩溃

qq5111059

偶尔会出现，线程安全关闭失败，强制关闭脚本崩溃，如何解决？ 还有两个问题：1.安全关闭为什么失败，是线程等待中吗？2.强制关闭中的线程是否处于等待状态，如何判断？
代码如下



线程1=线程.开启("DH.data","")

功能 data()
    整型 窗口句柄,进程句柄
    窗口句柄=窗口.找到窗口("11111111")
    int 整型窗口句柄,位置
    辅助.等待(1000)
    窗口.激活(窗口句柄)
    辅助.等待(1000)
    窗口.设置位置(窗口句柄,0,0)
    辅助.等待(500)


    dm.SetPath(辅助.获取资源路径("rc:"))
    辅助.等待(200)
    dm.SetDict(0,"wx.txt")


    循环(真)

        DH.获取答案()




    循环结束


endfunction



功能 获取答案()
    整型 窗口句柄,进程句柄
    窗口句柄=窗口.找到窗口("11111111")
    int 整型窗口句柄,位置
    //辅助.等待(1000)
    //窗口.激活(窗口句柄)
    //辅助.等待(1000)
    //窗口.设置位置(窗口句柄,0,0)
    //辅助.等待(2000)
    //窗口.设置位置(窗口句柄,0,0)
    //辅助.等待(1000)

    mk=DH.MK()
    循环(真)
        辅助.等待(500)
        dm.FindPic(0,0,2000,2000,"123修改器.bmp","000000",0.98,0,x,y)
        如果(x>0)
            辅助.等待(500)
            鼠标.移动(x,y)
            辅助.等待(500)
            DH.鼠标点击()
            辅助.等待(100)
        如果结束


        help.sleep(500)
        辅助.等待(500)
        dm.FindPic(0,0,2000,2000,"随机保存.bmp","000000",0.98,0,x,y)
        如果(x>0)

            跳出
        如果结束
        help.sleep(500)
        help.sleep(500)
        如果(DH.MT(mk)>100000)
            线程2=线程.开启("DH.CCC","")
        如果结束
    循环结束


    mk=DH.MK()
    循环(真)
        辅助.等待(500)
        dm.FindPic(0,0,2000,2000,"随机保存.bmp","000000",0.98,0,x,y)
        如果(x>0)
            辅助.等待(500)
            鼠标.移动(x,y)
            辅助.等待(500)
            DH.鼠标点击()

        如果结束


        help.sleep(500)
        dm.FindPic(0,0,2000,2000,"保存成功.bmp","000000",0.98,0,x,y)
        如果(x>0)

            跳出
        如果结束
        help.sleep(500)
        help.sleep(500)
        如果(DH.MT(mk)>100000)
            线程2=线程.开启("DH.CCC","")
        如果结束
    循环结束

endfunction


function CCC()
    循环(真)
        线程.关闭(线程1,1)
        nowuser=1
        辅助.等待(500)
        线程1=线程.开启("DH. data","")
        如果(线程1>0)
            跳出
        如果结束
    循环结束
endfunction

言术

你TC版本是3.0还是4.0的？