PHP Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <NomadMemory.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$windowname = "LastChaos -"
Opt("SendKeyDownDelay" , 200) ;Erzwingt, dass jeder Tastendruck midestens 200 millisek lang ist
HotKeySet("{ESC}","_esc")
#Region ### START Koda GUI section ### Form=c:\users\timothy\documents\autoit\form1_1.kxf
$Form1_1 = GUICreate("Hitchens Bot", 463, 329, 192, 124)
GUISetBkColor(0xB9D1EA)
$Tab1 = GUICtrlCreateTab(32, 8, 401, 305)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Trainer")
$Angriffstempo = GUICtrlCreateCheckbox("Angriffsgeschwindigkeit", 45, 56, 145, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Geschwindigkeit = GUICtrlCreateCheckbox("Laufgeschwindigkeit", 45, 81, 153, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input_AT = GUICtrlCreateInput("10", 198, 61, 57, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input_GS = GUICtrlCreateInput("10", 198, 84, 57, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$labelHP = GUICtrlCreateLabel("0 / 0", 45, 211, 162, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$HPLeiste = GUICtrlCreateProgress(45, 226, 250, 15)
$progressHP = GUICtrlCreateProgress(45, 261, 250, 15)
$labelTG = GUICtrlCreateLabel("0 / 0", 45, 245, 162, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Eigene = GUICtrlCreateLabel("Eigene HP", 136, 211, 52, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label9 = GUICtrlCreateLabel("Target HP", 136, 245, 51, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet2 = GUICtrlCreateTabItem("Bot")
$Checkbox1 = GUICtrlCreateCheckbox("F1 Angriff", 52, 95, 73, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Checkbox2 = GUICtrlCreateCheckbox("F2 Aufsammeln", 52, 127, 97, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$tb_min = GUICtrlCreateInput("10", 146, 71, 49, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$tb_max = GUICtrlCreateInput("10", 237, 71, 49, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$bis = GUICtrlCreateLabel("bis", 208, 71, 18, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Monsterlevel = GUICtrlCreateLabel("Monsterlevel von", 52, 71, 86, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$btn_Start = GUICtrlCreateButton("Start", 320, 56, 97, 33, $WS_GROUP)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Black")
$btn_Stop = GUICtrlCreateButton("Stop", 320, 95, 97, 33, $WS_GROUP)
$TabSheet3 = GUICtrlCreateTabItem("Thanks")
$Label1 = GUICtrlCreateLabel("Spezial Thanks to", 39, 63, 162, 28)
GUICtrlSetFont(-1, 16, 800, 2, "Comic Sans MS")
$Label2 = GUICtrlCreateLabel("KillerDeluxe123,", 39, 119, 189, 31)
GUICtrlSetFont(-1, 16, 800, 2, "Comic Sans MS")
$Label7 = GUICtrlCreateLabel("OldLucieN und", 39, 173, 165, 31)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("und", 31, 33, 31, 4)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label4 = GUICtrlCreateLabel("huberhans", 39, 199, 97, 31)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label5 = GUICtrlCreateLabel("für ihre tatkräftige Unterstützung", 39, 223, 350, 27)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label8 = GUICtrlCreateLabel("Endtothenight,", 40, 146, 189, 31)
GUICtrlSetFont(-1, 16, 800, 2, "Comic Sans MS")
$TabSheet4 = GUICtrlCreateTabItem("Info")
$Label6 = GUICtrlCreateLabel("Diese GUI ist erst einmal rein spartanisch", 40, 82, 368, 93)
GUICtrlSetFont(-1, 14, 800, 0, "Cambria Math")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;$iv_Address = 0x1063F2E8; Base
Dim $av_OffsetHP[2] = [0, 0x107324];
Dim $av_OffsetHPM[2] = [0, 0x107320];
$sv_Type = "float";
Global $iv_Pid = ProcessExists("Nksp.exe")
Global $ah_Handle = _MemoryOpen($iv_Pid)
Global $av_OffsetAT[5] = [0, 0x1C , 0x10 , 0x4 , 0xDDC]
Global $av_OffsetGS[5] = [0, 0x1C, 0x10, 0x4, 0xDD4]
Global $SV_TYPE4B = "dword"
Global $sv_TypeF = "float"
Global $PID = WinGetProcess("LastChaos - (")
Global $Memory = _MemoryOpen($iv_Pid)
Global $Pointer1 = 0x1063F2E8 ;_pnetwork
Global $HPCuroffset[2] = [0 ,0x1076E8]
Global $HPMaxoffset[2] = [0 , 0x1076EC]
Global $HPCur
Global $HPMax
Global $Moblvloffset[2] = [0,0x107328]
Global $Moblvl
Func _esc()
Exit
EndFunc
While 1
$NMG = GUIGetMsg()
Switch $NMG
Case $GUI_Event_Close
Exit
EndSwitch
Bot()
Hacks()
HPLabel()
HPTarget()
WEnd
Func Hacks()
$v_DataAT = GUICtrlRead($Input_AT)
$v_DataGS = GUICtrlRead($Input_GS)
If GUICtrlRead($Angriffstempo)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetAT, $v_DataAT, "dword")
EndIf
If GUICtrlRead($Geschwindigkeit)=$GUI_CHECKED Then
_MemoryPointerWrite($Pointer1, $ah_Handle, $av_OffsetGS, $v_DataGS, "float")
EndIf
EndFunc
Func HPLabel()
If $PID Then
$HPCur = _MemoryPointerRead($Pointer1, $Memory, $HPCuroffset, "dword")
If @error Then
Beep(100,500)
EndIf
$HPMax = _MemoryPointerRead($Pointer1, $Memory, $HPMaxoffset, "dword")
If @error Then
Beep(100,500)
EndIf
$label = $HPCur[1] & " / " & $HPMax[1];
If GUICtrlRead($labelHP) <> $label Then GUICtrlSetData($labelHP, $label)
GuiCtrlSetData($HPLeiste, Int(($HPcur[1]/($HPmax[1] / 100))))
EndIf
EndFunc
Func HPTarget()
If $PID Then
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch
$HP = _MemoryPointerRead($Pointer1, $ah_Handle, $av_OffsetHP, $sv_Type);
$HPM = _MemoryPointerRead($Pointer1, $ah_Handle, $av_OffsetHPM, $sv_Type);
$label = $HP[1] & " / " & $HPM[1];
$progress = $HP[1] * 100 / $HPM[1];
If GUICtrlRead($labelTG ) <> $label Then GUICtrlSetData($labelTG , $label);
GUICtrlSetData($progressHP, $progress)
Else
MsgBox(48, "Fehler", "Starte zuerst LastChaos!")
Exit
EndIf
EndFunc
Func Bot ()
$Moblvl = _MemoryPointerRead($Pointer1 , $Memory , $Moblvloffset)
If $Moblvl[1] >= GUICtrlRead($tb_min) And $Moblvl[1] <= GUICtrlRead($tb_max) Then
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
ControlSend($windowname, "", "", "{F1}")
EndIf
Sleep(100)
If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
ControlSend($windowname, "", "", "{F2}")
EndIf
Else
ControlSend($windowname, "", "", "{TAB}")
EndIF
EndFunc
