本帖最后由 cihron 于 2016-9-19 23:41 编辑
废话不说,直接上代码:#include"CoProc.au3"
_CoProcReciver("Serv_Main") ; 注册主服务,接收子进程消息
_CoProc("Query", "11" ) ; 进程 1
_CoProc("Query", "12" ) ; 进程 2
_CoProc("Query", "13" ) ; 进程 3
While True
Sleep(300)
WEnd
;-------------------------------------------------------
Func Serv_Main( $sParam ) ; 主进程 接收子进程发来的数据
$aParam = StringSplit($sParam, "|")
$sFuncNo = $aParam[1]
$sProcNo = $aParam[2]
$sParam = $aParam[3]
$sItemText = StringReplace( $sParam, "/", "|" )
ConsoleWrite( $sItemText & @CRLF )
EndFunc
Func Query( $sParam )
For $i = 1 To 100 ; 向主进程发送 100 个数据
_CoProcSend($gi_CoProcParent,"18|" & "|" & @HOUR & ":" & @MIN & ":" & @SEC & "/" & $sParam & "/" & $i )
Next
EndFunc
|