42 replies to this topic

[piccaso]

I didnt want to sacrifice Scite's Syntax highlighting and keep it a bit simpler so thats what came out
Ok its not that simple any more.
Revision 30  CoProc.zip   9.37KB   6626 downloads

Update Notes:

Revision 24
Fixed Memory Leak in _ProcSuspend() and _ProcResume()
Fixed Example_Download.au3 Links

Revision 25
New Optional Parameter $sRegistryBase for _SuperGlobalGet() and _SuperGlobalSet()

Revision 30
Fixed for To work with current Autoit Version
Added wrapper for DuplicateHandle Api

Function List

    _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

Example_Download.au3 doesent work right no more because the link is dead

Please read this bevore using _ProcSuspend() and _ProcResume().
i did this some time ago and i remeber taking something from someone somwhere.
if you find a piece of code inside, please forgive me.
if you want credit for it or want me to remove it dorp me a line...

Here are some examples:

AutoIt        expandcollapse  popup

#include "coproc.au3"

$iPidChild = _CoProc(Default, "_recv") ; Create new Procces, Set _recv() as Reciever function
Sleep(2000) ; Give some time to load new Process
_CoProcSend($iPidChild,"Something...")  ; Send a Message to new process

Func _recv($vParm)
    MsgBox(0,"Recieved",$vParm)
EndFuncƒo݊÷ Ø.–؏®‡²ÄÜ¥'«½êÚºÚ"µÍ•Ôݝ

Hћ܈[›ØÙÜÙˆÚ[˜ÛYH   œ][ÝÐÛÔ›Ø˘]Lɜ][Ý‚ŽÈH   ˆÌÎNÝ[™]ØØ[ÜÝL ˆÌÎNÈ[È[݈[ˆ›Þ
ÒS’ÑVJԊBŽÈÈÛۛ™XÝÈHٝ™‚‚ŽÈXZ[ˆ›ØÙÜ•˜^TÙ]ÛÛ
    œ][ÝÓXZ[ˆ›ØÙÜÈ  œ][ÝÈ   ˜[È]]Ò]Q
B‰ˆÌ͎ÚÛØÚÙ]HÔÝ[Š œ][Ýɜ][ÝËL
B•Ú[HB‚IˆÌ͎ÚXØÙHÔXØÙ
    ˆÌ͎ÚÛØÚÙ]
B‚RYˆ ˆÌ͎ÚXØÙ ™ÝÈ[‚‚BWÐÛÔ›ØÈ
    œ][Ý×ә]ÐÛۛ™XÝ[ۉœ][ÝË ˆÌ͎ÚXØÙ
B‚BNțșYYÈÛÜÙHHÛØÚÙ]H™]‚BNÈ›ØÙÜÈÚ[È]‚Q[™Y‚‚TÛY
L
B•Ñ[™‚ŽÈÛܚو›ØÙÜ‘[˜Èә]ÐÛۛ™XÝ[ۊ    ˆÌ͎ÚXØÙ
B‚IˆÌ͎ÚXØÙHÑXØ]R[™H
    ˆÌ͎ÙÚWÐÛÔ›ØÔ™[ÈțݚYYžHÛԛ؂BBIˆÌ͎ÚXØÙÂNÈH[™HÈXØ]B‚BBP]]Ò]QÈÈݜ™[Y‚BBUYJHÈÛÜÙHHÛØÚÙ][ˆH™[›ØÙÜ‚RYˆœ›Üˆ[ˆ^]‚U˜^TÙ]ÛÛ
    œ][ÝÕÛܚو›ØÙÜÈ œ][ÝÈ   ˜[È]]Ò]Q
B‚SØØ[ ˆÌ͎ÜНY™‚‚UÔÙ[™
    ˆÌ͎ÚXØÙ    œ][ÝÖ[݈Ûۛ™XÝYÈYˆ œ][ÝÈ   ˜[È]]Ò]Q  ˜[ÈԓŠB‚UÔÙ[™
    ˆÌ͎ÚXØÙ    œ][ÝÒ[ˆH[    œ][ÝÈ   ˜[ÈԓŠB‚UÚ[HB‚BIˆÌ͎ÜНY™ˆ ˜[ÏHÔ™X݊ ˆÌ͎ÚXØÙMŠB‚BRYˆœ›Üˆ[ˆ^]‚BRYˆÝš[™Ó[Š   ˆÌ͎ÜНY™ŠH   ™ÝÈ[™Ýš[™Ò[”ÝŠ   ˆÌ͎ÜНY™‹ԊH[‚‚BBRYˆÝš[™Ò[”ÝŠ   ˆÌ͎ÜНY™‹   œ][ÝÙ^]    œ][ÝÊHHH[ˆ^]‚BBRYˆÝš[™Ò[”ÝŠ    ˆÌ͎ÜНY™‹   œ][ÝÓÙЛÞ  œ][ÝÊHHH[‚‚BBBSÙЛÞ
]]Ò]QÝš[™ÓZY
    ˆÌ͎ÜНY™‹
ÊJB‚BBQ[™Y‚‚BBRYˆÝš[™Ò[”ÝŠ ˆÌ͎ÜНY™‹   œ][ÝÚ[    œ][ÝÊHHH[‚‚BBBUÔÙ[™
    ˆÌ͎ÚXØÙ    œ][ÝÐÛÛ[X[™Ήœ][ÝÈ    ˜[ÈԓŠB‚BBBUÔÙ[™
    ˆÌ͎ÚXØÙ    œ][ÝÒ[HÈ[™Éœ][ÝÈ   ˜[ÈԓŠB‚BBBUÔÙ[™
    ˆÌ͎ÚXØÙ    œ][ÝÓÙЛÞ  ›ÓÙəÝÈHžH]ŠIœ][ÝÈ    ˜[ÈԓŠB‚BBBUÔÙ[™
    ˆÌ͎ÚXØÙ    œ][ÝÑ^]H]Z] œ][ÝÈ   ˜[ÈԓŠB‚BBQ[™Y‚‚BBIˆÌ͎ÜНY™ˆH œ][Ýɜ][Ý‚BQ[™Y‚‚UÑ[™‘[™[˜ÈÏOI™Ý×ә]ÐÛۛ™XÝ[ۂ

Edited by piccaso, 07 June 2007 - 08:22 AM.

[RazerM]

It works really well picasso. I like your method of doing this.

[WTS]

It works really well picasso. I like your method of doing this.

yeah nice job picasso

Edited by WTS, 17 July 2006 - 09:52 PM.

[w0uter]

Assign("gi_CoProcParent", Number(EnvGet("CoProcParent")), 2)

Is BAD! lol.

Also i remember a glitch where BinaryString did not convert it to hex if it did not contain NON alphanumeric characters. Dont know if it is fixed or an error on my part. I usually just fixed it by adding a Chr(0) at the front and then stripping the first 2 bytes

[piccaso]

@RazerM,WTS
Thanks :">

Assign("gi_CoProcParent", Number(EnvGet("CoProcParent")), 2)

Is BAD! lol.

Why?

Also i remember a glitch where BinaryString did not convert it to hex if it did not contain NON alphanumeric characters. Dont know if it is fixed or an error on my part. I usually just fixed it by adding a Chr(0) at the front and then stripping the first 2 bytes

MsgBox(0,"",BinaryString("0x" & Hex(BinaryString("Hello"))))

works fine, but you made me nervous

[erifash]

Also i remember a glitch where BinaryString did not convert it to hex if it did not contain NON alphanumeric characters.

That's only if you are using String(BinaryString("Text")) to convert to hex. I had that same problem in another program but I fixed it using Hex(BinaryString("Text")).

[piccaso]

after keeping the changes secret for some months i finaly managed to update it

... i'm getting old, i had to read my own function headers to understand my code.
so let this be a lesson to all you non documenting function authors out there

Edited by piccaso, 18 November 2006 - 01:30 AM.

[SmOke_N]

after keeping the changes secret for some months i finaly managed to update it

... i'm getting old, i had to read my own function headers to understand my code.
so let this be a lesson to all you non documenting function authors out there

I'm going to play with these over the weekend, but the work looks really good ... thanks

[piccaso]

I'm going to play with these over the weekend, but the work looks really good ... thanks

your welcome, Thanks
let me know what you think of it...

Updated first post, added changelog too...

[RazerM]

i really like the changes piccaso. I have used your UDF's quite a few times but I always change these to functions:

AutoIt        expandcollapse  popup

Func _SuperGlobalSet($sName, $vValue = "", $regkey = "HKEY_CURRENT_USER\Software\AutoIt v3\CoProc")
 Local $vTmp
 If $vValue = "" Then
  RegDelete($regkey, $sName)
  If @error Then Return SetError(2, 0, False) ; Registry Problem
 Else
  $vValue = StringTrimLeft(Hex(BinaryString(Chr(0) & $vValue)), 2)
  If @error Then
   Return SetError(1, 0, False) ; Wrong variable type
  Else
   RegWrite($regkey, $sName, "REG_BINARY", $vValue)
   If @error Then Return SetError(2, 0, False) ; Registry Problem
  EndIf
 EndIf
 Return True
EndFunc   ;==>_SuperGlobalSet

Func _SuperGlobalGet($sName, $fOption = False, $regkey = "HKEY_CURRENT_USER\Software\AutoIt v3\CoProc")
 Local $vTmp
 $vTmp = RegRead($regkey, $sName)
 If @error Then Return SetError(1, 0, "") ; Registry Problem
 If $fOption Then
  _SuperGlobalSet($sName)
  If @error Then SetError(2)
 EndIf
 Return BinaryString("0x" & $vTmp)
EndFunc   ;==>_SuperGlobalGet

The only thing I have changed is a paramater so I can choose my own registry key. This is because in a compiled exe I want it to write to its own registry key.

Edited by RazerM, 18 November 2006 - 11:22 PM.

[piccaso]

my idea was to use the global variable $gs_SuperGlobalRegistryBase to point to a costum location but i will make it compatible to your version (if you dont mind) so both methods will work.

nice idea

[RazerM]

No problem. Thanks.

[59FIFTY]

This UDF is very nice, except for one problem: If you have 2 scripts running communicating witch each other and the active window is a third app, the communication doesn't work at all.

Edited by 59FIFTY, 17 January 2007 - 11:19 PM.

[piccaso]

Sorry 59FIFTY, i didn't get notified by the forum...
could you be more specific?
because it works for me...

Updated to work with the current autoit version.
And i added an example on how to use a socket in another process.
i wonder why nobody ever posed a way to use sockets that way, after all that multithread whining

[mrbond007]

... i'm getting old, i had to read my own function headers to understand my code.

For someone who's getting old, you sure make some kickass scripts
Excellent job

[Armand]

can you supply us with some more info regarding how to use coproc with parameterS (more than 1!!!) ?!

[ReCoder]

can you supply us with some more info regarding how to use coproc with parameterS (more than 1!!!) ?!

Hi Armand,
please look at the attachement "CoProc.zip" in the first post.

@picasso
Thanks for this amazing UDF, i take it to my favorites.
Multiprozessing looks like more professional with your functions.

[Armand]

@ReCoder
wow... that helped alot (NOT...)
but thanks anyhow...

[Skizmata]

Thank you very much Picasso I have been using your suspend/resume in a project of mine the updates are appreciated. I have learned much from study of your work thank you.

[N4rk0]

I think that need update for current version , when try to use it says that are useddeprecated var types calling dll....

Edit
I did it by myself , replase long_ptr with long

Edited by N4rk0, 20 December 2007 - 03:36 AM.