
//函数名:EXECTimeOut
//功能:带超时等待执行命令
//参数: 超时(毫秒) 命令及其参数
_SUB EXECTimeOut,L0T0W1H1
    ENVI @this.Visable=0
    ENVI &&GETIP=0
    ENVI &&WINID1=%&__WinID%
    ENVI @this.MSG=#2: TEAM MESS #1| ENVI  &GETIP=1
    ENVI @this.MSG=#1: TEAM KILL \  //| MESS 333333 [%&I1%]
    ENVI &&A1=%1
    ENVI &&T0=50
    CALC #&&I1 = %&A1% / %&T0%
    //TIME T1,%&T0%,  CALL EXECTimeOut_FUN2  //旧版
    TIME T1,%&T0%,  TEAM CALC #&I1=%&I1%-1| IFEX $ %&I1% <= 0, ENVI  @this.POSTMSG=#1  //
    MSTR &&CMD=<2->%*
    THREAD  TEAM  %&CMD%|  ENVI  @@POSTMSG=%&WINID1%;#1 
_END
//////测试
FIND $1 = %&&__MAIN__%,  //此后IMPORT 不调入。 嵌入LOAD 不执行
{
    LOGS *E:\X.LOG
    CALL EXECTimeOut 10000  EXEC =CMD
    TEAM LOGS| EXEC $E:\X.LOG
    //MESS END
}
