Code:
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
Global $Pointer, $off[2]
$off[0] = 0x4B14
$off[1] = 0x4640
$Pointer = 0x006F3840
$PID = ProcessWait("engine.exe")
$HPROCESS = _MEMORYOPEN($PID)
$Point = _memoryread($Pointer, $HPROCESS, 'dword') ;pointer auslesen
_MemoryWrite($Point + $off[0] , $HPROCESS,GUICtrlRead($Input5), 'dword')
_Memorywrite($Point + $Off[1] , $HPROCESS,GUICTRLRead($Input6), 'dword')
$KalOnlineHack = GUICreate("KalOnline hack", 386, 120, 298, 300)
$Button1 = GUICtrlCreateButton("Pimp Hack", 56, 48, 105, 49)
$Button3 = GUICtrlCreateButton("Anderes", 224, 48, 105, 49)
$Label1 = GUICtrlCreateLabel("Pimp, Rev, Eb, Cooldown", 32, 24, 152, 17, $SS_CENTER)
$Label3 = GUICtrlCreateLabel("Speed, UG/OG", 224, 24, 102, 17, $SS_CENTER)
GUISetState(@SW_SHOW, $KalOnlineHack)
$PimpHack = GUICreate("Pimp Hack", 284, 211, 203, 327)
GUISetIcon("C:\Dokumente und Einstellungen\Ronny\Desktop\icon.ico", -1)
$Button4 = GUICtrlCreateButton("Pimp!", 80, 112, 113, 57)
$Input1 = GUICtrlCreateInput("", 80, 64, 113, 21)
$Label4 = GUICtrlCreateLabel("Bitte Cooldown zeit angeben (-1 schnelltste)", 32, 16, 210, 17)
$Label5 = GUICtrlCreateLabel("Dies gilt für Pimp, Rev und Eb", 64, 40, 145, 17)
GUISetState(@SW_HIDE, $PimpHack)
$Anderes = GUICreate("Anderes", 371, 218, 271, 244)
$Label1 = GUICtrlCreateLabel("Speed und Position (höhe/tiefe) ändern.", 88, 16, 193, 17, $SS_CENTER)
$Input5 = GUICtrlCreateInput("", 48, 96, 105, 21)
$Button1 = GUICtrlCreateButton("Speed change", 48, 136, 105, 49)
$Label2 = GUICtrlCreateLabel("Speed", 48, 72, 35, 17, $SS_CENTER)
$Input6 = GUICtrlCreateInput("", 216, 96, 105, 21)
$Label3 = GUICtrlCreateLabel("UG/OG", 216, 72, 41, 17, $SS_CENTER)
$Button2 = GUICtrlCreateButton("UG/OG", 216, 136, 105, 49)
GUISetState(@SW_HIDE, $Anderes)
$PID = ProcessWait("engine.exe")
$PIMP = GUICtrlRead($Input1)
$HPROCESS = _MEMORYOPEN($PID)
$B11 = 0x004E9C5F
_MEMORYWRITE(0x004E9C5F, $HPROCESS, $PIMP, "Float")
_MEMORYWRITE(0x004E9C86, $HPROCESS, $PIMP, "Float")
_MEMORYWRITE(0x004E9C8F, $HPROCESS, $PIMP, "Float")
While 1
$Gui1Msg = GUIGetMsg($KalOnlineHack)
$Gui2Msg = GUIGetMsg($PimpHack)
$Gui3Msg = GUIGetMsg($Anderes)
Switch $Gui1Msg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_SHOW, $PimpHack)
Case $Button3
GUISetState(@SW_SHOW, $Anderes)
EndSwitch
Switch $Gui2Msg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $PimpHack)
EndSwitch
Switch $Gui3Msg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Anderes)
EndSwitch
WEnd
So sollte es gehen. Bestehen weiterhin Probleme melden.
Greatz Benhero ([X] auf den fenster Anderes & Pimp Hack lässt diese nun nur noch einzeln verschwinden! Aber hält das Programm offen!)