Opt("GUIOnEventMode", 1)

$oShare = ObjCreate("Pipeline.Pipe")
ConsoleWrite("!> " & @error & @LF)

$oShare.CreateSlot ; Erstellt einen Slot, der für die aktuelle PID alle Anfragen abhört

GUICreate("Test", 200, 55)
GUISetOnEvent(-3, "quit")
$hInput = GUICtrlCreateInput("Data to send...", 5, 5, 190, 21)
$hSend 	= GUICtrlCreateButton("Send", 5, 31, 190, 20)
GUICtrlSetOnEvent(-1, "_send")
GUISetState()

While Sleep(10)
	$Data = $oShare.Pop ; Empfängt alle Daten, die an diesen Prozess übergeben werden
	If $Data <> "" Then ConsoleWrite("!> Data: " & $Data & @LF)
WEnd

Func _send()
	$oShare.Push(GUICtrlRead($hInput), @AutoItPID) 	; Sendet Daten. Hier an den selben Prozess zu Testzwecken.
													; Für andere Prozesse einfach eine andere PID einsetzen.
EndFunc

Func quit()
	$oShare.DestroySlot ; Slot schließen
	Exit
EndFunc