【解决】怎么样同时执行多个func

3131210

有什么办法可以同时执行func Example吗？代码有sleep  因为要运行一些应用进行同样操作  但是打开的时候要等几秒

Dim $iPID[5]

For $i = 1 To 5
        Example($i)
Next

Func Example($number)
        $iPID[$number - 1] = Run('notepad.exe', '')
        Sleep(3000)
        ProcessClose($iPID[$number - 1])
EndFunc   ;==>Example

heavenm

多进程吧！比较简单

gto250

Dim $iPID[5]
If $CmdLine[0]=1 Then

        Example($CmdLine[1])
Else
        For $i = 1 To 5
                Run(@ScriptFullPath & ' '&$i)
        Next
EndIf

Func Example($number)
        $iPID[$number - 1] = Run('notepad.exe', '')
        Sleep(3000)
        ProcessClose($iPID[$number - 1])
EndFunc        ;==>Example

gto250

编译后使用

3131210

这个也是多进程吧

3131210

#include "CoProc.au3"

_CoProc("Test_1(1)")
_CoProc("Test_2(2)")

Func Test_1($sText)
        Local $iPID = Run('cmd')
        Sleep(3000)
        $var = WinList()
        For $i = 1 To $var[0][0]
                $temppid = WinGetProcess($var[$i][1])
                If $temppid = $iPID Then ExitLoop
        Next
        ControlSend($var[$i][1], '', '', $sText)
EndFunc   ;==>Test_1

Func Test_2($sText)
        Local $iPID = Run('cmd')
        Sleep(3000)
        $var = WinList()
        For $i = 1 To $var[0][0]
                $temppid = WinGetProcess($var[$i][1])
                If $temppid = $iPID Then ExitLoop
        Next
        ControlSend($var[$i][1], '', '', $sText)
EndFunc   ;==>Test_2

最后还是用CoProc多进程解决的

opq6789

CoProc.au3  正解，哈哈