PHP Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <Pointer.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Logtetsch-Bot v.1.0", 338, 332, 192, 124)
$ListView1 = GUICtrlCreateListView("X-Achse | Y-Achse", 16, 16, 306, 214)
GUISetBkColor (0x000000)
$sHandel = GUICtrlGetHandle ($ListView1)
$Button1 = GUICtrlCreateButton("Hinzufügen", 16, 248, 107, 25)
$Button2 = GUICtrlCreateButton("Entfernen", 216, 248, 107, 25)
$Button3 = GUICtrlCreateButton("Start/ Pause", 128, 248, 83, 25)
$Button4 = GUICtrlCreateButton ("Speichern",16,280,107,25)
$Button5 = GUICtrlCreateButton ("Laden",216,280,107,25)
$Button6 = GUICtrlCreateButton ("Clear",128,280,83,25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $DBank = @ScriptDir & "\File.txt"
Global $PID = ProcessExists ("TClient.exe")
Global $Open = _MemoryOpen ($PID)
Global $end = _MemoryClose ($Open)
Global $ModuleX = _MemoryModuleGetBaseAddress ($PID, "TClient.exe") + 0x00331738 ; ====== Meine X-Koordinate
Global $OffsetX[5]
$OffsetX[0] = 0
$OffsetX[1] = 0xC8
$OffsetX[2] = 0x338
$OffsetX[3] = 0x6B0
$OffsetX[4] = 0x84
Global $ModuleXFlimmer = _MemoryModuleGetBaseAddress ($PID, "TClient.exe") + 0x00315AA8 ; ====== Meine X-Koordinate (wenn ich die Value verändere Flimmert mein Typ)
Global $OffsetXFlimmer[5]
$OffsetXFlimmer[0] = 0
$OffsetXFlimmer[1] = 0x130
$OffsetXFlimmer[2] = 0x338
$OffsetXFlimmer[3] = 0x6B0
$OffsetXFlimmer[4] = 0x8C
Global $ModuleY = _MemoryModuleGetBaseAddress ($PID, "TClient.exe") + 0x00315AA8 ; ======== Mein Y-Koordinate
Global $OffsetY[4]
$OffsetY[0] = 0
$OffsetY[1] = 0x338
$OffsetY[2] = 0x6B0
$OffsetY[3] = 0x8C
Global $ModuleYFlimmer = _MemoryModuleGetBaseAddress ($PID,"TClient.exe") + 0x00315224 ; ========== Meine Y-Koordinate (wenn ich die Value verändere flimmert mein Typ)
Global $OffsetYFlimmer[4]
$OffsetYFlimmer[0] = 0
$OffsetYFlimmer[1] = 0x36C
$OffsetYFlimmer[2] = 0x258
$OffsetYFlimmer[3] = 0x4C
Global $BaseXMob = _MemoryModuleGetBaseAddress ($PID, "TClient.exe") + 0x00315224 ; =============== X-Koordinate der Monster
Global $OffsetXMob[3]
$OffsetXMob[0] = 0
$OffsetXMob[1] = 0x790
$OffsetXMob[2] = 0x84
Global $BaseYMob = _MemoryModuleGetBaseAddress ($PID, "TClient.exe") + 0x003316DC ; ================ Y-Koordinate der Monster
Global $OffsetYMob[4]
$OffsetYMob[0] = 0
$OffsetYMob[1] = 0x130
$OffsetYMob[2] = 0x790
$OffsetYMob[3] = 0x8C
Global $ModuleShop = _MemoryModuleGetBaseAddress ($PID,"TClient.exe") + 0x00315224 ; ================ Pointer für den Shop... Autoverkauf
Global $OffsetShop[3]
$OffsetShop [0] = 0
$OffsetShop [1] = 0x33C
$OffsetShop [2] = 0x140
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1 ; ER fügt die X-Y Koordinaten in die Listview hinzu.
$Open = _MemoryOpen ($PID)
$Read1 = _MemoryPointerRead ($ModuleX, $Open, $OffsetX, "float") ; ModuleX = Meine X Koordinate
$Read2 = _MemoryPointerRead ($ModuleY, $Open, $OffsetY, "float") ; ModuleY = Meine Y Koordinate
$createItem = GUICtrlCreateListViewItem ($Read1[1] & " | " & $Read2[1] , $ListView1) ;Erstellt ein neues Element mit den X-Y Koordinaten.
$end = _MemoryClose ($Open)
Case $Button2 ; Löscht die ausgewählten x-Y Koordinaten
_GUICtrlListView_DeleteItemsSelected ($ListView1)
Case $Button3
Case $Button4
Local $Item
Local $Count = _GUICtrlListView_GetItemCount ($sHandel) -1
Local $File = FileOpen ($DBank, 2)
If $File <> -1 Then
For $i = 0 to $Count
$Item = _GUICtrlListView_GetItemTextString ($sHandel, $i)
FileWriteLine ($File, $Item)
Next
FileClose ($File)
EndIf
MsgBox (0,"Save","Datei wurde erfolgreich gespeichert!")
Case $Button5
Local $Item
Local $File = FileOpen ($DBank, 0)
If $File <> -1 Then
_GUICtrlListView_BeginUpdate ($sHandel)
While True
$Item = FileReadLine ($File)
If @error then ExitLoop
GUICtrlCreateListViewItem ($Item, $ListView1)
WEnd
_GUICtrlListView_EndUpdate ($sHandel)
FileClose ($File)
EndIf
MsgBox (0,"Load","Datei wurde erfolgreich geladen!")
Case $Button6
If MsgBox(256 + 32 + 4, "Clear", "Wollen sie wirklich alle Einträge löschen?") = 6 Then _GUICtrlListView_DeleteAllItems($sHandel)
EndSwitch
WEnd