param = %1%

if (param != "")
   Menu, Tray, Icon, %A_AhkPath%, 2

#SingleInstance, Off
DetectHiddenWindows, On
OnMessage(WM_INFO := DllCall("RegisterWindowMessage", Str, "WM_INFO"), Func("WM_INFO_RECEIVER").Bind(param))

if (param = "") {
   children := []
   Loop 3  {
      Run, "%A_AhkPath%" "%A_ScriptFullPath%" "%A_Index%",,, PID
      children.Push(PID)
      while !WinExist("ahk_pid" PID)
         Sleep, 10
   }
   for k, v in children  {
      task%A_Index% := "Посчитать '3**" A_Index "'"
      SendMyMessage(WM_INFO, v, &task%A_Index%, StrLen(task%A_Index%))
   }
   OnExit(Func("CloseChildren").Bind(children))
}      

SendMyMessage(msg, PID, pStr, len)  {
   if A_IsUnicode
      len *= 2
   MyPID := DllCall("GetCurrentProcessId")
   wp := MyPID | (len << 16)
   lp := pStr
   SendMessage, msg, wp, lp,, ahk_pid %PID%
}

WM_INFO_RECEIVER(param, wp, lp, msg)  {
   Critical
   static reply, text
   PID := wp & 0xFFFF
   strSize := wp >> 16
   strPtr := lp
   str := ReadStringInAnotherProcess(PID, strPtr, strSize)
   
   if !param
      MsgBox, % str
   else  {
      RegExMatch(str, "'(.*)'", match)
      reply := "Ответ от скрипта " . param . ":`n" . match1 . " = " . ExecScript("FileAppend, % " match1 ", *")
      SendMyMessage(msg, PID, &reply, StrLen(reply))
   }
}
      
ReadStringInAnotherProcess(PID, addr, size)  {
   static PROCESS_VM_OPERATION := 0x8, PROCESS_VM_WRITE := 0x20, PROCESS_VM_READ := 0x10
   
   hProc := DllCall("OpenProcess", UInt, PROCESS_VM_OPERATION|PROCESS_VM_READ|PROCESS_VM_WRITE, Int, 0, UInt, PID, Ptr)
   VarSetCapacity(buff, size, 0)
   DllCall("ReadProcessMemory", Ptr, hProc, Ptr, addr, Ptr, &buff, Ptr, size, Int, 0)
   DllCall("CloseHandle", Ptr, hProc)
   Return StrGet(&buff)
}

CloseChildren(pids)  {
   for k, v in pids
      WinClose, ahk_pid %v%
}

ExecScript(Script)  {
   shell := ComObjCreate("WScript.Shell")
   exec := shell.Exec("AutoHotkey.exe /ErrorStdOut *")
   exec.StdIn.Write(script)
   exec.StdIn.Close()
   return exec.StdOut.ReadAll()
}

WinGet, ParentHWND, id, check.ahk ahk_class AutoHotkey
DllCall("PostMessage", Ptr, ParentHWND, UInt, WM_INFO, Ptr, wp, Ptr, lp)

WinGet, ParentHWND, id, check.ahk ahk_class AutoHotkey
DllCall("PostMessage", Ptr, ParentHWND, UInt, WM_INFO, Ptr, wp, Ptr, lp)
WinGet, ParentHWND1, id, check1.ahk ahk_class AutoHotkey
DllCall("PostMessage", Ptr, ParentHWND1, UInt, WM_INFO, Ptr, wp, Ptr, lp)

SetTitleMatchMode, 2
DetectHiddenWindows on
WinGet, ParentHWND, id, check.ahk ahk_class AutoHotkey
MyPID := DllCall("GetCurrentProcessId")
WM_INFO := DllCall("RegisterWindowMessage", Str, "WM_INFO")
	
fileread, text, 1.txt
BuffLen := StrLen(text) * (A_IsUnicode ? 2 : 1)
VarSetCapacity(Info, A_PtrSize*2, 0)
NumPut(&text, NumPut(BuffLen, Info))

wp := MyPID, lp := &Info
DllCall("PostMessage", Ptr, ParentHWND, UInt, WM_INFO, Ptr, wp, Ptr, lp)
return

#Persistent
OnMessage(DllCall("RegisterWindowMessage", Str, "WM_INFO"), "WM_INFO_RECEIVER")

WM_INFO_RECEIVER(wp, lp)
{
	static PROCESS_VM_OPERATION := 0x8, PROCESS_VM_READ := 0x10
	Critical
	PID := wp
	pInfo := lp

	if hProc := DllCall("OpenProcess", UInt, PROCESS_VM_OPERATION|PROCESS_VM_READ, Int, 0, UInt, PID, Ptr)  {
		VarSetCapacity(LocalBuff, A_PtrSize * 2, 0)
		if DllCall("ReadProcessMemory", Ptr, hProc, Ptr, pInfo, Ptr, &LocalBuff, Ptr, A_PtrSize * 2, Ptr, 0)  {
			TextSize := NumGet(LocalBuff), pText := NumGet(&LocalBuff + A_PtrSize)
			VarSetCapacity(LocalBuff, TextSize, 0)
			res := DllCall("ReadProcessMemory", Ptr, hProc, Ptr, pText, Ptr, &LocalBuff, Ptr, TextSize, Ptr, 0)
		}
		DllCall("CloseHandle", Ptr, hProc)
	}
	if !res  {
		MsgBox, Ошибка при чтении данных
		Return
	}
	msgbox % clipboard := StrGet(&LocalBuff)
}

SetTitleMatchMode, 2
DetectHiddenWindows on
WinGet, ParentHWND, id, check.ahk ahk_class AutoHotkey
MyNumber := 1  ; у каждого отправляющего скрипта должен быть свой номер, от 1 до 15
MyPID := DllCall("GetCurrentProcessId")
WM_INFO := DllCall("RegisterWindowMessage", Str, "WM_INFO")
if !PidSent
	DllCall("PostMessage", Ptr, ParentHWND, UInt, WM_INFO, Ptr, (MyNumber << 16)|MyPID, Ptr, 0), PidSent := 1
	
fileread, text, 1.txt
BuffLen := StrLen(Text) * (A_IsUnicode ? 2 : 1)
if (BuffLen > 0xFFFFFFF)  {
	MsgBox, Текст слишком длинный`, не будет отправлен!
	Return
}
wp := (MyNumber << 28) | BuffLen
lp := &Text
DllCall("PostMessage", Ptr, ParentHWND, UInt, WM_INFO, Ptr, wp, Ptr, lp)
return

#Persistent
OnMessage(DllCall("RegisterWindowMessage", Str, "WM_INFO"), "WM_INFO_RECEIVER")

WM_INFO_RECEIVER(wp, lp)
{
   static PROCESS_VM_OPERATION := 0x8, PROCESS_VM_READ := 0x10, PidArray := []
   Critical
   if !lp  {
		PidArray[wp >> 16] := wp & 0xFFFF
		Return
	}
   Pointer := lp
   BuffSize := wp & 0xFFFFFFF
	PID := PidArray[wp >> 28]
   
   VarSetCapacity(LocalBuff, BuffSize, 0)
   if !hProc := DllCall("OpenProcess", UInt, PROCESS_VM_OPERATION|PROCESS_VM_READ, Int, 0, UInt, PID, Ptr)
      Return
   
   res := DllCall("ReadProcessMemory", Ptr, hProc, Ptr, Pointer, Ptr, &LocalBuff, Ptr, BuffSize, Ptr, 0)
   DllCall("CloseHandle", Ptr, hProc)
   if !res
      Return

   msgbox % clipboard := StrGet(&LocalBuff)
}