线程扩展开启

kim1971

功能 开始_点击()
    线程扩展开启("开始线程","","结束线程","")
结束
功能 线程扩展开启(开始线程,参数,结束线程,参数1)
    变量 线程句柄=线程开启(开始线程,参数)  
    变量 线程状态=线程获取状态(线程句柄)
    循环(真)
        线程状态=线程获取状态(线程句柄)
        如果(!线程状态)
            变量 线程句柄1=线程开启(结束线程,参数1)
            跳出
        结束
        超级等待(5)//防假死机 搬砖来的
    结束
结束
功能 开始线程()
    变量 len=50
    遍历(变量 i = 0; i < len; i++)
        调试输出(i)
    结束
结束
功能 结束线程()
    变量  len=50
    遍历(变量 i = 0; i < len; i++)
        调试输出(i)
    结束
结束
功能 超级等待(毫秒)
    变量 s = 获取系统时间()   
    循环 (获取系统时间() - s <= 毫秒)
        dllcall("msvbvm60.dll","void","rtcDoEvents")
        等待(1)
    结束   
结束

Miss三三

赞一个