#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=ipc_receiver.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <MsgBoxConstants.au3>
#include <WinAPI.au3>
#include <WinAPISys.au3>
#include <ProcessConstants.au3>
#include <FontConstants.au3>
#include <GuiEdit.au3>
#include <ScrollBarsConstants.au3>
#include <WinAPIDiag.au3>

; Author : Grosminet

	Global Const $WM_IPC_PRIVATE_Grosminet = _WinAPI_RegisterWindowMessage('ipc_sender_to_receiver')
	Global Const $sAPP_me = "ipc_receiver"
	Global Const $sAPP_other = "ipc_sender"
	Global Const $sSenderEXE = @scriptdir & "\" & $sAPP_other & ".exe"

	Global $guiw = 1000, $guih = 300, $guix = (@desktopwidth - $guiw - 50), $guiy = 100, $sp = 10, $x = $sp, $y = $sp, $w, $hbut = 28, $h
	Global $hParentGUI, $hlocalPID, $hRecEdit
	Global $debug = true, $info, $hProcessOther, $PIDAppMe, $PIDAppOther, $iRead, $aret
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	$hParentGui = GUICreate($sAPP_me, $guiw, $guih, $guix, $guiy)
	$w = ($guiw - 2*$sp)
	$hlocalPID = GUIctrlCreateLabel("PID=", $x, $y, $w, $hbut)
	$y += $hbut + $sp
	$h = ($guih - $y - $sp)
	$hRecEdit = GUIctrlCreateEdit("", $x, $y, $w, $h)
	GUICtrlSetFont(-1, 9, $FW_NORMAL, Default, "Courier New")
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	GUIRegisterMsg($WM_IPC_PRIVATE_Grosminet, 'WM_FROM_APP')
	GUISetState(@SW_SHOW, $hParentGui)
	GUICtrlSetData($hlocalPID, "PID= " & @AutoItPID)
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	; Get the SENDER application 'pid'
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	$PIDAppOther = ShellExecute($sSenderEXE)
	if $PIDAppOther = -1 then
		MsgBox($MB_SYSTEMMODAL, "ERROR", "Unable to start " & $sAPP_other & " --> error= " & @error)
		exit
	Endif
	sleep(500)
	$info = "Ready to receive ! Please send a text ..." & @CRLF
	_ShowInfo($info)
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	; Get the SENDER application 'process handle'
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	$hProcessOther = _WinAPI_OpenProcess($PROCESS_VM_READ, False, $PIDAppOther)
	if @error Then
		$info = "_WinAPI_OpenProcess() error: " & @error & @crlf
		_ShowInfo($info)
		exit
	endif
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                _myExit()
        EndSwitch
    WEnd
; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	Func WM_FROM_APP($hWnd, $iMsg, $wParam, $lParam)
		$info = "..... METHOD 1: _WinAPI_CreateBuffer ....." & @crlf
		_ShowInfo($info)
		_Method_1($wParam, $lParam)
		;
		$info = "..... METHOD 2: DllStructCreate .........." & @crlf
		_ShowInfo($info)
		_Method_2($wParam, $lParam)
	EndFunc   ;==>WM_FROM_APP
; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	Func _Method_1($wParam, $lParam)
		Local $iStrucSize_SENT = Int($lParam)
		Local $pBuffer = _WinAPI_CreateBuffer($iStrucSize_SENT)
		$aret = _WinAPI_ReadProcessMemory($hProcessOther, $wParam, $pBuffer, $iStrucSize_SENT, $iRead)
		;
		$info = _DumpStruct($pBuffer, $iStrucSize_SENT)
		_ShowInfo($info)
		_ShowInfo(_WinAPI_GetString($pBuffer) & @crlf & "--------------------------------" & @crlf)
		_WinAPI_FreeMemory($pBuffer)
	EndFunc ; _Method_1
; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	Func _Method_2($wParam, $lParam)
		Local $iStrucSize_SENT = Int($lParam)
		local $TagInfoStruct = "struct;align;byte buf[" & $iStrucSize_SENT & "];endstruct"
		Local $tbuffer = DllStructCreate($TagInfoStruct)
		Local $iSizeStruct = DllStructGetSize($tbuffer)
		Local $pBuffer = DllStructGetPtr($tbuffer)
		$aret = _WinAPI_ReadProcessMemory($hProcessOther, $wParam, $pBuffer, $iStrucSize_SENT, $iRead)
		;
		$info = _DumpStruct($pBuffer, $iStrucSize_SENT)
		_ShowInfo($info)
		_ShowInfo(_WinAPI_GetString($pBuffer) & @crlf & "--------------------------------" & @crlf)
		$pBuffer = 0
	EndFunc ; _Method_2
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	Func _ShowInfo($msg)
		if $debug then ConsoleWrite($msg)
		GUICtrlSetData($hRecEdit, GUICtrlRead($hRecEdit) & $msg)
		Local $iEnd = StringLen(GUICtrlRead($hRecEdit))
		_GUICtrlEdit_SetSel($hRecEdit, $iEnd, $iEnd)
		_GUICtrlEdit_Scroll($hRecEdit, $SB_SCROLLCARET)
	Endfunc ; _ShowInfo
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	Func _myExit()
		_WinAPI_CloseHandle($hProcessOther)
		ProcessClose($PIDAppOther)
		GUIDelete()
		exit
	Endfunc ; _myExit
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	Func _DumpStruct($p_STRUCT, $iSizeStruct)
		; $iSizeStruct = the size of the struct in bytes (DllStructGetSize)
		
		Local $TagStructDump = "struct;align;byte[" & $iSizeStruct & "];endstruct"

		Local $t_Struct = DllStructCreate($TagStructDump, $p_STRUCT)
		Local $i
		Local $structInfo = ""
		_ConsoleWriteInfo($structInfo, "Structure size: " & $iSizeStruct & " byte(s):" & @crlf)
		for $i = 0 to $iSizeStruct - 1
			_ConsoleWriteInfo($structInfo, hex(DllStructGetData($t_Struct, 1, $i), 2) & " ")
			if (Mod($i+1, 8) = 0) then
				_ConsoleWriteInfo($structInfo, @CRLF)
			Endif
		Next
		_ConsoleWriteInfo($structInfo, @CRLF)
		return $structInfo
	EndFunc ; _DumpStruct
	; ooooooooooooooooooooooooooooooooooooooooooooooooooooooo
	Func _ConsoleWriteInfo(ByRef $msg, $txt)
		$msg &= $txt
	EndFunc ; _ConsoleWriteInfo