Memory Read

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <nomadmemory.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Sol loger", 201, 64, 324, 280)
GUISetFont(9, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Score Addy", 8, 16, 69, 17)
$Label2 = GUICtrlCreateLabel("0x000000", 88, 16, 59, 17)
$Label3 = GUICtrlCreateLabel("Bitte starte Solitär",8, 40, 180, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
call("Game")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Func Game()
ProcessWait("sol.exe")
If ProcessExists("sol.exe") Then
GUICtrlSetData($Label3, "Game found")
EndIf
call("Read")
EndFunc

Func Read()
$99 = WinGetProcess("sol.exe")
$100 = _MemoryOpen($99)
$1 = "6E 00 00 00 00 00 00 00 28 00 00 00 03 00 00 00"
$2 = _MemoryRead($1,$100)
Guictrlsetdata($Label2,$2)
EndFunc

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <nomadmemory.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Sol loger", 201, 64, 324, 280)
GUISetFont(9, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Score Addy", 8, 16, 69, 17)
$Label2 = GUICtrlCreateLabel("0x000000", 88, 16, 59, 17)
$Label3 = GUICtrlCreateLabel("Bitte starte Solitär",8, 40, 180, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
call("Game")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Func Game()
ProcessWait("sol.exe")
If ProcessExists("sol.exe") Then
GUICtrlSetData($Label3, "Game found") ;Ich hab XP
EndIf
call("Read")
EndFunc
;$1 = "00 00 00 00 00 00 00 00 28 00 00 00 03 00 00 00"
func Read()
$base = 0x000A0000
$PID = WingetProcess("sol.exe")
$Open = _MemoryOpen($PID)
$Read = _MemoryRead($Open, 0x00000000)
GUICtrlSetData($Label2, $Read)
EndFunc