Hallo liebe community ich spiele seit einiger zeit das spiel 4story und wolte meinen eigenen hack basteln für den privat server... doch hier kom ich nicht weiter und kan mmir nicht erklären wieso pls help o.ô
Quote:
If NOT ProcessExists ("TClient.exe") Then
MsgBox(16,"4StoryEG Hack by Fr0sti u. Electro u. Pascal v1.0","Öffne bitte erst 4StoryEG!")
Exit
EndIf
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("4StoryEG Hack by Fr0sti u. Electro u. Pascal v1.0", 305, 312, 652, 330)
$Label1 = GUICtrlCreateLabel("Speedhack", 40, 32, 59, 17)
$On = GUICtrlCreateButton("On", 112, 24, 25, 25, $WS_GROUP)
$Off = GUICtrlCreateButton("Off", 144, 24, 25, 25, $WS_GROUP)
GUICtrlCreateInput("", 184, 24, 81, 21)
$Label2 = GUICtrlCreateLabel("Invisible", 40, 64, 42, 17)
$O = GUICtrlCreateButton("On", 112, 56, 25, 25, $WS_GROUP)
$Of = GUICtrlCreateButton("Off", 144, 56, 25, 25, $WS_GROUP)
$NoMiss = GUICtrlCreateLabel("NoMiss", 40, 96, 39, 17)
$1 = GUICtrlCreateButton("On", 112, 88, 25, 25, $WS_GROUP)
$2 = GUICtrlCreateButton("Off", 144, 88, 25, 25, $WS_GROUP)
$3 = GUICtrlCreateButton("On", 112, 120, 25, 25, $WS_GROUP)
$4 = GUICtrlCreateButton("Off", 144, 120, 25, 25, $WS_GROUP)
$5 = GUICtrlCreateButton("Off", 144, 152, 25, 25, $WS_GROUP)
$6 = GUICtrlCreateButton("On", 112, 152, 25, 25, $WS_GROUP)
$OneHitMagic = GUICtrlCreateLabel("OneHitMagic", 40, 128, 66, 17)
$OneHitPhisik = GUICtrlCreateLabel("OneHitPhisik", 40, 160, 65, 17)
$Unbesiegbar = GUICtrlCreateLabel("Unbesiegbar", 40, 192, 64, 17)
$Button1 = GUICtrlCreateButton("On", 112, 184, 25, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Off", 144, 184, 25, 25, $WS_GROUP)
GUICtrlCreateGroup("", 24, 8, 249, 217)
$Graphic1 = GUICtrlCreateGraphic(184, 56, 25, 25)
$Graphic2 = GUICtrlCreateGraphic(216, 56, 25, 25)
$Graphic3 = GUICtrlCreateGraphic(216, 88, 25, 25)
$Graphic4 = GUICtrlCreateGraphic(184, 88, 25, 25)
$Graphic5 = GUICtrlCreateGraphic(216, 120, 25, 25)
$Graphic6 = GUICtrlCreateGraphic(184, 120, 25, 25)
$Graphic7 = GUICtrlCreateGraphic(184, 152, 25, 25)
$Graphic8 = GUICtrlCreateGraphic(216, 152, 25, 25)
$Graphic9 = GUICtrlCreateGraphic(272, 216, 1, 9)
$Graphic10 = GUICtrlCreateGraphic(216, 184, 25, 25)
$Graphic11 = GUICtrlCreateGraphic(184, 184, 25, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Skillhack", 24, 232, 249, 65)
$Skillhack = GUICtrlCreateLabel("Skillhack", 32, 264, 47, 17)
$Input1 = GUICtrlCreateInput("", 88, 256, 121, 21)
$Cast = GUICtrlCreateButton("Cast", 216, 256, 33, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While ProcessExists("TClient.exe") = False
Sleep ( 700 )
WEnd
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
#include <NomadMemory.au3>
Global $open =_MemoryOpen(ProcessExists("TClient.exe"))
Global $Pointer = 0x0069D8F0 ;INVISIBLE
Global $Offset[3] = [0, 0xA20, 0x42C ]
While 2
Case $O
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer, $Open, $Offset, 16842753)
GUICTRLSETBKCOLOR($Graphic1,65280)
EndSwitch
WEnd
Global $open1 =_MemoryOpen(ProcessExists("TClient.exe"))
Global $Pointer1 = 0x0069D8F0 ;INVISIBLE AUS
Global $Offset1 [3] = [0, 0xA20, 0x42C ]
While 3
Case $Of
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer1, $Open1, $Offset1,0)
GUICTRLSetbKCOLOR($Graphic2,16711680)
EndSwitch
WEnd
Global $Pointer2 = 0x1DE0F78
Global $Open2 =_MemoryOpen(ProcessExists("TClient.exe")) ;SPEEDHACK
Global $Offset2 [3] = [0, 0x9F6, 0xA08 ]
While 4
Case $On
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer2, $Open2, $Offset2, 16700)
EndSwitch
WEnd
Global $Pointer3 = 0x1DE0F78
Global $Open3 =_MemoryOpen(ProcessExists("TClient.exe")) ;SPEEDHACK AUS
Global $Offset3 [3] = [0, 0x9F6, 0xA08 ]
While 5
Case $Off
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer3, $Open3, $Offset3, 16230)
EndSwitch
WEnd
Global $Pointer4 = 0x1DE09F6
Global $Open4 =_MemoryOpen(ProcessExists("TClient.exe")) ;NOMISS
Global $Offset4 [3] = [0, 0x476, 0xA08 ]
While 6
Case $1
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer4, $Open4, $Offset4, 999999999)
EndSwitch
WEnd
Global $Pointer5 = 0x1DE09F6
Global $Open5 =_MemoryOpen(ProcessExists("TClient.exe")) ;NOMISS OFF
Global $Offset5 [3] = [0, 0x476, 0xA08 ]
While 7
Case $2
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer5, $Open5, $Offset5, 0)
EndSwitch
WEnd
Global $Pointer6 = 0x1DE0A00
Global $Open6 =_MemoryOpen(ProcessExists("TClient.exe")) ;ONEHITMAGIC
Global $Offset6 [3] = [0, 0x480, 0xA08 ]
While 8
Case $3
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer6, $Open6, $Offset6, 999999999)
EndSwitch
WEnd
Global $Pointer7 = 0x1DE0A00
Global $Open7 =_MemoryOpen(ProcessExists("TClient.exe")) ;ONEHITMAGIC OFF
Global $Offset7 [3] = [0, 0x480, 0xA08 ]
While 9
Case $4
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer7, $Open7, $Offset7, 0)
EndSwitch
WEnd
Global $Pointer8 = 0x1DE0A04
Global $Open8 =_MemoryOpen(ProcessExists("TClient.exe")) ;ONEHITPHYSIK
Global $Offset8 [3] = [0, 0x484, 0xA08 ]
While 10
Case $6
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer8, $Open8, $Offset8, 9999999)
EndSwitch
WEnd
Global $Pointer9 = 0x1DE0A04
Global $Open9 =_MemoryOpen(ProcessExists("TClient.exe")) ;ONEHITPHYSIK AUS
Global $Offset9 [3] = [0, 0x484, 0xA08 ]
While 11
Case $5
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer9, $Open9, $Offset9, 0)
EndSwitch
WEnd
Global $Pointer10 = 0x1DE09D0
Global $Open10 =_MemoryOpen(ProcessExists("TClient.exe")) ;UNBESIEGBAR = VALUE 65793
Global $Offset10 [3] = [0, 0x44E, 0xA08 ]
While 11
Case $Button1
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer10, $Open10, $Offset10, 65793)
EndSwitch
WEnd
Global $Pointer11 = 0x1DE09D0
Global $Open11 =_MemoryOpen(ProcessExists("TClient.exe")) ;UNBESIEGBAR = VALUE 65793 AUS
Global $Offset11 [3] = [0, 0x44E, 0xA08 ]
While 12
$NMG = GUIGetMsg()
Switch $NMG
Exit
_MemoryPointerWrite($Pointer11, $Open11, $Offset11, 0)
EndSwitch
WEnd
While 13
Case $Cast
Global $Pointer12 = 0x1DE09F4
Global $Open12 =_MemoryOpen(ProcessExists("TClient.exe"))
Global $Offset12 [3] = [0, 0x474, 0xA08
$NMG = GUIGetMsg()
Switch $NMG ;SKILLHACK WAHLWIEDERHOLUNG
Exit
_MemoryPointerWrite($Pointer12, $Open12, $Offset12, $Inputbox)
Send ("{F12}")
EndSwitch
WEnd