Another Multi Process Helper

[jokke]

Anyone able to use this with 3.2.10.0, im have alot trouble getting it to work now. I replaced long_ptr also but it wont copy any handles anyways.

[piccaso]

replace 'long_ptr' with 'long*' and it will work again

[Fabry]

Anyone able to use this with 3.2.10.0, im have alot trouble getting it to work now. I replaced long_ptr also but it wont copy any handles anyways.

Me too. I replaced long_ptr (2 replacement), but it doesn't work

[Fabry]

The Example_tcpserver doesn't work.

I can't write in registry (for se super variable) if I am not admin.

[Fabry]

The Example_tcpserver doesn't work because the handle is not a socket handle error 10038, maybe the duplicate handle doesn't work.

The handle is always 1768, when the handle in main process change everytme.

On my computer it doesn't work but on virtual machine works. Why????

Edited February 1, 2008 by Fabry

[xhyxsl]

$aTmp = DllCall("user32.dll", "int", "SendMessageTimeout", "hwnd", $hWndTarget, "int", 0x4A , "int", 0, "ptr", DllStructGetPtr($COPYDATA), "int", $iFuFlags, "int", $iTimeout, "long_ptr", 0)

Error: "long_ptr", "int_ptr" and "short_ptr" DllCall() types have been deprecated. Use "long*", "int*" and "short*" instead.

[ProgAndy]

replace long_ptr with long* in CoProc.au3

[xhyxsl]

replace long_ptr with long* in CoProc.au3

Thanks!!!

[Excalibur]

First off, great job, multi-tasking has been the No.1 headache for me in autoit and this looks like its going to solve quite a bit.

Second, I'm a little confused about how this works. (not how to work it )

I think I understand how it works for an uncompiled script. Except, I don't see where in Func _CoProc($sFunction = Default, $vParameter = Default) it does anything to tell the new process what to execute. I'm figuring it has to do with what is set using EnvSet, however, it appears to me that you are just calling a plain Jane AutoIt process without doing anything. Unless the autoit.exe processes or expects things like CoProc to be defined. Perhaps I'm just missing something simple or over complicating the whole thing. Wont be the first time.

EDIT: I've figured most of my questions out.

Edited May 15, 2008 by Excalibur

[quake101]

I hope I'm not asking something that's already been answered.

I've tried to use the CoProc with no luck. I'm running autoit v3.2.12.0 and I'm getting the following error (from the included example scripts)...

C:\Program Files\AutoIt3\Include\CoProc.au3 (49) : ==> Unknown option or bad parameter specified.:

$iOldRunErrorsFatal = Opt("RunErrorsFatal", 0)

??????

I did replace long_ptr with long* in CoProc.au3 file but got the same results.

[JoMan]

I hope I'm not asking something that's already been answered.

I've tried to use the CoProc with no luck. I'm running autoit v3.2.12.0 and I'm getting the following error (from the included example scripts)...

C:\Program Files\AutoIt3\Include\CoProc.au3 (49) : ==> Unknown option or bad parameter specified.:

$iOldRunErrorsFatal = Opt("RunErrorsFatal", 0)

??????

I did replace long_ptr with long* in CoProc.au3 file but got the same results.

To use on the 3.2.12.0 version, you need to do the long_ptr replacement like you did, and also take out the two statements in the CoProc.au3 that reference the RunErrorsFatal option.

[zxzxzx]

That is good functions. But it not work for AutoIt 3.2.12.1

Can you fix it ? I very need. Thanks

[Armand]

not functioning.....

P.S -> is there a way to _CoProc a function that is situated in an uncopiled form ?! any sort of way what so ever....

[JRowe]

It works, just needs some TLC. I'll post what I got later on, when I get to my office PC.

[JRowe]

Updated CoProc.au3, should work with more recent versions of AutoIt.

CODE

#cs

User Calltips:

_CoProc([$sFunction],[$vParameter]) Starts another Process and Calls $sFunc, Returns PID

_SuperGlobalSet($sName,[$vValue],[$sRegistryBase]) Sets or Deletes a Superglobal Variable

_SuperGlobalGet($sName,[$fOption],[$sRegistryBase]) Returns the Value of a Superglobal Variable

_ProcSuspend($vProcess) Suspends all Threads in $vProcess (PID or Name)

_ProcResume($vProcess) Resumes all Threads in $vProcess (PID or Name)

_ProcessGetWinList($vProcess, $sTitle = Default, $iOption = 0) Enumerates Windows of a Process

_CoProcReciver([$sFunction = ""]) Register/Unregister Reciver Function

_CoProcSend($vProcess, $vParameter,[$iTimeout = 500],[$fAbortIfHung = True]) Send Message to Process

_ConsoleForward($iPid1, [$iPid2], [$iPid3], [$iPidn])

_ProcessEmptyWorkingSet($vPid = @AutoItPID,[$hDll_psapi],[$hDll_kernel32]) Removes as many pages as possible from the working set of the specified process.

_DuplicateHandle($dwSourcePid, $hSourceHandle, $dwTargetPid = @AutoItPID, $fCloseSource = False) Returns a Duplicate handle

_CloseHandle($hAny) Close a Handle

$gs_SuperGlobalRegistryBase

$gi_CoProcParent

#ce

Global $gs_SuperGlobalRegistryBase = "HKEY_CURRENT_USER\Software\AutoIt v3\CoProc"

Global $gi_CoProcParent = 0

Global $gs_CoProcReciverFunction = ""

Global $gv_CoProcReviverParameter = 0

;===============================================================================

;

; Description: Starts another Process

; Parameter(s): $sFunction - Optional, Name of Function to start in the new Process

; $vParameter - Optional, Parameter to pass

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Pid of the new Process

; On Failure - Set @error to 1

; Author(s): Florian 'Piccaso' Fida

; Note(s): Inside the new Process $gi_CoProcParent holds the PID of the Parent Process.

; $vParameter must not be Binary, an Array or DllStruct.

; If $sFunction is a just a function name Like _CoProc("MyFunc","MyParameter") Then

; Call() will be used to Call the function and optional pass the Parameter (only one).

; If $sFunction is a expression like _CoProc("MyFunc('MyParameter')") Then

; Execute() will be used to evaluate this expression makeing more than one Parameter Possible.

; In the 'Execute()' Case the $vParameter Parameter will be ignored.

; In both cases there are Limitations, Read doc's (for Execute() and Call()) for more detail.

;

; If $sFunction is Empty ("" or Default) $vParameter can be the name of a Reciver function.

;

;

;===============================================================================

Func _CoProc($sFunction = Default, $vParameter = Default)

Local $iPid

If IsKeyword($sFunction) Or $sFunction = "" Then $sFunction = "__CoProcDummy"

EnvSet("CoProc", "0x" & Hex(StringToBinary ($sFunction)))

EnvSet("CoProcParent", @AutoItPID)

If Not IsKeyword($vParameter) Then

EnvSet("CoProcParameterPresent", "True")

EnvSet("CoProcParameter", StringToBinary ($vParameter))

Else

EnvSet("CoProcParameterPresent", "False")

EndIf

If @Compiled Then

$iPid = Run(FileGetShortName(@AutoItExe), @WorkingDir, @SW_HIDE, 1 + 2 + 4)

Else

$iPid = Run(FileGetShortName(@AutoItExe) & ' "' & @ScriptFullPath & '"', @WorkingDir, @SW_HIDE, 1 + 2 + 4)

EndIf

If @error Then SetError(1)

Return $iPid

EndFunc ;==>_CoProc

;===============================================================================

;

; Description: Set a Superglobal Variable

; Parameter(s): $sName - Identifier for the Superglobal Variable

; $vValue - Value to be Stored (optional)

; $sRegistryBase - Registry Base Key (optional)

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Returns True

; On Failure - Returns False and Set

; @error to: 1 - Wrong Value Type

; 2 - Registry Problem

; Author(s): Florian 'Piccaso' Fida

; Note(s): $vValue must not be an Array or Struct.

; if $vValue is Omitted the Superglobal Variable will be deleted.

;

; Superglobal Variables are Stored in the Registry.

; $gs_SuperGlobalRegistryBase is holding the Default Base Key

;

;===============================================================================

Func _SuperGlobalSet($sName, $vValue = Default, $sRegistryBase = Default)

Local $vTmp

If $sRegistryBase = Default Then $sRegistryBase = $gs_SuperGlobalRegistryBase

If $vValue = "" Or $vValue = Default Then

RegDelete($sRegistryBase, $sName)

If @error Then Return SetError(2, 0, False) ; Registry Problem

Else

RegWrite($sRegistryBase, $sName, "REG_BINARY", StringToBinary ($vValue))

If @error Then Return SetError(2, 0, False) ; Registry Problem

EndIf

Return True

EndFunc ;==>_SuperGlobalSet

;===============================================================================

;

; Description: Get a Superglobal Variable

; Parameter(s): $sName - Identifier for the Superglobal Variable

; $fOption - Optional, if True The Superglobal Variable will be deleted after sucessfully Reading it out

; $sRegistryBase - Registry Base Key (optional)

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Returns the Value of the Superglobal Variable

; On Failure - Set

; @error to: 1 - Not Found / Registry Problem

; 2 - Error Deleting

; Author(s): Florian 'Piccaso' Fida

; Note(s): $vValue must not be an Array or Struct.

; Superglobal Variables are Stored in the Registry.

; $gs_SuperGlobalRegistryBase is holding the Default Base Key

;

;===============================================================================

Func _SuperGlobalGet($sName, $fOption = Default, $sRegistryBase = Default)

Local $vTmp

If $fOption = "" Or $fOption = Default Then $fOption = False

If $sRegistryBase = Default Then $sRegistryBase = $gs_SuperGlobalRegistryBase

$vTmp = RegRead($sRegistryBase, $sName)

If @error Then Return SetError(1, 0, "") ; Registry Problem

If $fOption Then

_SuperGlobalSet($sName)

If @error Then SetError(2)

EndIf

Return BinaryToString ("0x" & $vTmp)

EndFunc ;==>_SuperGlobalGet

;===============================================================================

;

; Description: Suspend all Threads in a Process

; Parameter(s): $vProcess - Name or PID of Process

; Requirement(s): 3.1.1.130, Win ME/2k/XP

; Return Value(s): On Success - Returns Nr. of Threads Suspended and Set @extended to Nr. of Threads Processed

; On Failure - Returns False and Set

; @error to: 1 - Process not Found

; 2 - Error Calling 'CreateToolhelp32Snapshot'

; 3 - Error Calling 'Thread32First'

; 4 - Error Calling 'Thread32Next'

; 5 - Not all Threads Processed

; Author(s): Florian 'Piccaso' Fida

; Note(s): Ported from: http://www.codeproject.com/threads/pausep.asp

; Better read the article (and the warnings!) if you want to use it

;

;===============================================================================

Func _ProcSuspend($vProcess, $iReserved = 0)

Local $iPid, $vTmp, $hThreadSnap, $ThreadEntry32, $iThreadID, $hThread, $iThreadCnt, $iThreadCntSuccess, $sFunction

Local $TH32CS_SNAPTHREAD = 0x00000004

Local $INVALID_HANDLE_VALUE = 0xFFFFFFFF

Local $THREAD_SUSPEND_RESUME = 0x0002

Local $THREADENTRY32_StructDef = "int;" _; 1 -> dwSize

& "int;" _; 2 -> cntUsage

& "int;" _; 3 -> th32ThreadID

& "int;" _; 4 -> th32OwnerProcessID

& "int;" _; 5 -> tpBasePri

& "int;" _; 6 -> tpDeltaPri

& "int" ; 7 -> dwFlags

$iPid = ProcessExists($vProcess)

If Not $iPid Then Return SetError(1, 0, False) ; Process not found.

$vTmp = DllCall("kernel32.dll", "ptr", "CreateToolhelp32Snapshot", "int", $TH32CS_SNAPTHREAD, "int", 0)

If @error Then Return SetError(2, 0, False) ; CreateToolhelp32Snapshot Failed

If $vTmp[0] = $INVALID_HANDLE_VALUE Then Return SetError(2, 0, False) ; CreateToolhelp32Snapshot Failed

$hThreadSnap = $vTmp[0]

$ThreadEntry32 = DllStructCreate($THREADENTRY32_StructDef)

DllStructSetData($ThreadEntry32, 1, DllStructGetSize($ThreadEntry32))

$vTmp = DllCall("kernel32.dll", "int", "Thread32First", "ptr", $hThreadSnap, "long", DllStructGetPtr($ThreadEntry32))

If @error Then Return SetError(3, 0, False) ; Thread32First Failed

If Not $vTmp[0] Then

DllCall("kernel32.dll", "int", "CloseHandle", "ptr", $hThreadSnap)

Return SetError(3, 0, False) ; Thread32First Failed

EndIf

While 1

If DllStructGetData($ThreadEntry32, 4) = $iPid Then

$iThreadID = DllStructGetData($ThreadEntry32, 3)

$vTmp = DllCall("kernel32.dll", "ptr", "OpenThread", "int", $THREAD_SUSPEND_RESUME, "int", False, "int", $iThreadID)

If Not @error Then

$hThread = $vTmp[0]

If $hThread Then

If $iReserved Then

$sFunction = "ResumeThread"

Else

$sFunction = "SuspendThread"

EndIf

$vTmp = DllCall("kernel32.dll", "int", $sFunction, "ptr", $hThread)

If $vTmp[0] <> -1 Then $iThreadCntSuccess += 1

DllCall("kernel32.dll", "int", "CloseHandle", "ptr", $hThread)

EndIf

EndIf

$iThreadCnt += 1

EndIf

$vTmp = DllCall("kernel32", "int", "Thread32Next", "ptr", $hThreadSnap, "long", DllStructGetPtr($ThreadEntry32))

If @error Then Return SetError(4, 0, False) ; Thread32Next Failed

If Not $vTmp[0] Then ExitLoop

WEnd

DllCall("kernel32.dll", "int", "CloseToolhelp32Snapshot", "ptr", $hThreadSnap) ; CloseHandle

If Not $iThreadCntSuccess Or $iThreadCnt > $iThreadCntSuccess Then Return SetError(5, $iThreadCnt, $iThreadCntSuccess)

Return SetError(0, $iThreadCnt, $iThreadCntSuccess)

EndFunc ;==>_ProcSuspend

;===============================================================================

;

; Description: Resume all Threads in a Process

; Parameter(s): $vProcess - Name or PID of Process

; Requirement(s): 3.1.1.130, Win ME/2k/XP

; Return Value(s): On Success - Returns Nr. of Threads Resumed and Set @extended to Nr. of Threads Processed

; On Failure - Returns False and Set

; @error to: 1 - Process not Found

; 2 - Error Calling 'CreateToolhelp32Snapshot'

; 3 - Error Calling 'Thread32First'

; 4 - Error Calling 'Thread32Next'

; 5 - Not all Threads Processed

; Author(s): Florian 'Piccaso' Fida

; Note(s): Ported from: http://www.codeproject.com/threads/pausep.asp

; Better read the article (and the warnings!) if you want to use it

;

;===============================================================================

Func _ProcResume($vProcess)

Local $fRval = _ProcSuspend($vProcess, True)

Return SetError(@error, @extended, $fRval)

EndFunc ;==>_ProcResume

;===============================================================================

;

; Description: Enumerates Windows of a Process

; Parameter(s): $vProcess - Name or PID of Process

; $sTitle - Optional Title of window to Find

; $iOption - Optional, Can be added together

; 0 - Matches any Window (Default)

; 2 - Matches any Window Created by GuiCreate() (ClassName: AutoIt v3 GUI)

; 4 - Matches AutoIt Main Window (ClassName: AutoIt v3)

; 6 - Matches Any AutoIt Window

; 16 - Return the first Window Handle found (No Array)

; Requirement(s): 3.1.1.130

; Return Value(s): On Success - Retuns an Array/Handle of Windows found

; On Failure - Set @ERROR to: 1 - Process not Found

; 2 - Window(s) not Found

; 3 - GetClassName Failed

; Author(s): Florian 'Piccaso' Fida

; Note(s):

;

;===============================================================================

Func _ProcessGetWinList($vProcess, $sTitle = Default, $iOption = 0)

Local $aWinList, $iCnt, $aTmp, $aResult[1], $iPid, $fMatch, $sClassname

$iPid = ProcessExists($vProcess)

If Not $iPid Then Return SetError(1) ; Process not Found

If $sTitle = "" Or IsKeyword($sTitle) Then

$aWinList = WinList()

Else

$aWinList = WinList($sTitle)

EndIf

For $iCnt = 1 To $aWinList[0][0]

$hWnd = $aWinList[$iCnt][1]

$iProcessId = WinGetProcess($hWnd)

If $iProcessId = $iPid Then

If $iOption = 0 Or IsKeyword($iOption) Or $iOption = 16 Then

$fMatch = True

Else

$fMatch = False

$sClassname = DllCall("user32.dll", "int", "GetClassName", "hwnd", $hWnd, "str", "", "int", 1024)

If @error Then Return SetError(3) ; GetClassName

If $sClassname[0] = 0 Then Return SetError(3) ; GetClassName

$sClassname = $sClassname[2]

If BitAND($iOption, 2) Then

If $sClassname = "AutoIt v3 GUI" Then $fMatch = True

EndIf

If BitAND($iOption, 4) Then

If $sClassname = "AutoIt v3" Then $fMatch = True

EndIf

EndIf

If $fMatch Then

If BitAND($iOption, 16) Then Return $hWnd

ReDim $aResult[uBound($aResult) + 1]

$aResult[uBound($aResult) - 1] = $hWnd

EndIf

EndIf

Next

$aResult[0] = UBound($aResult) - 1

If $aResult[0] < 1 Then Return SetError(2, 0, 0) ; No Window(s) Found

Return $aResult

EndFunc ;==>_ProcessGetWinList

;===============================================================================

;

; Description: Register Reciver Function

; Parameter(s): $sFunction - Optional, Function name to Register.

; Omit to Disable/Unregister

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Returns True

; On Failure - Returns False and Set

; @error to: 1 - Unable to create Reciver Window

; 2 - Unable to (Un)Register WM_COPYDATA or WM_USER+0x64

; Author(s): Florian 'Piccaso' Fida

; Note(s): If the process doesent have a Window it will be created

; The Reciver Function must accept 1 Parameter

;

;===============================================================================

Func _CoProcReciver($sFunction = Default)

Local $sHandlerFuction = "__CoProcReciverHandler", $hWnd, $aTmp

If IsKeyword($sFunction) Then $sFunction = ""

$hWnd = _ProcessGetWinList(@AutoItPID, "", 16 + 2)

If Not IsHWnd($hWnd) Then

$hWnd = GUICreate("CoProcEventReciver")

If @error Then Return SetError(1, 0, False)

EndIf

If $sFunction = "" Or IsKeyword($sFunction) Then $sHandlerFuction = ""

If Not GUIRegisterMsg(0x4A, $sHandlerFuction) Then Return SetError(2, 0, False) ; WM_COPYDATA

If Not GUIRegisterMsg(0x400 + 0x64, $sHandlerFuction) Then Return SetError(2, 0, False) ; WM_USER+0x64

$gs_CoProcReciverFunction = $sFunction

Return True

EndFunc ;==>_CoProcReciver

Func __CoProcReciverHandler($hWnd, $iMsg, $WParam, $LParam)

If $iMsg = 0x4A Then ; WM_COPYDATA

Local $COPYDATA, $MyData

$COPYDATA = DllStructCreate("ptr;dword;ptr", $LParam)

$MyData = DllStructCreate("char[" & DllStructGetData($COPYDATA, 2) & "]", DllStructGetData($COPYDATA, 3))

$gv_CoProcReviverParameter = DllStructGetData($MyData, 1)

Return 256

ElseIf $iMsg = 0x400 + 0x64 Then ; WM_USER+0x64

If $gv_CoProcReviverParameter Then

Call($gs_CoProcReciverFunction, $gv_CoProcReviverParameter)

If @error And @Compiled = 0 Then MsgBox(16, "CoProc Error", "Unable to Call: " & $gs_CoProcReciverFunction)

$gv_CoProcReviverParameter = 0

Return 0

EndIf

EndIf

EndFunc ;==>__CoProcReciverHandler

;===============================================================================

;

; Description: Send a Message to a CoProcess

; Parameter(s): $vProcess - Name or PID of Process

; $vParameter - Parameter to pass

; $iTimeout - Optional, Defaults to 500 (msec)

; $fAbortIfHung - Optional, Default is True

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Returns True

; On Failure - Returns False and Set

; @error to: 1 - Process not found

; 2 - Window not found

; 3 - Timeout/Busy/Hung

; 4 - PostMessage Falied

; Author(s): Florian 'Piccaso' Fida

; Note(s):

;

;==========================================================================

Func _CoProcSend($vProcess, $vParameter, $iTimeout = 500, $fAbortIfHung = True)

Local $iPid, $hWndTarget, $MyData, $aTmp, $COPYDATA, $iFuFlags

$iPid = ProcessExists($vProcess)

If Not $iPid Then Return SetError(1, 0, False) ; Process not Found

$hWndTarget = _ProcessGetWinList($vProcess, "", 16 + 2)

If @error Or (Not $hWndTarget) Then Return SetError(2, 0, False) ; Window not found

$MyData = DllStructCreate("char[" & StringLen($vParameter) + 1 & "]")

$COPYDATA = DllStructCreate("ptr;dword;ptr")

DllStructSetData($MyData, 1, $vParameter)

DllStructSetData($COPYDATA, 1, 1)

DllStructSetData($COPYDATA, 2, DllStructGetSize($MyData))

DllStructSetData($COPYDATA, 3, DllStructGetPtr($MyData))

If $fAbortIfHung Then

$iFuFlags = 0x2 ; SMTO_ABORTIFHUNG

Else

$iFuFlags = 0x0 ; SMTO_NORMAL

EndIf

$aTmp = DllCall("user32.dll", "int", "SendMessageTimeout", "hwnd", $hWndTarget, "int", 0x4A _; WM_COPYDATA

, "int", 0, "ptr", DllStructGetPtr($COPYDATA), "int", $iFuFlags, "int", $iTimeout, "long*", 0)

If @error Then Return SetError(3, 0, False) ; SendMessageTimeout Failed

If Not $aTmp[0] Then Return SetError(3, 0, False) ; SendMessageTimeout Failed

If $aTmp[7] <> 256 Then Return SetError(3, 0, False)

$aTmp = DllCall("user32.dll", "int", "PostMessage", "hwnd", $hWndTarget, "int", 0x400 + 0x64, "int", 0, "int", 0)

If @error Then Return SetError(4, 0, False)

If Not $aTmp[0] Then Return SetError(4, 0, False)

Return True

EndFunc ;==>_CoProcSend

;===============================================================================

;

; Description: Forwards StdOut and StdErr from specified Processes to Calling process

; Parameter(s): $iPid1 - Pid of Procces

; $iPidn - Optional, Up to 16 Processes

; Requirement(s): 3.1.1.131

; Return Value(s): None

; Author(s): Florian 'Piccaso' Fida

; Note(s): Processes must provide StdErr and StdOut Streams (See Run())

;

;==========================================================================

Func _ConsoleForward($iPid1, $iPid2 = Default, $iPid3 = Default, $iPid4 = Default, $iPid5 = Default, $iPid6 = Default, $iPid7 = Default, $iPid8 = Default, $iPid9 = Default, $iPid10 = Default, $iPid11 = Default, $iPid12 = Default, $iPid13 = Default, $iPid14 = Default, $iPid15 = Default, $iPid16 = Default)

Local $iPid, $i, $iPeek

For $i = 1 To 16

$iPid = Eval("iPid" & $i)

If $iPid = Default Or Not $iPid Then ContinueLoop

If ProcessExists($iPid) Then

$iPeek = StdoutRead($iPeek, 0, True)

If Not @error And $iPeek > 0 Then

ConsoleWrite(StdoutRead($iPid))

EndIf

$iPeek = StderrRead($iPeek, 0, True)

If Not @error And $iPeek > 0 Then

ConsoleWriteError(StderrRead($iPid))

EndIf

EndIf

Next

EndFunc ;==>_ConsoleForward

;===============================================================================

;

; Description: Removes as many pages as possible from the working set of the specified process.

; Parameter(s): $vPid - Optional, Pid or Process Name

; $hDll_psapi - Optional, Handle to psapi.dll

; $hDll_kernel32 - Optional, Handle to kernel32.dll

; Requirement(s): 3.2.1.12

; Return Value(s): On Success - nonzero

; On Failure - 0 and sets error to

; @error to: 1 - Process Doesent exist

; 2 - OpenProcess Failed

; 3 - EmptyWorkingSet Failed

; Author(s): Florian 'Piccaso' Fida

; Note(s): $vPid can be the -1 Pseudo Handle

;

;===============================================================================

Func _ProcessEmptyWorkingSet($vPid = @AutoItPID, $hDll_psapi = "psapi.dll", $hDll_kernel32 = "kernel32.dll")

Local $av_EWS, $av_OP, $iRval

If $vPid = -1 Then ; Pseudo Handle

$av_EWS = DllCall($hDll_psapi, "int", "EmptyWorkingSet", "ptr", -1)

Else

$vPid = ProcessExists($vPid)

If Not $vPid Then Return SetError(1, 0, 0) ; Process Doesent exist

$av_OP = DllCall($hDll_kernel32, "int", "OpenProcess", "dword", 0x1F0FFF, "int", 0, "dword", $vPid)

If $av_OP[0] = 0 Then Return SetError(2, 0, 0) ; OpenProcess Failed

$av_EWS = DllCall($hDll_psapi, "int", "EmptyWorkingSet", "ptr", $av_OP[0])

DllCall($hDll_kernel32, "int", "CloseHandle", "int", $av_OP[0])

EndIf

If $av_EWS[0] Then

Return $av_EWS[0]

Else

Return SetError(3, 0, 0) ; EmptyWorkingSet Failed

EndIf

EndFunc ;==>_ProcessEmptyWorkingSet

;===============================================================================

;

; Description: Duplicates a Handle from or for another process

; Parameter(s): $dwSourcePid - Pid from Source Process

; $hSourceHandle - The Handle to duplicate

; $dwTargetPid - Optional, Pid from Target Procces - Defaults to current process

; $fCloseSource - Optional, Close the source handle - Defaults to False

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Duplicated Handle

; On Failure - 0 and sets error to

; @error to: 1 - Api OpenProcess Failed

; 2 - Api DuplicateHandle Falied

; Author(s): Florian 'Piccaso' Fida

; Note(s):

;

;===============================================================================

Func _DuplicateHandle($dwSourcePid, $hSourceHandle, $dwTargetPid = @AutoItPID, $fCloseSource = False)

Local $hTargetHandle, $hPrSource, $hPrTarget, $dwOptions

$hPrSource = __dh_OpenProcess($dwSourcePid)

$hPrTarget = __dh_OpenProcess($dwTargetPid)

If $hPrSource = 0 Or $hPrTarget = 0 Then

_CloseHandle($hPrSource)

_CloseHandle($hPrTarget)

Return SetError(1, 0, 0)

EndIf

; DUPLICATE_CLOSE_SOURCE = 0x00000001

; DUPLICATE_SAME_ACCESS = 0x00000002

If $fCloseSource <> False Then

$dwOptions = 0x01 + 0x02

Else

$dwOptions = 0x02

EndIf

$hTargetHandle = DllCall("kernel32.dll", "int", "DuplicateHandle", "ptr", $hPrSource, "ptr", $hSourceHandle, "ptr", $hPrTarget, "long*", 0, "dword", 0, "int", 1, "dword", $dwOptions)

If @error Then Return SetError(2, 0, 0)

If $hTargetHandle[0] = 0 Or $hTargetHandle[4] = 0 Then

_CloseHandle($hPrSource)

_CloseHandle($hPrTarget)

Return SetError(2, 0, 0)

EndIf

Return $hTargetHandle[4]

EndFunc ;==>_DuplicateHandle

Func __dh_OpenProcess($dwProcessId)

; PROCESS_DUP_HANDLE = 0x40

Local $hPr = DllCall("kernel32.dll", "ptr", "OpenProcess", "dword", 0x40, "int", 0, "dword", $dwProcessId)

If @error Then Return SetError(1, 0, 0)

Return $hPr[0]

EndFunc ;==>__dh_OpenProcess

Func _CloseHandle($hAny)

If $hAny = 0 Then Return SetError(1, 0, 0)

Local $fch = DllCall("kernel32.dll", "int", "CloseHandle", "ptr", $hAny)

If @error Then Return SetError(1, 0, 0)

Return $fch[0]

EndFunc ;==>_CloseHandle

#region Internal Functions

Func __CoProcStartup()

Local $sCmd = EnvGet("CoProc")

If StringLeft($sCmd, 2) = "0x" Then

$sCmd = BinaryToString ($sCmd)

$gi_CoProcParent = Number(EnvGet("CoProcParent"))

If StringInStr($sCmd, "(") And StringInStr($sCmd, ")") Then

Execute($sCmd)

If @error And Not @Compiled Then MsgBox(16, "CoProc Error", "Unable to Execute: " & $sCmd)

Exit

EndIf

If EnvGet("CoProcParameterPresent") = "True" Then

Call($sCmd, BinaryToString (EnvGet("CoProcParameter")))

If @error And Not @Compiled Then MsgBox(16, "CoProc Error", "Unable to Call: " & $sCmd & @LF & "Parameter: " & BinaryToString (EnvGet("CoProcParameter")))

Else

Call($sCmd)

If @error And Not @Compiled Then MsgBox(16, "CoProc Error", "Unable to Call: " & $sCmd)

EndIf

Exit

EndIf

EndFunc ;==>__CoProcStartup

Func __CoProcDummy($vPar = Default)

If Not IsKeyword($vPar) Then _CoProcReciver($vPar)

While ProcessExists($gi_CoProcParent)

Sleep(500)

WEnd

EndFunc ;==>__CoProcDummy

__CoProcStartup()

#endregion

[mmierke]

Updated CoProc.au3, should work with more recent versions of AutoIt.

Hy, I tried that one and had some problems with the _ConsoleForward. Finally I have found a bug in that one.

This version of _ConsoleForward works

;===============================================================================
;
; Description: Forwards StdOut and StdErr from specified Processes to Calling process
; Parameter(s): $iPid1 - Pid of Procces
; $iPidn - Optional, Up to 16 Processes
; Requirement(s): 3.1.1.131
; Return Value(s): None
; Author(s): Florian 'Piccaso' Fida
; Note(s): Processes must provide StdErr and StdOut Streams (See Run())
;
;==========================================================================
Func _ConsoleForward($iPid1, $iPid2 = Default, $iPid3 = Default, $iPid4 = Default, $iPid5 = Default, $iPid6 = Default, $iPid7 = Default, $iPid8 = Default, $iPid9 = Default, $iPid10 = Default, $iPid11 = Default, $iPid12 = Default, $iPid13 = Default, $iPid14 = Default, $iPid15 = Default, $iPid16 = Default)
    Local $iPid, $i, $iPeek
    For $i = 1 To 16
        $iPid = Eval("iPid" & $i)
        If $iPid = Default Or Not $iPid Then ContinueLoop
        If ProcessExists($iPid) Then
            $iPeek = StdoutRead($iPid, True, True)
            If Not @error And $iPeek > 0 Then
                ConsoleWrite(StdoutRead($iPid))
            EndIf
            $iPeek = StderrRead($iPid, True, True)
            If Not @error And $iPeek > 0 Then
                ConsoleWriteError(StderrRead($iPid))
            EndIf
        EndIf
    Next
EndFunc  ;==>_ConsoleForward

Br Martin

[gaogao]

I'm facing an issue with lost messages between parent and children processes although _CoProcSend return True.

I am attaching the test code hoping someone has a clue or can confirm it:

CODE

#include <File.au3>

#include <String.au3>

#include <Array.au3>

#include <Date.au3>

#include "CoProc.au3"

AutoItSetOption("MustDeclareVars", 1)

Const $NMAX_CHILDREN = 5

Dim $g_ar_iPidChild[$NMAX_CHILDREN+1]

Dim $i, $strItem

Dim $allEnded

Dim $ar_StrItems[1]

Dim $n

Randomize()

_CoProcReciver("parentProcessReceiver")

For $i=1 to 14

_ArrayAdd($ar_StrItems, StringFormat("Item%03d", Random(0,100,1)))

Next

$allEnded = False

For $i=1 to $NMAX_CHILDREN

$g_ar_iPidChild[$i] = -1

Next

While True

$allEnded = True

For $i=1 to $NMAX_CHILDREN

If $g_ar_iPidChild[$i] > 0 Then

$allEnded = False

Else

If UBound($ar_StrItems)>1 Then

$strItem = _ArrayPop($ar_StrItems)

$g_ar_iPidChild[$i] = _CoProc("ChildProcess", StringFormat("%d,%s",$i, $strItem))

;~ for $n=1 to $i

;~ ConsoleWrite(@TAB)

;~ Next

;~ ConsoleWrite("Starting new child process: " & $i & " - PID: " & $g_ar_iPidChild[$i] & " - Parameter: " & $strItem & @CRLF)

$allEnded = False

EndIf

EndIf

Next

WEnd

Exit

Func Randomize()

SRandom(Round((TimerInit()*Random(1234,3335789,1)+TimerInit())/TimerInit()))

EndFunc

Func parentProcessReceiver($strParameters)

Local $strMsgType, $strChildNum, $strItem

Local $ar_strParameters[1]

Local $iChildNum, $iPID, $n

$ar_strParameters = StringSplit($strParameters, ",")

$strMsgType = $ar_strParameters[1]

$strChildNum = $ar_strParameters[2]

if $ar_strParameters[0] = 4 Then $strItem = $ar_strParameters[3]

$iChildNum = Int($strChildNum)

$iPID = $g_ar_iPidChild[$iChildNum]

for $n=1 to $iChildNum

ConsoleWrite(@TAB)

Next

Switch $strMsgType

Case "END"

ConsoleWrite("Child ended: " & $iChildNum & " - PID: " & $iPID & @CRLF)

$g_ar_iPidChild[$iChildNum] = -1

CASE "LOG"

ConsoleWrite("Child LOG: " & $iChildNum & " - PID: " & $iPID & " - MSG: " & $strItem & @CRLF)

Case Else

ConsoleWrite("Unknown message from child!" & @CRLF)

EndSwitch

EndFunc ;==>parentProcessReceiver

Func ChildProcess($strParameters)

Local $strChildNum, $strItem

Local $ar_strParameters[1]

Local $nMSecondsToSleep = Random(3,7,1)*1000

$ar_strParameters = StringSplit($strParameters, ",")

$strChildNum = $ar_strParameters[1]

$strItem = $ar_strParameters[2]

_CoProcSend($gi_CoProcParent, StringFormat("LOG,%d,%s,%d", $strChildNum, "START processing: " & $strItem, -1))

Sleep(Random(3,7,1)*1000)

_CoProcSend($gi_CoProcParent, StringFormat("END,%d,%s", $strChildNum, $strItem))

EndFunc ;==>ChildProcess

here is the CoProc.au3 I had to amend to cope with the MustDeclareVars directive (and the ConsoleWorward issue reported above):

CODE

#cs

User Calltips:

_CoProc([$sFunction],[$vParameter]) Starts another Process and Calls $sFunc, Returns PID

_SuperGlobalSet($sName,[$vValue],[$sRegistryBase]) Sets or Deletes a Superglobal Variable

_SuperGlobalGet($sName,[$fOption],[$sRegistryBase]) Returns the Value of a Superglobal Variable

_ProcSuspend($vProcess) Suspends all Threads in $vProcess (PID or Name)

_ProcResume($vProcess) Resumes all Threads in $vProcess (PID or Name)

_ProcessGetWinList($vProcess, $sTitle = Default, $iOption = 0) Enumerates Windows of a Process

_CoProcReciver([$sFunction = ""]) Register/Unregister Reciver Function

_CoProcSend($vProcess, $vParameter,[$iTimeout = 500],[$fAbortIfHung = True]) Send Message to Process

_ConsoleForward($iPid1, [$iPid2], [$iPid3], [$iPidn])

_ProcessEmptyWorkingSet($vPid = @AutoItPID,[$hDll_psapi],[$hDll_kernel32]) Removes as many pages as possible from the working set of the specified process.

_DuplicateHandle($dwSourcePid, $hSourceHandle, $dwTargetPid = @AutoItPID, $fCloseSource = False) Returns a Duplicate handle

_CloseHandle($hAny) Close a Handle

$gs_SuperGlobalRegistryBase

$gi_CoProcParent

#ce

Global $gs_SuperGlobalRegistryBase = "HKEY_CURRENT_USER\Software\AutoIt v3\CoProc"

Global $gi_CoProcParent = 0

Global $gs_CoProcReciverFunction = ""

Global $gv_CoProcReviverParameter = 0

;===============================================================================

;

; Description: Starts another Process

; Parameter(s): $sFunction - Optional, Name of Function to start in the new Process

; $vParameter - Optional, Parameter to pass

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Pid of the new Process

; On Failure - Set @error to 1

; Author(s): Florian 'Piccaso' Fida

; Note(s): Inside the new Process $gi_CoProcParent holds the PID of the Parent Process.

; $vParameter must not be Binary, an Array or DllStruct.

; If $sFunction is a just a function name Like _CoProc("MyFunc","MyParameter") Then

; Call() will be used to Call the function and optional pass the Parameter (only one).

; If $sFunction is a expression like _CoProc("MyFunc('MyParameter')") Then

; Execute() will be used to evaluate this expression makeing more than one Parameter Possible.

; In the 'Execute()' Case the $vParameter Parameter will be ignored.

; In both cases there are Limitations, Read doc's (for Execute() and Call()) for more detail.

;

; If $sFunction is Empty ("" or Default) $vParameter can be the name of a Reciver function.

;

;

;===============================================================================

Func _CoProc($sFunction = Default, $vParameter = Default)

Local $iPid

If IsKeyword($sFunction) Or $sFunction = "" Then $sFunction = "__CoProcDummy"

EnvSet("CoProc", "0x" & Hex(StringToBinary ($sFunction)))

EnvSet("CoProcParent", @AutoItPID)

If Not IsKeyword($vParameter) Then

EnvSet("CoProcParameterPresent", "True")

EnvSet("CoProcParameter", StringToBinary ($vParameter))

Else

EnvSet("CoProcParameterPresent", "False")

EndIf

If @Compiled Then

$iPid = Run(FileGetShortName(@AutoItExe), @WorkingDir, @SW_HIDE, 1 + 2 + 4)

Else

$iPid = Run(FileGetShortName(@AutoItExe) & ' "' & @ScriptFullPath & '"', @WorkingDir, @SW_HIDE, 1 + 2 + 4)

EndIf

If @error Then SetError(1)

Return $iPid

EndFunc ;==>_CoProc

;===============================================================================

;

; Description: Set a Superglobal Variable

; Parameter(s): $sName - Identifier for the Superglobal Variable

; $vValue - Value to be Stored (optional)

; $sRegistryBase - Registry Base Key (optional)

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Returns True

; On Failure - Returns False and Set

; @error to: 1 - Wrong Value Type

; 2 - Registry Problem

; Author(s): Florian 'Piccaso' Fida

; Note(s): $vValue must not be an Array or Struct.

; if $vValue is Omitted the Superglobal Variable will be deleted.

;

; Superglobal Variables are Stored in the Registry.

; $gs_SuperGlobalRegistryBase is holding the Default Base Key

;

;===============================================================================

Func _SuperGlobalSet($sName, $vValue = Default, $sRegistryBase = Default)

Local $vTmp

If $sRegistryBase = Default Then $sRegistryBase = $gs_SuperGlobalRegistryBase

If $vValue = "" Or $vValue = Default Then

RegDelete($sRegistryBase, $sName)

If @error Then Return SetError(2, 0, False) ; Registry Problem

Else

RegWrite($sRegistryBase, $sName, "REG_BINARY", StringToBinary ($vValue))

If @error Then Return SetError(2, 0, False) ; Registry Problem

EndIf

Return True

EndFunc ;==>_SuperGlobalSet

;===============================================================================

;

; Description: Get a Superglobal Variable

; Parameter(s): $sName - Identifier for the Superglobal Variable

; $fOption - Optional, if True The Superglobal Variable will be deleted after sucessfully Reading it out

; $sRegistryBase - Registry Base Key (optional)

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Returns the Value of the Superglobal Variable

; On Failure - Set

; @error to: 1 - Not Found / Registry Problem

; 2 - Error Deleting

; Author(s): Florian 'Piccaso' Fida

; Note(s): $vValue must not be an Array or Struct.

; Superglobal Variables are Stored in the Registry.

; $gs_SuperGlobalRegistryBase is holding the Default Base Key

;

;===============================================================================

Func _SuperGlobalGet($sName, $fOption = Default, $sRegistryBase = Default)

Local $vTmp

If $fOption = "" Or $fOption = Default Then $fOption = False

If $sRegistryBase = Default Then $sRegistryBase = $gs_SuperGlobalRegistryBase

$vTmp = RegRead($sRegistryBase, $sName)

If @error Then Return SetError(1, 0, "") ; Registry Problem

If $fOption Then

_SuperGlobalSet($sName)

If @error Then SetError(2)

EndIf

Return BinaryToString ("0x" & $vTmp)

EndFunc ;==>_SuperGlobalGet

;===============================================================================

;

; Description: Suspend all Threads in a Process

; Parameter(s): $vProcess - Name or PID of Process

; Requirement(s): 3.1.1.130, Win ME/2k/XP

; Return Value(s): On Success - Returns Nr. of Threads Suspended and Set @extended to Nr. of Threads Processed

; On Failure - Returns False and Set

; @error to: 1 - Process not Found

; 2 - Error Calling 'CreateToolhelp32Snapshot'

; 3 - Error Calling 'Thread32First'

; 4 - Error Calling 'Thread32Next'

; 5 - Not all Threads Processed

; Author(s): Florian 'Piccaso' Fida

; Note(s): Ported from: http://www.codeproject.com/threads/pausep.asp

; Better read the article (and the warnings!) if you want to use it (IMG:http://www.autoitscript.com/forum/style_emoticons/autoit/smile.gif)

;

;===============================================================================

Func _ProcSuspend($vProcess, $iReserved = 0)

Local $iPid, $vTmp, $hThreadSnap, $ThreadEntry32, $iThreadID, $hThread, $iThreadCnt, $iThreadCntSuccess, $sFunction

Local $TH32CS_SNAPTHREAD = 0x00000004

Local $INVALID_HANDLE_VALUE = 0xFFFFFFFF

Local $THREAD_SUSPEND_RESUME = 0x0002

Local $THREADENTRY32_StructDef = "int;" _; 1 -> dwSize

& "int;" _; 2 -> cntUsage

& "int;" _; 3 -> th32ThreadID

& "int;" _; 4 -> th32OwnerProcessID

& "int;" _; 5 -> tpBasePri

& "int;" _; 6 -> tpDeltaPri

& "int" ; 7 -> dwFlags

$iPid = ProcessExists($vProcess)

If Not $iPid Then Return SetError(1, 0, False) ; Process not found.

$vTmp = DllCall("kernel32.dll", "ptr", "CreateToolhelp32Snapshot", "int", $TH32CS_SNAPTHREAD, "int", 0)

If @error Then Return SetError(2, 0, False) ; CreateToolhelp32Snapshot Failed

If $vTmp[0] = $INVALID_HANDLE_VALUE Then Return SetError(2, 0, False) ; CreateToolhelp32Snapshot Failed

$hThreadSnap = $vTmp[0]

$ThreadEntry32 = DllStructCreate($THREADENTRY32_StructDef)

DllStructSetData($ThreadEntry32, 1, DllStructGetSize($ThreadEntry32))

$vTmp = DllCall("kernel32.dll", "int", "Thread32First", "ptr", $hThreadSnap, "long", DllStructGetPtr($ThreadEntry32))

If @error Then Return SetError(3, 0, False) ; Thread32First Failed

If Not $vTmp[0] Then

DllCall("kernel32.dll", "int", "CloseHandle", "ptr", $hThreadSnap)

Return SetError(3, 0, False) ; Thread32First Failed

EndIf

While 1

If DllStructGetData($ThreadEntry32, 4) = $iPid Then

$iThreadID = DllStructGetData($ThreadEntry32, 3)

$vTmp = DllCall("kernel32.dll", "ptr", "OpenThread", "int", $THREAD_SUSPEND_RESUME, "int", False, "int", $iThreadID)

If Not @error Then

$hThread = $vTmp[0]

If $hThread Then

If $iReserved Then

$sFunction = "ResumeThread"

Else

$sFunction = "SuspendThread"

EndIf

$vTmp = DllCall("kernel32.dll", "int", $sFunction, "ptr", $hThread)

If $vTmp[0] <> -1 Then $iThreadCntSuccess += 1

DllCall("kernel32.dll", "int", "CloseHandle", "ptr", $hThread)

EndIf

EndIf

$iThreadCnt += 1

EndIf

$vTmp = DllCall("kernel32", "int", "Thread32Next", "ptr", $hThreadSnap, "long", DllStructGetPtr($ThreadEntry32))

If @error Then Return SetError(4, 0, False) ; Thread32Next Failed

If Not $vTmp[0] Then ExitLoop

WEnd

DllCall("kernel32.dll", "int", "CloseToolhelp32Snapshot", "ptr", $hThreadSnap) ; CloseHandle

If Not $iThreadCntSuccess Or $iThreadCnt > $iThreadCntSuccess Then Return SetError(5, $iThreadCnt, $iThreadCntSuccess)

Return SetError(0, $iThreadCnt, $iThreadCntSuccess)

EndFunc ;==>_ProcSuspend

;===============================================================================

;

; Description: Resume all Threads in a Process

; Parameter(s): $vProcess - Name or PID of Process

; Requirement(s): 3.1.1.130, Win ME/2k/XP

; Return Value(s): On Success - Returns Nr. of Threads Resumed and Set @extended to Nr. of Threads Processed

; On Failure - Returns False and Set

; @error to: 1 - Process not Found

; 2 - Error Calling 'CreateToolhelp32Snapshot'

; 3 - Error Calling 'Thread32First'

; 4 - Error Calling 'Thread32Next'

; 5 - Not all Threads Processed

; Author(s): Florian 'Piccaso' Fida

; Note(s): Ported from: http://www.codeproject.com/threads/pausep.asp

; Better read the article (and the warnings!) if you want to use it (IMG:http://www.autoitscript.com/forum/style_emoticons/autoit/smile.gif)

;

;===============================================================================

Func _ProcResume($vProcess)

Local $fRval = _ProcSuspend($vProcess, True)

Return SetError(@error, @extended, $fRval)

EndFunc ;==>_ProcResume

;===============================================================================

;

; Description: Enumerates Windows of a Process

; Parameter(s): $vProcess - Name or PID of Process

; $sTitle - Optional Title of window to Find

; $iOption - Optional, Can be added together

; 0 - Matches any Window (Default)

; 2 - Matches any Window Created by GuiCreate() (ClassName: AutoIt v3 GUI)

; 4 - Matches AutoIt Main Window (ClassName: AutoIt v3)

; 6 - Matches Any AutoIt Window

; 16 - Return the first Window Handle found (No Array)

; Requirement(s): 3.1.1.130

; Return Value(s): On Success - Retuns an Array/Handle of Windows found

; On Failure - Set @ERROR to: 1 - Process not Found

; 2 - Window(s) not Found

; 3 - GetClassName Failed

; Author(s): Florian 'Piccaso' Fida

; Note(s):

;

;===============================================================================

Func _ProcessGetWinList($vProcess, $sTitle = Default, $iOption = 0)

Local $aWinList, $iCnt, $aTmp, $iPid

Local $aResult[1]

Local $fMatch, $sClassname, $hWnd

$iPid = ProcessExists($vProcess)

If Not $iPid Then Return SetError(1) ; Process not Found

If $sTitle = "" Or IsKeyword($sTitle) Then

$aWinList = WinList()

Else

$aWinList = WinList($sTitle)

EndIf

For $iCnt = 1 To $aWinList[0][0]

$hWnd = $aWinList[$iCnt][1]

$iProcessId = WinGetProcess($hWnd)

If $iProcessId = $iPid Then

If $iOption = 0 Or IsKeyword($iOption) Or $iOption = 16 Then

$fMatch = True

Else

$fMatch = False

$sClassname = DllCall("user32.dll", "int", "GetClassName", "hwnd", $hWnd, "str", "", "int", 1024)

If @error Then Return SetError(3) ; GetClassName

If $sClassname[0] = 0 Then Return SetError(3) ; GetClassName

$sClassname = $sClassname[2]

If BitAND($iOption, 2) Then

If $sClassname = "AutoIt v3 GUI" Then $fMatch = True

EndIf

If BitAND($iOption, 4) Then

If $sClassname = "AutoIt v3" Then $fMatch = True

EndIf

EndIf

If $fMatch Then

If BitAND($iOption, 16) Then Return $hWnd

ReDim $aResult[uBound($aResult) + 1]

$aResult[uBound($aResult) - 1] = $hWnd

EndIf

EndIf

Next

$aResult[0] = UBound($aResult) - 1

If $aResult[0] < 1 Then Return SetError(2, 0, 0) ; No Window(s) Found

Return $aResult

EndFunc ;==>_ProcessGetWinList

;===============================================================================

;

; Description: Register Reciver Function

; Parameter(s): $sFunction - Optional, Function name to Register.

; Omit to Disable/Unregister

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Returns True

; On Failure - Returns False and Set

; @error to: 1 - Unable to create Reciver Window

; 2 - Unable to (Un)Register WM_COPYDATA or WM_USER+0x64

; Author(s): Florian 'Piccaso' Fida

; Note(s): If the process doesent have a Window it will be created

; The Reciver Function must accept 1 Parameter

;

;===============================================================================

Func _CoProcReciver($sFunction = Default)

Local $sHandlerFuction = "__CoProcReciverHandler", $hWnd, $aTmp

If IsKeyword($sFunction) Then $sFunction = ""

$hWnd = _ProcessGetWinList(@AutoItPID, "", 16 + 2)

If Not IsHWnd($hWnd) Then

$hWnd = GUICreate("CoProcEventReciver")

If @error Then Return SetError(1, 0, False)

EndIf

If $sFunction = "" Or IsKeyword($sFunction) Then $sHandlerFuction = ""

If Not GUIRegisterMsg(0x4A, $sHandlerFuction) Then Return SetError(2, 0, False) ; WM_COPYDATA

If Not GUIRegisterMsg(0x400 + 0x64, $sHandlerFuction) Then Return SetError(2, 0, False) ; WM_USER+0x64

$gs_CoProcReciverFunction = $sFunction

Return True

EndFunc ;==>_CoProcReciver

Func __CoProcReciverHandler($hWnd, $iMsg, $WParam, $LParam)

If $iMsg = 0x4A Then ; WM_COPYDATA

Local $COPYDATA, $MyData

$COPYDATA = DllStructCreate("ptr;dword;ptr", $LParam)

$MyData = DllStructCreate("char[" & DllStructGetData($COPYDATA, 2) & "]", DllStructGetData($COPYDATA, 3))

$gv_CoProcReviverParameter = DllStructGetData($MyData, 1)

Return 256

ElseIf $iMsg = 0x400 + 0x64 Then ; WM_USER+0x64

If $gv_CoProcReviverParameter Then

Call($gs_CoProcReciverFunction, $gv_CoProcReviverParameter)

If @error And @Compiled = 0 Then MsgBox(16, "CoProc Error", "Unable to Call: " & $gs_CoProcReciverFunction)

$gv_CoProcReviverParameter = 0

Return 0

EndIf

EndIf

EndFunc ;==>__CoProcReciverHandler

;===============================================================================

;

; Description: Send a Message to a CoProcess

; Parameter(s): $vProcess - Name or PID of Process

; $vParameter - Parameter to pass

; $iTimeout - Optional, Defaults to 500 (msec)

; $fAbortIfHung - Optional, Default is True

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Returns True

; On Failure - Returns False and Set

; @error to: 1 - Process not found

; 2 - Window not found

; 3 - Timeout/Busy/Hung

; 4 - PostMessage Falied

; Author(s): Florian 'Piccaso' Fida

; Note(s):

;

;==========================================================================

Func _CoProcSend($vProcess, $vParameter, $iTimeout = 500, $fAbortIfHung = True)

Local $iPid, $hWndTarget, $MyData, $aTmp, $COPYDATA, $iFuFlags

$iPid = ProcessExists($vProcess)

If Not $iPid Then Return SetError(1, 0, False) ; Process not Found

$hWndTarget = _ProcessGetWinList($vProcess, "", 16 + 2)

If @error Or (Not $hWndTarget) Then Return SetError(2, 0, False) ; Window not found

$MyData = DllStructCreate("char[" & StringLen($vParameter) + 1 & "]")

$COPYDATA = DllStructCreate("ptr;dword;ptr")

DllStructSetData($MyData, 1, $vParameter)

DllStructSetData($COPYDATA, 1, 1)

DllStructSetData($COPYDATA, 2, DllStructGetSize($MyData))

DllStructSetData($COPYDATA, 3, DllStructGetPtr($MyData))

If $fAbortIfHung Then

$iFuFlags = 0x2 ; SMTO_ABORTIFHUNG

Else

$iFuFlags = 0x0 ; SMTO_NORMAL

EndIf

$aTmp = DllCall("user32.dll", "int", "SendMessageTimeout", "hwnd", $hWndTarget, "int", 0x4A _; WM_COPYDATA

, "int", 0, "ptr", DllStructGetPtr($COPYDATA), "int", $iFuFlags, "int", $iTimeout, "long*", 0)

If @error Then Return SetError(3, 0, False) ; SendMessageTimeout Failed

If Not $aTmp[0] Then Return SetError(3, 0, False) ; SendMessageTimeout Failed

If $aTmp[7] <> 256 Then Return SetError(3, 0, False)

$aTmp = DllCall("user32.dll", "int", "PostMessage", "hwnd", $hWndTarget, "int", 0x400 + 0x64, "int", 0, "int", 0)

If @error Then Return SetError(4, 0, False)

If Not $aTmp[0] Then Return SetError(4, 0, False)

Return True

EndFunc ;==>_CoProcSend

;===============================================================================

;

; Description: Forwards StdOut and StdErr from specified Processes to Calling process

; Parameter(s): $iPid1 - Pid of Procces

; $iPidn - Optional, Up to 16 Processes

; Requirement(s): 3.1.1.131

; Return Value(s): None

; Author(s): Florian 'Piccaso' Fida

; Note(s): Processes must provide StdErr and StdOut Streams (See Run())

;

;==========================================================================

Func _ConsoleForward($iPid1, $iPid2 = Default, $iPid3 = Default, $iPid4 = Default, $iPid5 = Default, $iPid6 = Default, $iPid7 = Default, $iPid8 = Default, $iPid9 = Default, $iPid10 = Default, $iPid11 = Default, $iPid12 = Default, $iPid13 = Default, $iPid14 = Default, $iPid15 = Default, $iPid16 = Default)

Local $iPid, $i, $iPeek

For $i = 1 To 16

$iPid = Eval("iPid" & $i)

If $iPid = Default Or Not $iPid Then ContinueLoop

If ProcessExists($iPid) Then

$iPeek = StdoutRead($iPid, True, True)

If Not @error And $iPeek > 0 Then

ConsoleWrite(StdoutRead($iPid))

EndIf

$iPeek = StderrRead($iPid, True, True)

If Not @error And $iPeek > 0 Then

ConsoleWriteError(StderrRead($iPid))

EndIf

EndIf

Next

EndFunc ;==>_ConsoleForward

;===============================================================================

;

; Description: Removes as many pages as possible from the working set of the specified process.

; Parameter(s): $vPid - Optional, Pid or Process Name

; $hDll_psapi - Optional, Handle to psapi.dll

; $hDll_kernel32 - Optional, Handle to kernel32.dll

; Requirement(s): 3.2.1.12

; Return Value(s): On Success - nonzero

; On Failure - 0 and sets error to

; @error to: 1 - Process Doesent exist

; 2 - OpenProcess Failed

; 3 - EmptyWorkingSet Failed

; Author(s): Florian 'Piccaso' Fida

; Note(s): $vPid can be the -1 Pseudo Handle

;

;===============================================================================

Func _ProcessEmptyWorkingSet($vPid = @AutoItPID, $hDll_psapi = "psapi.dll", $hDll_kernel32 = "kernel32.dll")

Local $av_EWS, $av_OP, $iRval

If $vPid = -1 Then ; Pseudo Handle

$av_EWS = DllCall($hDll_psapi, "int", "EmptyWorkingSet", "ptr", -1)

Else

$vPid = ProcessExists($vPid)

If Not $vPid Then Return SetError(1, 0, 0) ; Process Doesent exist

$av_OP = DllCall($hDll_kernel32, "int", "OpenProcess", "dword", 0x1F0FFF, "int", 0, "dword", $vPid)

If $av_OP[0] = 0 Then Return SetError(2, 0, 0) ; OpenProcess Failed

$av_EWS = DllCall($hDll_psapi, "int", "EmptyWorkingSet", "ptr", $av_OP[0])

DllCall($hDll_kernel32, "int", "CloseHandle", "int", $av_OP[0])

EndIf

If $av_EWS[0] Then

Return $av_EWS[0]

Else

Return SetError(3, 0, 0) ; EmptyWorkingSet Failed

EndIf

EndFunc ;==>_ProcessEmptyWorkingSet

;===============================================================================

;

; Description: Duplicates a Handle from or for another process

; Parameter(s): $dwSourcePid - Pid from Source Process

; $hSourceHandle - The Handle to duplicate

; $dwTargetPid - Optional, Pid from Target Procces - Defaults to current process

; $fCloseSource - Optional, Close the source handle - Defaults to False

; Requirement(s): 3.2.4.9

; Return Value(s): On Success - Duplicated Handle

; On Failure - 0 and sets error to

; @error to: 1 - Api OpenProcess Failed

; 2 - Api DuplicateHandle Falied

; Author(s): Florian 'Piccaso' Fida

; Note(s):

;

;===============================================================================

Func _DuplicateHandle($dwSourcePid, $hSourceHandle, $dwTargetPid = @AutoItPID, $fCloseSource = False)

Local $hTargetHandle, $hPrSource, $hPrTarget, $dwOptions

$hPrSource = __dh_OpenProcess($dwSourcePid)

$hPrTarget = __dh_OpenProcess($dwTargetPid)

If $hPrSource = 0 Or $hPrTarget = 0 Then

_CloseHandle($hPrSource)

_CloseHandle($hPrTarget)

Return SetError(1, 0, 0)

EndIf

; DUPLICATE_CLOSE_SOURCE = 0x00000001

; DUPLICATE_SAME_ACCESS = 0x00000002

If $fCloseSource <> False Then

$dwOptions = 0x01 + 0x02

Else

$dwOptions = 0x02

EndIf

$hTargetHandle = DllCall("kernel32.dll", "int", "DuplicateHandle", "ptr", $hPrSource, "ptr", $hSourceHandle, "ptr", $hPrTarget, "long*", 0, "dword", 0, "int", 1, "dword", $dwOptions)

If @error Then Return SetError(2, 0, 0)

If $hTargetHandle[0] = 0 Or $hTargetHandle[4] = 0 Then

_CloseHandle($hPrSource)

_CloseHandle($hPrTarget)

Return SetError(2, 0, 0)

EndIf

Return $hTargetHandle[4]

EndFunc ;==>_DuplicateHandle

Func __dh_OpenProcess($dwProcessId)

; PROCESS_DUP_HANDLE = 0x40

Local $hPr = DllCall("kernel32.dll", "ptr", "OpenProcess", "dword", 0x40, "int", 0, "dword", $dwProcessId)

If @error Then Return SetError(1, 0, 0)

Return $hPr[0]

EndFunc ;==>__dh_OpenProcess

Func _CloseHandle($hAny)

If $hAny = 0 Then Return SetError(1, 0, 0)

Local $fch = DllCall("kernel32.dll", "int", "CloseHandle", "ptr", $hAny)

If @error Then Return SetError(1, 0, 0)

Return $fch[0]

EndFunc ;==>_CloseHandle

#region Internal Functions

Func __CoProcStartup()

Local $sCmd = EnvGet("CoProc")

If StringLeft($sCmd, 2) = "0x" Then

$sCmd = BinaryToString ($sCmd)

$gi_CoProcParent = Number(EnvGet("CoProcParent"))

If StringInStr($sCmd, "(") And StringInStr($sCmd, ")") Then

Execute($sCmd)

If @error And Not @Compiled Then MsgBox(16, "CoProc Error", "Unable to Execute: " & $sCmd)

Exit

EndIf

If EnvGet("CoProcParameterPresent") = "True" Then

Call($sCmd, BinaryToString (EnvGet("CoProcParameter")))

If @error And Not @Compiled Then MsgBox(16, "CoProc Error", "Unable to Call: " & $sCmd & @LF & "Parameter: " & BinaryToString (EnvGet("CoProcParameter")))

Else

Call($sCmd)

If @error And Not @Compiled Then MsgBox(16, "CoProc Error", "Unable to Call: " & $sCmd)

EndIf

Exit

EndIf

EndFunc ;==>__CoProcStartup

Func __CoProcDummy($vPar = Default)

If Not IsKeyword($vPar) Then _CoProcReciver($vPar)

While ProcessExists($gi_CoProcParent)

Sleep(500)

WEnd

EndFunc ;==>__CoProcDummy

__CoProcStartup()

#endregion

Thanks in advance for any reply.

[gaogao]

I have found out that when there there may be situations where a WM_COPYDATA message is not immediately followed by a WM_USER+0x64 message, but two (or more) WM_COPYDATA mesages are delivered in a row. This creates the situation where the receiverHandler is not called for each and every message.

I have modified the UDF introducing a global array instead of a single parameter, so that incoming messages are accumulated and processed later. Solves for me.

The global declaration:

Global $gar_msgQueue[1]

and in __CoProcReciverHandler items are added and removed form that array according to the received message:

If $iMsg = 0x4A Then; WM_COPYDATA
        $COPYDATA = DllStructCreate("ptr;dword;ptr", $LParam)
        $MyData = DllStructCreate("char[" & DllStructGetData($COPYDATA, 2) & "]", DllStructGetData($COPYDATA, 3))
        $msgParameter = DllStructGetData($MyData, 1)

        _ArrayAdd($gar_msgQueue, $msgParameter)
        Return 256
    ElseIf $iMsg = 0x400 + 0x64 Then; WM_USER+0x64
        If UBound($gar_msgQueue)>1 Then
            $msgParameter = _ArrayPop($gar_msgQueue)

            Call($gs_CoProcReciverFunction, $msgParameter)
            If @error And @Compiled = 0 Then MsgBox(16, "CoProc Error", "Unable to Call: " & $gs_CoProcReciverFunction)
            Return 0
        EndIf
    EndIf

[nguyenbason]

Anyone have current working version of this wonderful UDF? Seem have problem with _CoProcSend and _CoProcReceive function.

Edited July 16, 2009 by nguyenbason

[lsakizada]

Anyone have current working version of this wonderful UDF? Seem have problem with _CoProcSend and _CoProcReceive function.

I am aloso eager to get working version LOL.

Edit: Look above post #35: works for me

Edited July 16, 2009 by lsakizada