#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\Program Files\VMware\VMware Workstation\ico\project.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Memory.au3>
#include <NomadMemory.au3>
;Value
$Value01 = 0
$Value02 = 7
$Value01 = Inputbox("Value1","Put the Number for Value1 in it"&@CRLF&"Dont click Cancel",$Value01,"", 120, 132)
$Value02 = Inputbox("Value2","Put the Number for Value2 in it"&@CRLF&"Dont click Cancel",$Value02,"", 120, 132)
$ActiveValue = 0
$Valueadress = 0
$Freeze = 0
;Adress
$Adress = "0x"
$Adress = Inputbox("Adress","Put the Adress in it"&@CRLF&"Dont click Cancel",$Adress,"", 120, 132)
;Hotkeys
Hotkeyset("{Numpad1}","Value1")
Hotkeyset("{Numpad2}","Value2")
Hotkeyset("{Numpad3}","Freeze")
Hotkeyset("{Numpad4}","ChangeAdress")
Hotkeyset("{Numpad5}","End")
call("Menu1")
;Menu 1
Func Menu1()
While 1
sleep(30)
$GUI1 = GUICreate("KaLLox","120","160")
GUISetState(@SW_SHOW)
$Button1 = GUICtrlCreateButton("Change Value into "&$Value01,"","40","120","20")
$Button2 = GUICtrlCreateButton("Change Value into "&$Value02,"","60","120","20")
$Button3 = GUICtrlCreateButton("Freeze Value","","80","120","20")
$Button4 = GUICtrlCreateButton("Change Adress","","100","120","20")
$Button6 = GUICtrlCreateButton("Change Value 1and2","","120","120","20")
$Button5 = GUICtrlCreateButton("End","","140","120","20")
$Adressshow = GUICtrlCreateLabel("Adress:"&$Adress,10,3)
$Valueshow = GUICtrlCreateLabel("Value"&$Valueadress,10,17)
While 1
$info = _MemoryOpen(ProcessExists("engine.exe"))
$Valueadress = _MemoryRead($Adress, $info, 'dword')
GUICtrlDelete($Valueshow)
$Valueshow = GUICtrlCreateLabel("Value"&$Valueadress,10,17)
$msg = GUIGetMsg()
Select
Case $msg = $Button1
Call("Value1")
Case $msg = $Button2
Call("Value2")
Case $msg = $Button3
Guidelete($GUI1)
Call("Freeze")
Case $msg = $Button4
Call("ChangeAdress")
Case $msg = $Button5
GUIDelete($GUI1)
Exit
Case $msg = $Button6
Call("ChangeValue")
EndSelect
WEnd
WEnd
EndFunc
Func Menu2()
While 1
sleep(30)
$GUI2 = GUICreate("KaLLox","120","160")
GUISetState(@SW_SHOW)
$Button1 = GUICtrlCreateButton("Change Value into "&$Value01,"","40","120","20")
$Button2 = GUICtrlCreateButton("Change Value into "&$Value02,"","60","120","20")
$Button3 = GUICtrlCreateButton("UnFreeze Value","","80","120","20")
$Button4 = GUICtrlCreateButton("Change Adress","","100","120","20")
$Button6 = GUICtrlCreateButton("Change Value 1and2","","120","120","20")
$Button5 = GUICtrlCreateButton("End","","140","120","20")
$Adressshow = GUICtrlCreateLabel("Adress:"&$Adress,10,3)
$Valueshow = GUICtrlCreateLabel("Value"&$Valueadress,10,17)
While 1
$info = _MemoryOpen(ProcessExists("engine.exe"))
_MemoryWrite($Adress, $info, $ActiveValue)
$info = _MemoryOpen(ProcessExists("engine.exe"))
$Valueadress = _MemoryRead($Adress, $info, 'dword')
GUICtrlDelete($Valueshow)
$Valueshow = GUICtrlCreateLabel("Value"&$Valueadress,10,17)
$msg = GUIGetMsg()
Select
Case $msg = $Button1
Call("Value1")
Case $msg = $Button2
Call("Value2")
Case $msg = $Button3
Guidelete($GUI2)
Call("Freeze")
Case $msg = $Button4
Call("ChangeAdress")
Case $msg = $Button5
GUIDelete($GUI1)
Exit
Case $msg = $Button6
Call("ChangeValue")
EndSelect
WEnd
WEnd
EndFunc
;Functions
Func Value1()
$prozess = WinGetProcess("KalOnline")
$info = _MemoryOpen(ProcessExists("engine.exe"))
_MemoryWrite($Adress, $info, $Value01)
$ActiveValue = 0
$info = _MemoryOpen(ProcessExists("engine.exe"))
$Valueadress = _MemoryRead($Adress, $info, 'dword')
EndFunc
Func Value2()
$prozess = WinGetProcess("KalOnline")
$info = _MemoryOpen(ProcessExists("engine.exe"))
_MemoryWrite($Adress, $info, $Value02)
$ActiveValue = 7
$info = _MemoryOpen(ProcessExists("engine.exe"))
$Valueadress = _MemoryRead($Adress, $info, 'dword')
EndFunc
Func ChangeAdress()
$Adress = "0x"
$Adress = Inputbox("Adress","Put the Adress in it"&@CRLF&"Dont click Cancel",$Adress,"", 120, 132)
EndFunc
Func Freeze()
IF $Freeze = 0 Then
$Freeze = 1
call("Menu2")
Else
$Freeze = 0
call("Menu1")
EndIf
EndFunc
Func ChangeValue()
$Value01 = 0
$Value02 = 0
$Value01 = Inputbox("Value1","Put the Number for Value1 in it"&@CRLF&"Dont click Cancel",$Value01,"", 120, 132)
$Value02 = Inputbox("Value2","Put the Number for Value2 in it"&@CRLF&"Dont click Cancel",$Value02,"", 120, 132)
$Button1 = GUICtrlCreateButton("Change Value into "&$Value01,"","40","120","20")
$Button2 = GUICtrlCreateButton("Change Value into "&$Value02,"","60","120","20")
EndFunc
Func End()
Exit
EndFunc
|