[ L4D2 ] Left4Dead2 Wallhack+Glowhack

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=favicon.ico
#AutoIt3Wrapper_outfile=l4d2_2136.exe
#AutoIt3Wrapper_Res_Comment=elitepvpers.com
#AutoIt3Wrapper_Res_Fileversion=2135.0.0.0
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; Done by mArc.LANDER
; Pointerscan not included because not working for 64bit systems
; Everything is BETA STUFF and tested with calculator.exe

;~ #AutoIt3Wrapper_UseX64=n ; 32 Bit application

If @AutoItX64 == 0 Then
MsgBox(48, "Error", "Unsupported system")
Exit
EndIf

#include <KDMemory.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <mis.au3>
#include <IE.au3>
;#include <Pointer.au3>


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GUI
$Form1_1 = GUICreate("by mArc", 719, 423, 235, 195)
$Pic1 = GUICtrlCreatePic("D:\Tron_666_indi\Ori.jpg", 0, 0, 716, 420)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Speedhack", 8, 264, 68, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$SpeedValue = GUICtrlCreateInput("20", 88, 264, 41, 21)
$Label3 = GUICtrlCreateLabel("Skeleton", 8, 232, 71, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$skeletonvalue = GUICtrlCreateInput("1", 88, 232, 41, 21)
$Label4 = GUICtrlCreateLabel("L4D2 version 2136 ONLY L4D2 version 2136 ONLY L4D2 version 2136 ONLY", 0, 0, 716, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$speedB = GUICtrlCreateButton("Set", 144, 264, 59, 17)
$skeletonB = GUICtrlCreateButton("Set", 144, 232, 59, 17)
$Spam = GUICtrlCreateInput("Enter your spam here,,,,", 496, 352, 201, 21)
$SpamB = GUICtrlCreateButton("SPAM it !", 616, 320, 75, 25)
$HelpB = GUICtrlCreateButton("HELP !", 536, 208, 75, 33)
$svcheatsadresse = GUICtrlCreateInput("1", 88, 40, 41, 21)
$consistencyadresse = GUICtrlCreateInput("0", 88, 72, 41, 21)
$fogadresse = GUICtrlCreateInput("0", 88, 168, 41, 21)
$fullbrightadresse = GUICtrlCreateInput("1", 88, 136, 41, 21)
$boxesvalue = GUICtrlCreateInput("1", 88, 296, 41, 21)
$matWFvalue = GUICtrlCreateInput("1", 88, 200, 41, 21)
$setcheats = GUICtrlCreateButton("Set", 144, 40, 59, 17)
$config1 = GUICtrlCreateButton("1", 544, 40, 75, 33)
$Save = GUICtrlCreateButton("Save", 8, 384, 96, 25)
$PointerscanB = GUICtrlCreateButton("Update", 616, 120, 73, 33)
$Label2 = GUICtrlCreateLabel("Consistency", 8, 72, 71, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Cheats", 8, 40, 71, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$setcons = GUICtrlCreateButton("Set", 144, 72, 59, 17)
$setfog = GUICtrlCreateButton("Set", 144, 168, 59, 17)
$setfullbright = GUICtrlCreateButton("Set", 144, 136, 59, 17)
$boxesB = GUICtrlCreateButton("Set", 144, 296, 59, 17)
$Label6 = GUICtrlCreateLabel("Fogover", 8, 168, 71, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("Fullbright", 8, 136, 71, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("Boxes", 8, 296, 71, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$mat_wireB = GUICtrlCreateButton("Set", 144, 200, 59, 17)
$Label11 = GUICtrlCreateLabel("Mat.WireF", 8, 200, 71, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$sv_pure = GUICtrlCreateLabel("Pure", 8, 104, 69, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$sv_pur = GUICtrlCreateInput("0", 88, 104, 41, 21)
$Sv_pureB = GUICtrlCreateButton("Set", 144, 104, 59, 17)
$LoadB = GUICtrlCreateButton("Load", 104, 384, 98, 25)
$Probe = GUICtrlCreateButton("Probe", 8, 360, 195, 25)
$Label7 = GUICtrlCreateLabel("Mod.WireF", 8, 328, 71, 21)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$mod_wireFvalue = GUICtrlCreateInput("2", 88, 328, 41, 21)
$mod_wireB = GUICtrlCreateButton("Set", 144, 328, 59, 17)
GUISetState(@SW_SHOW)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /GUI

;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GLOBAL
Global $svcheatsadresseX, $balk,$svcheatsadresse

;;;;;;;;;;;;;;;;;;;;;;;;;;;; /Global

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Mainswitch
While 1
WinMove("Left 4 Dead 2", "",0,0)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
MEINEXIT()
Case $setcheats
svcheats()
Case $setcons
consistency()
Case $setfog
fog()
fog1()
fog2()
fog3()
Case $setfullbright
fullbright()
Case $config1
svcheats()
consistency()
fog()
fog1()
fog2()
fog3()
Case $Sv_pureB
sv_pure()
Case $mat_wireB
mat_wirefram()
Case $skeletonB
Skeleton()
Case $speedB
Speedhack()
Case $boxesB
renderboxes()
Case $mod_wireB
drawothermodels()
Case $SpamB
Spam()
Case $HelpB
_IECREATE("http://www.elitepvpers.com/forum/general-gaming-releases/891320-l4d2-left4dead2-wallhack-glowhack.html", 1, 1)

EndSwitch
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; /Mainswitch


Func svcheats()
$svcheatsadresseX = GUICtrlRead($svcheatsadresse)
$svcheatsadresseDEC = Dec($svcheatsadresseX)
Const $processName = "left4dead2.exe", $moduleName = "engine.dll"
Const $baseOffset = 0x66E6D8
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", $svcheatsadresseDEC)
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "byte[4]")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "Info", "Address: " & $memoryData[0] & @CRLF & "Value: " & $memoryData[1])
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf

EndFunc

Func consistency()
$consistencyadresseX = GUICtrlRead($consistencyadresse)
$consistencyadresseDEC = Dec($consistencyadresseX)

Const $processName = "left4dead2.exe", $moduleName = "engine.dll"
Const $baseOffset = 0x66E918
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", $consistencyadresseDEC)
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "Info", "Address: " & $memoryData[0] & @CRLF & "Value: " & $memoryData[1])
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc

Func fog()
$fogadresseX = GUICtrlRead($fogadresse)
$fogadresseDEC = Dec($fogadresseX)

Const $processName = "left4dead2.exe", $moduleName = "client.dll"
Const $baseOffset = 0x81BB30
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", 1)
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf

EndFunc
Func Fog1()
Const $processName = "left4dead2.exe", $moduleName = "client.dll"
Const $baseOffset = 0x81BC50
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", 0 )
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc
Func Fog2()
Const $processName = "left4dead2.exe", $moduleName = "client.dll"
Const $baseOffset = 0x81BDB8
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", 0 )
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc
Func Fog3()
Const $processName = "left4dead2.exe", $moduleName = "engine.dll"
Const $baseOffset = 0x5FF278
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", 0 )
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "Info", "Address: " & $memoryData[0] & @CRLF & "Value: " & $memoryData[1])
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc

Func fullbright()
$fullbrightadresseX = GUICtrlRead($fullbrightadresse)
$fullbrightadresseDEC = Dec($fullbrightadresseX)

Const $processName = "left4dead2.exe", $moduleName = "materialsystem.dll"
Const $baseOffset = 0xFE3F0
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", $fullbrightadresseDEC)
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "Info", "Address: " & $memoryData[0] & @CRLF & "Value: " & $memoryData[1])
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc

Func sv_pure()
$sv_purX = GUICtrlRead($sv_pur)
$sv_purDEC = Dec($sv_purX)

Const $processName = "left4dead2.exe", $moduleName = "engine.dll"
Const $baseOffset = 0x640FFC
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", $sv_purDEC)
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "Info", "Address: " & $memoryData[0] & @CRLF & "Value: " & $memoryData[1])
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc

Func mat_wirefram()
$matWFvalueX = GUICtrlRead($matWFvalue)
$matWFvalueDEC = Dec($matWFvalueX)

Const $processName = "left4dead2.exe", $moduleName = "engine.dll"
Const $baseOffset = 0x6011B0
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", $matWFvalueDEC)
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "Info", "Address: " & $memoryData[0] & @CRLF & "Value: " & $memoryData[1])
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc

Func Skeleton()
$skeletonvalueX = GUICtrlRead($skeletonvalue)
$skeletonvalueDEC = Dec($skeletonvalueX)

Const $processName = "left4dead2.exe", $moduleName = "client.dll"
Const $baseOffset = 0x7A07B8
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", $skeletonvalueDEC)
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "Info", "Address: " & $memoryData[0] & @CRLF & "Value: " & $memoryData[1])
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc

Func drawothermodels()
$mod_wireFvalueX = GUICtrlRead($mod_wireFvalue)
$mod_wireFvalueDEC = Dec($mod_wireFvalueX)

Const $processName = "left4dead2.exe", $moduleName = "client.dll"
Const $baseOffset = 0x7A0A58
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", $mod_wireFvalueDEC)
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "Info", "Address: " & $memoryData[0] & @CRLF & "Value: " & $memoryData[1])
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc

Func renderboxes()
$boxesvalueX = GUICtrlRead($boxesvalue)
$boxesvalueDEC = Dec($boxesvalueX)

Const $processName = "left4dead2.exe", $moduleName = "client.dll"
Const $baseOffset = 0x7A2D00
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", $boxesvalueDEC)
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "Info", "Address: " & $memoryData[0] & @CRLF & "Value: " & $memoryData[1])
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc

Func Speedhack()
$SpeedValueX = GUICtrlRead($SpeedValue)
$SpeedValueDEC = Dec($SpeedValueX)

Const $processName = "left4dead2.exe", $moduleName = "engine.dll"
Const $baseOffset = 0x640FFC
Const $offsets[1] = [0]

$processId = ProcessExists($processName)
If $processId == 0 Then
MsgBox(48, "Error", "'" & $processName & "' is not running!")
Else
$handles = _KDMemory_OpenProcess($processId)
If @error Then
MsgBox(48, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error)
Else
$baseAddress = _KDMemory_GetModuleBaseAddress($handles, $moduleName) + $baseOffset
If @error Then
MsgBox(48, "Error", "Can't get ModuleBaseAddress ('" & $moduleName & "')!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
$writtenAddress = _KDMemory_WriteProcessMemory($handles, $baseAddress, "byte[4]", $SpeedValueDEC)
If @error Then MsgBox(48, "Error", "Can't write memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)

$memoryData = _KDMemory_ReadProcessMemory($handles, $baseAddress, "DWORD")
If @error Then
MsgBox(48, "Error", "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
Else
MsgBox(64, "Info", "Address: " & $memoryData[0] & @CRLF & "Value: " & $memoryData[1])
MsgBox(64, "Info", "Try ingameconsole *bind j host_frame 20*" )
EndIf
EndIf
_KDMemory_CloseHandles($handles)
EndIf
EndIf
EndFunc


HOTKEYSET("^!x", "MeinExit")

Func MEINEXIT()
ProcessClose("2135_a.exe") ;module beenden
Exit
EndFunc

Func Spam()
While 1
ToolTip("Spam")
$SPamInput = GUICtrlRead($Spam)
Sleep(1000)
Send("y")
Sleep(1000)
Send($SPamInput, 1)
Sleep(2000)
Send("{Enter}")
Sleep(60000)
WEnd
EndFunc