Sooloom 发表于 2009-9-24 09:13:45

Autoit里用多进程模拟多线程

Autoit里用多进程模拟多线程

一直以来Autoit都不支持多线程,因此一些需要同时运行多个循环的操作也就无法实现。这个问题在其它的某些语言里也经常出现,解决的方法就是使用多进程。

所谓多进程,就是同时运行多个子进程,每个子进程负责不同的操作,藉此达到和多线程相当的效果。Autoit本身已经具备了实现多进程的条件,且已经有人完成了相关的自定义函数。下面我将具体讲解如何利用这些自定义函数实现多进程。

首先到http://www.autoitscript.com/forum/index.php?showtopic=29326&hl=CoProc下载CoProc.zip,压缩包里的CoProc.au3包含了实现多进程的相关函数,你可以把这个文件复制到Include目录下。

函数使用说明:

_CoProc() 这个函数的作用是启动自己的子进程,然后执行指定的函数。比方说如果你想另开一个进程执行“fuck”函数,代码写_CoProc("fuck")就行了。这个函数会返回子进程的PID,在对子进程进行操作时会用到这个PID。另外,你可以无限制开启子进程,且每个子进程都可以建立完全独立的GUI。

_ProcSuspend() & _ProcResume() 暂停/恢复进程。如果你开了一个子进程专门下载文件,就可以利用这两个函数暂停/继续下载。范例:_ProcSuspend(@PID) 。

_CloseHandle() 关闭子进程。范例:_CloseHandle(@PID) 。

_CoProcSend() 向指定进程发送消息。当子进程有新的信息(比如完成下载)需要提示母进程时,就可以使用这个函数。范例:_CoProcSend($PID, "发送的消息内容")。

_CoProcReciver() 注册一个函数用于接收其他进程用_CoProcSend函数传递过来的消息,每当收到消息时注册的函数就会被执行。需要注意的是,被注册的函数必须有且只有一个自定义参数,而传递的参数里就是发送过来的消息。范例:_CoProcReciver("函数名称")。

例子:

CODE: AutoIt#NoTrayIcon
#include "CoProc.au3"

#region 主程序区域
#include <GUIConstants.au3>
$Form1 = GUICreate("Multiple File Download", 622, 119, 192, 125)
GUICtrlCreateLabel("http://www.mv.com/test/paths.txt (1Mb)", 8, 8)
GUICtrlCreateLabel("http://support.shaw.ca/troubleshooting/files/download.dat (20Mb)", 8, 48)
$Progress1 = GUICtrlCreateProgress(8, 24, 601, 17)
$Progress2 = GUICtrlCreateProgress(8, 64, 601, 17)
$Button1 = GUICtrlCreateButton("Pause", 8, 88, 81, 25)
$Button2 = GUICtrlCreateButton("Resume", 96, 88, 81, 25)

$iPidSmall = _CoProc("Small") ;开启子进程,子进程将执行Small()函数,$iPidSmall得到的是子进程的PID
$iPidBig = _CoProc("Big")
GUISetState(@SW_SHOW)

_CoProcReciver("Reciver") ;注册Reciver()函数来接收子进程传递过来的消息

While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
    Case $msg = $Button1
          _ProcSuspend($iPidSmall) ;暂停$iPidSmall这个子进程
          _ProcSuspend($iPidBig)
    Case $msg = $Button2
          _ProcResume($iPidSmall) ;恢复$iPidSmall子进程
          _ProcResume($iPidBig)
    Case Else
      ;
    EndSelect
WEnd
FileDelete(@TempDir & "\smalltest.tmp")
FileDelete(@TempDir & "\bigtest.tmp")
Exit

Func Reciver($vParameter)
    ;$vParameter里就是子进程发来的消息
    $aParam = StringSplit($vParameter,"|")
    If $aParam = "small" Then GUICtrlSetData($Progress1,$aParam)
    If $aParam = "big" Then GUICtrlSetData($Progress2,$aParam)
EndFunc
#endregion

#region Small()函数里是'Small file'子进程的所要执行的代码
Func Small()
    $url = "http://www.mv.com/test/paths.txt"
    $size = InetGetSize($url)
    InetGet($url,@TempDir & "\smalltest.tmp",1,1)
    While @InetGetActive And ProcessExists($gi_CoProcParent)
      ;在下载时不断向父进程发送下载进度,$gi_CoProcParent是父进程的PID,这个变量是函数自己建立的
          _CoProcSend($gi_CoProcParent,"small|" & Round(@InetGetBytesRead / $size * 100,0))
      Sleep(250)
    WEnd
      _CoProcSend($gi_CoProcParent,"small|100")
EndFunc
#endregion

#region 'Big file'子进程执行的代码
Func Big()
    $url = "http://support.shaw.ca/troubleshooting/files/download.dat"
    $size = InetGetSize($url)
    InetGet($url,@TempDir & "\bigtest.tmp",1,1)
    While @InetGetActive And ProcessExists($gi_CoProcParent)
          _CoProcSend($gi_CoProcParent,"big|" & Round(@InetGetBytesRead / $size * 100,0))
      Sleep(250)
    WEnd
      _CoProcSend($gi_CoProcParent,"big|100")
EndFunc
#endregion

注意事项:

子进程发送消息时需要母进程的PID,而母进程的PID储存在$gi_CoProcParentli里
子进程可以正常使用脚本里的所有自定义函数
在子进程执行的那个函数里你不能再#include函数库或是用Func定义函数
对一个子进程不要重复使用_ProcSuspend()和_ProcResume() 函数,否则会让子进程无响应


转自 一点笔记

duxing 发表于 2014-4-26 16:24:46

但是不知道如何在子进程里调用父窗口的变量~
taxan 发表于 2014-3-8 08:36 http://www.autoitx.com/images/common/back.gif


   我也很想知道 子进程后面加参数传递的方式不行了

duxing 发表于 2014-4-26 16:24:38

但是不知道如何在子进程里调用父窗口的变量~
taxan 发表于 2014-3-8 08:36 http://www.autoitx.com/images/common/back.gif


   我也很想知道 子进程后面加参数传递的方式不行了

kkikk 发表于 2009-9-24 09:21:19

多谢分享,做个记号。

水木子 发表于 2009-9-24 10:08:22

本帖最后由 水木子 于 2009-9-24 10:11 编辑

一直很想了解这类知识,留名学习啦!

kn007 发表于 2009-9-24 10:32:22

留个名,以后看

C.L 发表于 2009-9-28 22:36:43

很不错,真的可以

askask150 发表于 2009-10-23 18:08:01

请问 程序启动时 CoProc.au3 $iOldRunErrorsFatal = Opt("RunErrorsFatal", 0) 程序错误 指定了一个未知的选项或参数 应该怎么解决

paulzhu 发表于 2009-10-23 18:30:34

收藏了,以后备用

zhuang513 发表于 2009-12-27 00:02:34

多谢分享,做个记号。

mande_chen 发表于 2010-1-27 00:45:05

不懂。看来是个好东西,先收藏了。。。THX!

浪迹红客 发表于 2011-7-13 07:34:31

留名学习了,谢谢楼主

wadd 发表于 2011-7-26 16:32:08

学习了,在某些版本要把@inetgetactive和@inetgetbytesread替换成inetgetinfo()

doom88 发表于 2011-7-30 08:26:14

多谢分享,收藏,,

sdc7 发表于 2011-8-20 23:58:37

这个得记住 地址!·

sonny 发表于 2013-4-22 22:34:13

收下了明天去试验一把

jhszs 发表于 2013-5-8 20:25:12

看来还是需要多进程模拟多线程
页: [1] 2
查看完整版本: Autoit里用多进程模拟多线程