Send and receive strings between AHK scripts

[DJAnonimo]

Hello,

here is my version of communicating between scripts.
Simple and easy

Send function:

Code: Select all

SendToAHK(String)
{
	Prev_DetectHiddenWindows := A_DetectHiddenWindows
	DetectHiddenWindows On
	StringLen := StrLen(String)
	Loop, %StringLen%
	{
	AscNum := Asc(SubStr(String, A_Index, 1))
	if (A_Index = StringLen)
		LastChar := 1
	PostMessage, 0x5555, AscNum,LastChar,,AHK
	}
	DetectHiddenWindows %Prev_DetectHiddenWindows%
}

Code: Select all

gui, new,, AHK
OnMessage(0x5555, "Func")
SetTimer, MyTimer, 100


MyTimer:
if receivedVar
{
Received_String := receivedVar, receivedVar := ""
Msgbox "%Received_String%"
}
return

func(wParam, lParam, Msg){
global tempVar
global receivedVar
	if (Msg = 0x5555)
		{
		tempVar .= Chr(wParam)
		if lParam
			receivedVar := tempVar, tempVar := ""
		}
}

Send string example:

Code: Select all

SendToAHK("Hello World!")

[burque505]

Thanks, DJAnonimo! Works perfectly for me. I like it.

[Guest]

Using a Gui it seems - a similar but more elaborate solution by FG here https://autohotkey.com/boards/viewtopic.php?t=3275

[drozdman]

Cool idea.
I've been using Receive_WM_COPYDATA(wParam, lParam), but it requires this function included.

[elbitjusticiero]

Does this work for sharing information between AHK1 and AHK2 scripts? Because that would be the best way for me to adopt v2.

[SOTE]

Great idea and script.

[nnnik]

If the goal is to share data this function should probably be used:
https://www.autohotkey.com/boards/viewtopic.php?f=6&t=6148