|
You last visited: Today at 18:52
Advertisement
[OpenSource] Unsere Source 4 4Story - Teamwork
Discussion on [OpenSource] Unsere Source 4 4Story - Teamwork within the 4Story forum part of the MMORPGs category.
08/10/2010, 21:11
|
#16
|
elite*gold: 0 
Join Date: Sep 2009
Posts: 531
Received Thanks: 1,775
|
Version2 meines Offihacks, Version3 find ich nichtmher sry:=) :
PHP Code:
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("4Story Hack v2 by italien1995", 282, 610, 726, 171)
$Label1 = GUICtrlCreateLabel("Speedhack", 16, 24, 58, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label2 = GUICtrlCreateLabel("Skillhack", 16, 264, 49, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label3 = GUICtrlCreateLabel("NoMiss", 16, 88, 44, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label4 = GUICtrlCreateLabel("DamageMagic", 16, 152, 77, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label5 = GUICtrlCreateLabel("DamagePhisik", 16, 184, 75, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label6 = GUICtrlCreateLabel("Flyhack", 16, 328, 43, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label7 = GUICtrlCreateLabel("Invisible", 16, 56, 46, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label8 = GUICtrlCreateLabel("Händler", 16, 296, 43, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label9 = GUICtrlCreateLabel("Skilllvl:", 16, 232, 42, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label10 = GUICtrlCreateLabel("Unbesiegbar", 16, 120, 66, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label11 = GUICtrlCreateLabel("KingdomHack:", 16, 360, 79, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Group1 = GUICtrlCreateGroup("Standart", 8, 8, 265, 201)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("On", 176, 24, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button2 = GUICtrlCreateButton("Off", 208, 24, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button3 = GUICtrlCreateButton("On", 112, 56, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button4 = GUICtrlCreateButton("Off", 144, 56, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button5 = GUICtrlCreateButton("On", 112, 88, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button6 = GUICtrlCreateButton("Off", 144, 88, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button7 = GUICtrlCreateButton("On", 112, 120, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button8 = GUICtrlCreateButton("Off", 144, 120, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button9 = GUICtrlCreateButton("On", 112, 152, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button10 = GUICtrlCreateButton("Off", 144, 152, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Input5 = GUICtrlCreateInput("", 88, 24, 81, 24)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button11 = GUICtrlCreateButton("On", 112, 184, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button12 = GUICtrlCreateButton("Off", 144, 184, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Graphic1 = GUICtrlCreateGraphic(240, 24, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic2 = GUICtrlCreateGraphic(176, 56, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic3 = GUICtrlCreateGraphic(176, 88, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic4 = GUICtrlCreateGraphic(176, 120, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic5 = GUICtrlCreateGraphic(176, 152, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic6 = GUICtrlCreateGraphic(176, 184, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Input1 = GUICtrlCreateInput("0", 72, 232, 81, 24)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Input2 = GUICtrlCreateInput("0", 72, 264, 81, 24)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button13 = GUICtrlCreateButton("On", 104, 296, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button14 = GUICtrlCreateButton("Off", 136, 296, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button15 = GUICtrlCreateButton("On", 104, 328, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button16 = GUICtrlCreateButton("Off", 136, 328, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button17 = GUICtrlCreateButton("On", 104, 360, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button18 = GUICtrlCreateButton("Off", 136, 360, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button19 = GUICtrlCreateButton("On", 160, 232, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button20 = GUICtrlCreateButton("Off", 192, 232, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button21 = GUICtrlCreateButton("On", 160, 264, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button22 = GUICtrlCreateButton("Off", 192, 264, 25, 17, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Graphic7 = GUICtrlCreateGraphic(224, 232, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic8 = GUICtrlCreateGraphic(224, 264, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic9 = GUICtrlCreateGraphic(168, 296, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic10 = GUICtrlCreateGraphic(168, 328, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic11 = GUICtrlCreateGraphic(168, 360, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlCreateGroup("Special Hacks", 8, 208, 265, 185)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label12 = GUICtrlCreateLabel("0", 32, 408, 10, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label13 = GUICtrlCreateLabel("0", 192, 408, 10, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Input3 = GUICtrlCreateInput("", 24, 440, 73, 24)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Input4 = GUICtrlCreateInput("", 184, 440, 73, 24)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label15 = GUICtrlCreateLabel("X", 32, 472, 11, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label16 = GUICtrlCreateLabel("Y", 200, 472, 11, 20)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button23 = GUICtrlCreateButton("Teleport", 104, 440, 75, 25, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button24 = GUICtrlCreateButton("Help", 104, 472, 75, 25, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Button25 = GUICtrlCreateButton("Exit", 72, 504, 137, 25, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
$Label14 = GUICtrlCreateLabel("by italien1995", 104, 552, 89, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Palatino Linotype")
$Group2 = GUICtrlCreateGroup("Teleport", 8, 392, 265, 145)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button100 = GUICtrlCreateButton("Levelbot für Nawashi starten!", 50, 580, 177, 25, $WS_GROUP)
GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Basepointer = 0x069F190
$GamePid1 = ProcessExists ("TClient.exe")
$GameHandle1 = _MemoryOpen($GamePid1)
Dim $Speedhack[3]
$Speedhack[0] = 0
$Speedhack[1] = 0xA20
$Speedhack[2] = 0x9BA
Dim $DmgPhy[3]
$DmgPhy[0] = 0
$DmgPhy[1] = 0xA20
$DmgPhy[2] = 0X45C
Dim $DmgPhy2[3]
$DmgPhy2[0] = 0
$DmgPhy2[1] = 0xA20
$DmgPhy2[2] = 0x488
Dim $NoMiss[3]
$NoMiss[0] = 0
$NoMiss[1] = 0xA20
$NoMiss[2] = 0x456
Dim $NoMiss2[3]
$NoMiss2[0] = 0
$NoMiss2[1] = 0xA20
$NoMiss2[2] = 0x482
Dim $Fly[3]
$Fly[0] = 0
$Fly[1] = 0xA20
$Fly[2] = 0x421
Dim $Invisible[3]
$Invisible[0] = 0
$Invisible[1] = 0xA20
$Invisible[2] = 0x421
Dim $PortX[3]
$PortX[0] = 0
$PortX[1] = 0xA20
$PortX[2] = 0x84
Dim $PortY[3]
$PortY[0] = 0
$PortY[1] = 0xA20
$PortY[2] = 0x8C
Dim $Skilllvl[3]
$Skilllvl[0] = 0
$Skilllvl[1] = 0xA20
$Skilllvl[2] = 0x46E
Dim $Handler[3]
$Handler[0] = 0
$Handler[1] = 0xA20
$Handler[2] = 0x128
Dim $KingdomHack[3]
$KingdomHack[0] = 0
$KingdomHack[1] = 0xA20
$KingdomHack[2] = 0x441
Dim $DmgMage[3]
$DmgMage[0] = 0
$DmgMage[1] = 0xA20
$DmgMage[2] = 0x468
Dim $DmgMage2[3]
$DmgMage2[0] = 0
$DmgMage2[1] = 0xA20
$DmgMage2[2] = 0x494
Dim $Unbesiegbar[3]
$Unbesiegbar[0] = 0
$Unbesiegbar[1] = 0xA20
$Unbesiegbar[2] = 0x42E
Dim $Skillhack[3]
$Skillhack[0] = 0
$Skillhack[1] = 0xA20
$Skillhack[2] = 0x454
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
AdlibRegister("_SpeedHack", 20)
GUICtrlSetbkColor($Graphic1, 65280)
Case $Button2
AdlibUnRegister("_Speedhack")
_MemoryPointerWrite($Basepointer,$GameHandle1,$Speedhack, 16230)
GUICtrlSetBkColor($Graphic1, 16711680)
Case $Button3
AdlibRegister("_Invisible", 20)
GUICtrlSetBkColor($Graphic2, 65280)
Case $Button4
AdlibUnRegister("_Invisible")
_MemoryPointerWrite($Basepointer,$GameHandle1,$Invisible, 1)
GUICtrlSetBkColor($Graphic2, 16711680)
Case $Button5
AdlibRegister("_NoMiss", 20)
AdlibRegister("_NoMiss2", 20)
GUICtrlSetBkColor($Graphic3, 65280)
Case $Button6
AdlibUnRegister("_NoMiss")
AdlibUnRegister("_NoMiss2")
_MemoryPointerWrite($Basepointer,$GameHandle1,$NoMiss, 0)
_MemoryPointerWrite($Basepointer,$GameHandle1,$Nomiss2, 0)
GUICtrlSetBkColor($Graphic3, 16711680)
Case $Button7
AdlibRegister("_Unbesiegbar")
GUICtrlSetBkColor($Graphic4, 65280)
Case $Button8
AdlibUnRegister("_Unbesiegbar")
_MemoryPointerWrite($Basepointer,$GameHandle1,$Unbesiegbar, 0)
GUICtrlSetBkColor($Graphic4, 16711680)
Case $Button9
AdlibRegister("_DmgMage2", 20)
AdlibRegister("_DmgMage", 20)
GUICtrlSetBkColor($Graphic5, 65280)
Case $Button10
AdlibUnRegister("_DmgMage2")
AdlibUnRegister("_DmgMage")
_MemoryPointerWrite($Basepointer,$GameHandle1,$DmgMage, 0)
_MemoryPointerWrite($Basepointer,$GameHandle1,$DmgMage2, 0)
GUICtrlSetBkColor($Graphic5, 16711680)
Case $Button11
AdlibRegister("_DmgP1", 20)
AdlibRegister("_DmgP2", 20)
GUICtrlSetBkColor($Graphic6, 65280)
Case $Button12
AdlibUnRegister("_DmgP1")
AdlibUnRegister("_DmgP2")
_MemoryPointerWrite($Basepointer, $GameHandle1,$DmgPhy, 0)
_MemoryPointerWrite($Basepointer,$GameHandle1,$DmgPhy2, 0)
GUICtrlSetBkColor($Graphic6, 16711680)
Case $Button13
AdlibRegister("_Skilllevel", 20)
_1()
_c()
Case $Button14
AdlibUnRegister("_Skilllevel")
_MemoryPointerWrite($Basepointer,$GameHandle1,$Skilllvl, 0)
_c2()
Case $Button15
AdlibRegister("_Skillhack",20)
_1()
_d()
Case $Button16
AdlibUnRegister("_Skillhack")
_MemoryPointerWrite($Basepointer,$GameHandle1,$Skillhack, 0)
_d2()
Case $Button17
AdlibRegister("_Haendler", 20)
_e()
Case $Button18
AdlibUnRegister("_Haendler")
_MemoryPointerWrite($Basepointer,$GameHandle1,$Handler, 0)
_e2()
Case $Button19
AdlibRegister("_FlyHack", 20)
_a()
Case $Button20
AdlibUnRegister("_FlyHack")
_MemoryPointerWrite($Basepointer,$GameHandle1,$Fly, 1)
_a2()
Case $Button21
_MemoryPointerWrite($Basepointer,$GameHandle1,$KingdomHack, +1)
_b()
Case $Button22
_MemoryPointerWrite($Basepointer,$GameHandle1,$KingdomHack, -1)
_b2()
Case $Button23
$TeleX = GUICtrlRead($Input3)
$TeleY = GUICtrlRead($Input4)
_MemoryPointerWrite($Basepointer, $GameHandle1, $PortX, $TeleX, 'float')
_MemoryPointerWrite($Basepointer, $GameHandle1, $PortY, $TeleY, 'float')
Case $Button25
Exit
Case $Button24
ShellExecute("http://www.elitepvpers.com/forum/4story-hacks-bots-cheats-exploits/")
EndSwitch
WEnd
$YAchse = Round(_MemoryPointerRead($Basepointer,$GameHandle1,$PortX, 'float'))
$XAchse = Round(_MemoryPointerRead($Basepointer,$GameHandle1,$PortY, 'float'))
GUICtrlSetData($Label12 , $XAchse)
GUICtrlSetData($Label13 , $YAchse)
Func _a()
GUICtrlSetBkColor($Graphic7, 65280)
EndFunc
Func _a2()
GUICtrlSetBkColor($Graphic7, 16711680)
EndFunc
Func _b()
GUICtrlSetBkColor($Graphic8, 65280)
EndFunc
Func _b2()
GUICtrlSetBkColor($Graphic8, 16711680)
EndFunc
Func _c()
GUICtrlSetBkColor($Graphic9, 65280)
EndFunc
Func _c2()
GUICtrlSetBkColor($Graphic9, 16711680)
EndFunc
Func _d()
GUICtrlSetBkColor($Graphic10, 65280)
EndFunc
Func _d2()
GUICtrlSetBkColor($Graphic10, 16711680)
EndFunc
Func _e()
GUICtrlSetBkColor($Graphic11, 65280)
EndFunc
Func _e2()
GUICtrlSetBkColor($Graphic11, 16711680)
EndFunc
Func _1()
ControlSend("4Story", "", 0 ,"{F12}")
EndFunc
Func _DmgP1()
_MemoryPointerWrite($Basepointer,$GameHandle1, $DmgPhy, 9999999)
EndFunc
Func _DmgP2()
_MemoryPointerWrite($Basepointer,$GameHandle1,$DmgPhy, 99999999)
EndFunc
Func _DmgMage()
_MemoryPointerWrite($Basepointer,$GameHandle1,$DmgMage, 9999999)
EndFunc
Func _DmgMage2()
_MemoryPointerWrite($Basepointer,$GameHandle1,$DmgMage2, 9999999)
EndFunc
Func _NoMiss()
_MemoryPointerWrite($Basepointer,$GameHandle1,$NoMiss, 9999999)
EndFunc
Func _NoMiss2()
_MemoryPointerWrite($Basepointer,$GameHandle1,$NoMiss2, 999999)
EndFunc
Func _Speedhack()
_MemoryPointerWrite($Basepointer,$GameHandle1,$Speedhack, GUICtrlRead($Input5))
EndFunc
Func _Invisible()
_MemoryPointerWrite($Basepointer,$GameHandle1,$Invisible, 65793)
EndFunc
Func _Skillhack()
_MemoryPointerWrite($Basepointer,$GameHandle1,$Skillhack, GUICtrlRead($Input2))
EndFunc
Func _Skilllevel()
_MemoryPointerWrite($Basepointer,$GameHandle1,$Skilllvl, GUICtrlRead($Input1))
EndFunc
Func _FlyHack()
_MemoryPointerWrite($Basepointer,$GameHandle1,$Fly, 18176)
EndFunc
Func _Haendler()
_MemoryPointerWrite($Basepointer,$GameHandle1,$Handler, 1)
EndFunc
Func _Unbesiegbar()
_MemoryPointerWrite($Basepointer,$GameHandle1,$Unbesiegbar, 16842752)
EndFunc
|
|
|
|
08/10/2010, 21:42
|
#17
|
elite*gold: 0
Join Date: Aug 2010
Posts: 84
Received Thanks: 245
|
Hier mal einen Voll funktionsfähigen 4Story EG Hack ( die Source dazu )
PHP Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("4Story Mutlihack v1.0 by Elite-Coder", 327, 402, 166, 115)
$Label1 = GUICtrlCreateLabel("Speedhack", 16, 24, 59, 17)
$Label2 = GUICtrlCreateLabel("OneHitMagic", 16, 48, 66, 17)
$Label3 = GUICtrlCreateLabel("OneHitPhisik", 16, 72, 65, 17)
$Label4 = GUICtrlCreateLabel("NoMiss", 16, 98, 39, 17)
$Label5 = GUICtrlCreateLabel("Invisible", 16, 122, 42, 17)
$Button1 = GUICtrlCreateButton("On", 224, 24, 25, 17, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Off", 256, 24, 25, 17, $WS_GROUP)
$Button3 = GUICtrlCreateButton("On", 96, 48, 25, 17, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Off", 128, 48, 25, 17, $WS_GROUP)
$Button5 = GUICtrlCreateButton("On", 96, 72, 25, 17, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Off", 128, 72, 25, 17, $WS_GROUP)
$Button7 = GUICtrlCreateButton("On", 96, 96, 25, 17, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Off", 128, 96, 25, 17, $WS_GROUP)
$Button9 = GUICtrlCreateButton("On", 96, 120, 25, 17, $WS_GROUP)
$Button10 = GUICtrlCreateButton("Off", 128, 120, 25, 17, $WS_GROUP)
$Graphic1 = GUICtrlCreateGraphic(288, 25, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic2 = GUICtrlCreateGraphic(160, 48, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic3 = GUICtrlCreateGraphic(160, 72, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic4 = GUICtrlCreateGraphic(160, 96, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic5 = GUICtrlCreateGraphic(160, 120, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("Verbunden?", 224, 80, 62, 17)
$Label8 = GUICtrlCreateLabel("Ja!", 240, 112, 25, 25)
$Group1 = GUICtrlCreateGroup("TClient", 200, 48, 113, 113)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" Standart Hacks", 8, 8, 313, 177)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label11 = GUICtrlCreateLabel("Kingdomhack:", 16, 272, 72, 17)
$Button17 = GUICtrlCreateButton("Derion", 104, 272, 75, 17, $WS_GROUP)
$Button18 = GUICtrlCreateButton("Valorian", 216, 272, 75, 17, $WS_GROUP)
$Group4 = GUICtrlCreateGroup("Kingdom", 8, 256, 313, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label12 = GUICtrlCreateLabel("X-Koordinate:", 16, 312, 68, 17)
$Label13 = GUICtrlCreateLabel("Y-Koordinate:", 16, 336, 68, 17)
$Input4 = GUICtrlCreateInput("", 96, 312, 121, 21)
$Input5 = GUICtrlCreateInput("", 96, 336, 121, 21)
$Button19 = GUICtrlCreateButton("Teleport", 224, 320, 89, 25, $WS_GROUP)
$Group5 = GUICtrlCreateGroup("Teleport", 8, 296, 313, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### END Koda GUI section ###
If Not ProcessExists("TClient.exe") Then
GUICtrlSetData($Label8, "Nein!")
EndIf
$GamePid1 = ProcessExists("TClient.exe")
$GameHandle1 = _MemoryOpen($GamePid1)
$BaseAdresse1 = 0x00686D04
Dim $OneHitPhy[3] = [0, 0xA08, 0x484]
Dim $OneHitMage[3] = [0, 0xA08, 0x480]
Dim $Speedhack[3]
$Speedhack[0] = 0
$Speedhack[1] = 0xA08
$Speedhack[2] = 0x9F6
Dim $Invisible[3]
$Invisible[0] = 0
$Invisible[1] = 0xA08
$Invisible[2] = 0x44C
Dim $FlyHack[3] = [0, 0xA08, 0x441]
Dim $NoMiss[3]
$NoMiss[0] = 0
$NoMiss[1] = 0xA08
$NoMiss[2] = 0x476
Dim $Unbesiegbar[3]
$Unbesiegbar[0] = 0
$Unbesiegbar[1] = 0xA08
$Unbesiegbar[2] = 0x44E
Dim $SkilLevel[3] = [0, 0xA08, 0x48E]
Dim $Skilhack[3] = [0, 0xA08, 0x474]
Dim $X[3]
$X[0] = 0
$X[1] = 0xA08
$X[2] = 0x84
Dim $Y[3]
$Y[0] = 0
$Y[1] = 0xA08
$Y[2] = 0x8C
Dim $KingDomHack[3] = [0, 0xA08, 0x461]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
AdlibRegister("_Speedhack", 20)
Case $Button2
AdlibUnRegister("_Speedhack")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Speedhack, 16230)
GUICtrlSetBkColor($Graphic1, 16711680)
Case $Button3
AdlibRegister("_OneHit", 20)
Case $Button4
AdlibUnRegister("_OneHit")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitMage, 1)
GUICtrlSetBkColor($Graphic2, 16711680)
Case $Button5
AdlibRegister("_OneHit2", 20)
Case $Button6
AdlibUnRegister("_OneHit2")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitPhy, 1)
GUICtrlSetBkColor($Graphic3, 16711680)
Case $Button7
AdlibRegister("_NoMiss", 20)
Case $Button8
AdlibUnRegister("_NoMiss")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $NoMiss, 1)
GUICtrlSetBkColor($Graphic4, 16711680)
Case $Button9
AdlibRegister("_Invisible", 20)
Case $Button10
AdlibUnRegister("_Invisible")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Invisible, 1)
GUICtrlSetBkColor($Graphic5, 16711680)
Case $Button17
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $KingDomHack, -1)
Case $Button18
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $KingDomHack, +1)
Case $Button19
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $X, GUICtrlRead($Input4), 'float')
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Y, GUICtrlRead($Input5), 'float')
EndSwitch
WEnd
Func _F12()
ControlSend("4Story_US", "", 0, "{F12}")
EndFunc ;==>_F12
Func _Speedhack()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Speedhack, GUICtrlRead($Input1))
GUICtrlSetBkColor($Graphic1, 65280)
EndFunc ;==>_Speedhack
Func _OneHit()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitMage, 9999999)
GUICtrlSetBkColor($Graphic2, 65280)
EndFunc ;==>_OneHit
Func _OneHit2()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitPhy, 9999999)
GUICtrlSetBkColor($Graphic3, 65280)
EndFunc ;==>_OneHit2
Func _NoMiss()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $NoMiss, 9999999)
GUICtrlSetBkColor($Graphic4, 65280)
EndFunc ;==>_NoMiss
Func _Invisible()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Invisible, 16842752)
GUICtrlSetBkColor($Graphic5, 65280)
EndFunc ;==>_Invisible
Func _GodMode()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Unbesiegbar, 16842752)
GUICtrlSetBkColor($Graphic6, 65280)
EndFunc ;==>_GodMode
Func _Skillhack()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Skilhack, GUICtrlRead($Input2))
GUICtrlSetBkColor($Graphic7, 65280)
EndFunc ;==>_Skillhack
Func _Skilllevel()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $SkilLevel, GUICtrlRead($Input4))
GUICtrlSetBkColor($Graphic8, 65280)
EndFunc ;==>_Skilllevel
|
|
|
|
|
08/10/2010, 21:45
|
#18
|
elite*gold: 0
Join Date: Sep 2009
Posts: 531
Received Thanks: 1,775
|
kanns sein das du da bisschen was von mir abgeguggt hast ? aber egal naja egal xD bin off cya
|
|
|
|
|
08/10/2010, 21:58
|
#19
|
elite*gold: 0
Join Date: Aug 2010
Posts: 84
Received Thanks: 245
|
Könnte mir jemand dabei helfen meinen hack wieder zum Laufen zu bringen...
er öffnet sich zwar aber kein fenster und er wird nur unten rechts in der leiste angezeigt.
|
|
|
|
|
08/10/2010, 22:03
|
#20
|
elite*gold: 0
Join Date: Aug 2010
Posts: 198
Received Thanks: 350
|
Elite schick mir mal per PN die Sourcen, ich mache was ich kann 
Bitte die die nicht Obfuscated wurden.
|
|
|
|
|
08/10/2010, 22:04
|
#21
|
elite*gold: 0
Join Date: Aug 2010
Posts: 84
Received Thanks: 245
|
Quote:
Originally Posted by .Slixx
Elite schick mir mal per PN die Sourcen, ich mache was ich kann
Bitte die die nicht Obfuscated wurden. |
Ist doch klar Slixx. ^^
PS: die source ist hier in diesem Thread ,
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#RequireAdmin
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("4Story Mutlihack v1.0 by Dark-Earth", 327, 402, 166, 115)
$Label1 = GUICtrlCreateLabel("Speedhack", 16, 24, 59, 17)
$Label2 = GUICtrlCreateLabel("OneHitMagic", 16, 48, 66, 17)
$Label3 = GUICtrlCreateLabel("OneHitPhisik", 16, 72, 65, 17)
$Label4 = GUICtrlCreateLabel("NoMiss", 16, 98, 39, 17)
$Label5 = GUICtrlCreateLabel("Invisible", 16, 122, 42, 17)
$Label6 = GUICtrlCreateLabel("God Mod", 16, 144, 48, 17)
$Input1 = GUICtrlCreateInput("", 96, 24, 121, 21)
$Button1 = GUICtrlCreateButton("On", 224, 24, 25, 17, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Off", 256, 24, 25, 17, $WS_GROUP)
$Button3 = GUICtrlCreateButton("On", 96, 48, 25, 17, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Off", 128, 48, 25, 17, $WS_GROUP)
$Button5 = GUICtrlCreateButton("On", 96, 72, 25, 17, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Off", 128, 72, 25, 17, $WS_GROUP)
$Button7 = GUICtrlCreateButton("On", 96, 96, 25, 17, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Off", 128, 96, 25, 17, $WS_GROUP)
$Button9 = GUICtrlCreateButton("On", 96, 120, 25, 17, $WS_GROUP)
$Button10 = GUICtrlCreateButton("Off", 128, 120, 25, 17, $WS_GROUP)
$Button11 = GUICtrlCreateButton("On", 96, 144, 25, 17, $WS_GROUP)
$Button12 = GUICtrlCreateButton("Off", 128, 144, 25, 17, $WS_GROUP)
$Graphic1 = GUICtrlCreateGraphic(288, 25, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic2 = GUICtrlCreateGraphic(160, 48, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic3 = GUICtrlCreateGraphic(160, 72, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic4 = GUICtrlCreateGraphic(160, 96, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic5 = GUICtrlCreateGraphic(160, 120, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic6 = GUICtrlCreateGraphic(160, 144, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("Verbunden?", 224, 80, 62, 17)
$Label8 = GUICtrlCreateLabel("Ja!", 240, 112, 25, 25)
$Group1 = GUICtrlCreateGroup("TClient", 200, 48, 113, 113)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" Standart Hacks", 8, 8, 313, 177)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label9 = GUICtrlCreateLabel("Skillhack:", 16, 200, 50, 17)
$Label10 = GUICtrlCreateLabel("Skilllevel:", 16, 224, 48, 17)
$Button13 = GUICtrlCreateButton("On", 224, 200, 25, 17, $WS_GROUP)
$Button14 = GUICtrlCreateButton("Off", 256, 200, 25, 17, $WS_GROUP)
$Button15 = GUICtrlCreateButton("On", 224, 224, 25, 17, $WS_GROUP)
$Button16 = GUICtrlCreateButton("Off", 256, 224, 25, 17, $WS_GROUP)
$Graphic7 = GUICtrlCreateGraphic(288, 200, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic8 = GUICtrlCreateGraphic(288, 224, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Input2 = GUICtrlCreateInput("", 96, 200, 121, 21)
$Input3 = GUICtrlCreateInput("", 96, 224, 121, 21)
$Group3 = GUICtrlCreateGroup("Skill Hacks", 8, 184, 313, 73)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label11 = GUICtrlCreateLabel("Kingdomhack:", 16, 272, 72, 17)
$Button17 = GUICtrlCreateButton("Derion", 104, 272, 75, 17, $WS_GROUP)
$Button18 = GUICtrlCreateButton("Valorian", 216, 272, 75, 17, $WS_GROUP)
$Group4 = GUICtrlCreateGroup("Kingdom", 8, 256, 313, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label12 = GUICtrlCreateLabel("X-Koordinate:", 16, 312, 68, 17)
$Label13 = GUICtrlCreateLabel("Y-Koordinate:", 16, 336, 68, 17)
$Input4 = GUICtrlCreateInput("", 96, 312, 121, 21)
$Input5 = GUICtrlCreateInput("", 96, 336, 121, 21)
$Button19 = GUICtrlCreateButton("Teleport", 224, 320, 89, 25, $WS_GROUP)
$Group5 = GUICtrlCreateGroup("Teleport", 8, 296, 313, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#EndRegion ### END Koda GUI section ###
If Not ProcessExists("TClient.exe") Then
GUICtrlSetData($Label8, "Nein!")
EndIf
$GamePid1 = ProcessExists ("TClient.exe")
$GameHandle1 = _MemoryOpen($GamePid1)
$BaseAdresse1 = 0x00686D04
Dim $OneHitPhy[3] = [0, 0xA08, 0x484]
Dim $OneHitMage[3] = [0, 0xA08, 0x480]
Dim $Speedhack[3]
$Speedhack[0]=0
$Speedhack[1]=0xA08
$Speedhack[2]= 0x9F6
Dim $Invisible[3]
$Invisible[0]=0
$Invisible[1]=0xA08
$Invisible[2]=0x44C
Dim $FlyHack[3] = [0, 0xA08, 0x441]
Dim $NoMiss[3]
$NoMiss[0]=0
$NoMiss[1]=0xA08
$NoMiss[2]=0x476
Dim $Unbesiegbar[3]
$Unbesiegbar[0]=0
$Unbesiegbar[1]=0xA08
$Unbesiegbar[2]=0x44E
Dim $SkilLevel[3] = [0, 0xA08, 0x48E]
Dim $Skilhack[3] = [0, 0xA08, 0x474]
Dim $X[3]
$X[0] = 0
$X[1] = 0xA08
$X[2] = 0x84
Dim $Y[3]
$Y[0] = 0
$Y[1] = 0xA08
$Y[2] = 0x8C
Dim $KingDomHack[3] = [0,0xA08, 0x461]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
AdlibRegister("_Speedhack", 20)
Case $Button2
AdlibUnRegister("_Speedhack")
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Speedhack, 16230)
GUICtrlSetBkColor($Graphic1, 16711680)
Case $Button3
AdlibRegister("_OneHit", 20)
Case $Button4
AdlibUnRegister("_OneHit")
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$OneHitMage, 1)
GUICtrlSetBkColor($Graphic2, 16711680)
Case $Button5
AdlibRegister("_OneHit2", 20)
Case $Button6
AdlibUnRegister("_OneHit2")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitPhy, 1)
GUICtrlSetBkColor($Graphic3, 16711680)
Case $Button7
AdlibRegister("_NoMiss", 20)
Case $Button8
AdlibUnRegister("_NoMiss")
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$NoMiss, 1)
GUICtrlSetBkColor($Graphic4, 16711680)
Case $Button9
AdlibRegister("_Invisible", 20)
Case $Button10
AdlibUnRegister("_Invisible")
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Invisible, 1)
GUICtrlSetBkColor($Graphic5, 16711680)
Case $Button11
AdlibRegister("_GodMode", 20)
Case $Button12
AdlibUnRegister("_GodMode")
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Unbesiegbar, 1)
GUICtrlSetBkColor($Graphic6, 16711680)
Case $Button13
AdlibRegister("_Skillhack", 20)
_F12()
Case $Button14
AdlibUnRegister("_Skillhack")
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Skilhack, 1)
GUICtrlSetBkColor($Graphic7, 16711680)
Case $Button15
AdlibRegister("_Skilllevel", 20)
_F12()
Case $Button16
AdlibUnRegister("_Skilllevel")
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$SkilLevel, 1)
GUICtrlSetBkColor($Graphic8, 16711680)
Case $Button17
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$KingDomHack, -1)
Case $Button18
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$KingDomHack, +1)
Case $Button19
_MemoryPointerWrite($BaseAdresse1,$GameHandle1, $X, GUICtrlRead($Input4), 'float')
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Y, GUICtrlRead($Input5), 'float')
EndSwitch
WEnd
Func _F12()
ControlSend("4Story_US", "", 0, "{F12}")
EndFunc
Func _Speedhack()
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Speedhack, GUICtrlRead($Input1))
GUICtrlSetBkColor($Graphic1, 65280)
EndFunc
Func _OneHit()
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$OneHitMage, 9999999)
GUICtrlSetBkColor($Graphic2, 65280)
EndFunc
Func _OneHit2()
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$OneHitPhy, 9999999)
GUICtrlSetBkColor($Graphic3, 65280)
EndFunc
Func _NoMiss()
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$NoMiss, 9999999)
GUICtrlSetBkColor($Graphic4, 65280)
EndFunc
Func _Invisible()
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Invisible, 16842752)
GUICtrlSetBkColor($Graphic5, 65280)
EndFunc
Func _GodMode()
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Unbesiegbar, 16842752)
GUICtrlSetBkColor($Graphic6, 65280)
EndFunc
Func _Skillhack()
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$Skilhack, GUICtrlRead($Input2))
GUICtrlSetBkColor($Graphic7, 65280)
EndFunc
Func _Skilllevel()
_MemoryPointerWrite($BaseAdresse1,$GameHandle1,$SkilLevel, GUICtrlRead($Input4))
GUICtrlSetBkColor($Graphic8, 65280)
EndFunc
|
|
|
|
|
08/10/2010, 22:09
|
#22
|
elite*gold: 0
Join Date: Dec 2009
Posts: 705
Received Thanks: 312
|
PHP Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("4Story Mutlihack v1.0 by Elite-Coder", 327, 402, 166, 115)
$Label1 = GUICtrlCreateLabel("Speedhack", 16, 24, 59, 17)
$Label2 = GUICtrlCreateLabel("OneHitMagic", 16, 48, 66, 17)
$Label3 = GUICtrlCreateLabel("OneHitPhisik", 16, 72, 65, 17)
$Label4 = GUICtrlCreateLabel("NoMiss", 16, 98, 39, 17)
$Label5 = GUICtrlCreateLabel("Invisible", 16, 122, 42, 17)
$Button1 = GUICtrlCreateButton("On", 224, 24, 25, 17, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Off", 256, 24, 25, 17, $WS_GROUP)
$Button3 = GUICtrlCreateButton("On", 96, 48, 25, 17, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Off", 128, 48, 25, 17, $WS_GROUP)
$Button5 = GUICtrlCreateButton("On", 96, 72, 25, 17, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Off", 128, 72, 25, 17, $WS_GROUP)
$Button7 = GUICtrlCreateButton("On", 96, 96, 25, 17, $WS_GROUP)
$Button8 = GUICtrlCreateButton("Off", 128, 96, 25, 17, $WS_GROUP)
$Button9 = GUICtrlCreateButton("On", 96, 120, 25, 17, $WS_GROUP)
$Button10 = GUICtrlCreateButton("Off", 128, 120, 25, 17, $WS_GROUP)
$Graphic1 = GUICtrlCreateGraphic(288, 25, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic2 = GUICtrlCreateGraphic(160, 48, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic3 = GUICtrlCreateGraphic(160, 72, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic4 = GUICtrlCreateGraphic(160, 96, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Graphic5 = GUICtrlCreateGraphic(160, 120, 25, 17)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("Verbunden?", 224, 80, 62, 17)
$Label8 = GUICtrlCreateLabel("Ja!", 240, 112, 25, 25)
$Group1 = GUICtrlCreateGroup("TClient", 200, 48, 113, 113)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" Standart Hacks", 8, 8, 313, 177)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label11 = GUICtrlCreateLabel("Kingdomhack:", 16, 272, 72, 17)
$Button17 = GUICtrlCreateButton("Derion", 104, 272, 75, 17, $WS_GROUP)
$Button18 = GUICtrlCreateButton("Valorian", 216, 272, 75, 17, $WS_GROUP)
$Group4 = GUICtrlCreateGroup("Kingdom", 8, 256, 313, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label12 = GUICtrlCreateLabel("X-Koordinate:", 16, 312, 68, 17)
$Label13 = GUICtrlCreateLabel("Y-Koordinate:", 16, 336, 68, 17)
$Input4 = GUICtrlCreateInput("", 96, 312, 121, 21)
$Input5 = GUICtrlCreateInput("", 96, 336, 121, 21)
$Button19 = GUICtrlCreateButton("Teleport", 224, 320, 89, 25, $WS_GROUP)
$Group5 = GUICtrlCreateGroup("Teleport", 8, 296, 313, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If Not ProcessExists("TClient.exe") Then
GUICtrlSetData($Label8, "Nein!")
EndIf
$GamePid1 = ProcessExists("TClient.exe")
$GameHandle1 = _MemoryOpen($GamePid1)
$BaseAdresse1 = 0x00686D04
Dim $OneHitPhy[3] = [0, 0xA08, 0x484]
Dim $OneHitMage[3] = [0, 0xA08, 0x480]
Dim $Speedhack[3]
$Speedhack[0] = 0
$Speedhack[1] = 0xA08
$Speedhack[2] = 0x9F6
Dim $Invisible[3]
$Invisible[0] = 0
$Invisible[1] = 0xA08
$Invisible[2] = 0x44C
Dim $FlyHack[3] = [0, 0xA08, 0x441]
Dim $NoMiss[3]
$NoMiss[0] = 0
$NoMiss[1] = 0xA08
$NoMiss[2] = 0x476
Dim $Unbesiegbar[3]
$Unbesiegbar[0] = 0
$Unbesiegbar[1] = 0xA08
$Unbesiegbar[2] = 0x44E
Dim $SkilLevel[3] = [0, 0xA08, 0x48E]
Dim $Skilhack[3] = [0, 0xA08, 0x474]
Dim $X[3]
$X[0] = 0
$X[1] = 0xA08
$X[2] = 0x84
Dim $Y[3]
$Y[0] = 0
$Y[1] = 0xA08
$Y[2] = 0x8C
Dim $KingDomHack[3] = [0, 0xA08, 0x461]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
AdlibRegister("_Speedhack", 20)
Case $Button2
AdlibUnRegister("_Speedhack")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Speedhack, 16230)
GUICtrlSetBkColor($Graphic1, 16711680)
Case $Button3
AdlibRegister("_OneHit", 20)
Case $Button4
AdlibUnRegister("_OneHit")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitMage, 1)
GUICtrlSetBkColor($Graphic2, 16711680)
Case $Button5
AdlibRegister("_OneHit2", 20)
Case $Button6
AdlibUnRegister("_OneHit2")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitPhy, 1)
GUICtrlSetBkColor($Graphic3, 16711680)
Case $Button7
AdlibRegister("_NoMiss", 20)
Case $Button8
AdlibUnRegister("_NoMiss")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $NoMiss, 1)
GUICtrlSetBkColor($Graphic4, 16711680)
Case $Button9
AdlibRegister("_Invisible", 20)
Case $Button10
AdlibUnRegister("_Invisible")
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Invisible, 1)
GUICtrlSetBkColor($Graphic5, 16711680)
Case $Button17
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $KingDomHack, -1)
Case $Button18
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $KingDomHack, +1)
Case $Button19
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $X, GUICtrlRead($Input4), 'float')
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Y, GUICtrlRead($Input5), 'float')
EndSwitch
WEnd
Func _F12()
ControlSend("4Story_US", "", 0, "{F12}")
EndFunc ;==>_F12
Func _Speedhack()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Speedhack, GUICtrlRead($Input1))
GUICtrlSetBkColor($Graphic1, 65280)
EndFunc ;==>_Speedhack
Func _OneHit()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitMage, 9999999)
GUICtrlSetBkColor($Graphic2, 65280)
EndFunc ;==>_OneHit
Func _OneHit2()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $OneHitPhy, 9999999)
GUICtrlSetBkColor($Graphic3, 65280)
EndFunc ;==>_OneHit2
Func _NoMiss()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $NoMiss, 9999999)
GUICtrlSetBkColor($Graphic4, 65280)
EndFunc ;==>_NoMiss
Func _Invisible()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Invisible, 16842752)
GUICtrlSetBkColor($Graphic5, 65280)
EndFunc ;==>_Invisible
Func _GodMode()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Unbesiegbar, 16842752)
GUICtrlSetBkColor($Graphic6, 65280)
EndFunc ;==>_GodMode
Func _Skillhack()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $Skilhack, GUICtrlRead($Input2))
GUICtrlSetBkColor($Graphic7, 65280)
EndFunc ;==>_Skillhack
Func _Skilllevel()
_MemoryPointerWrite($BaseAdresse1, $GameHandle1, $SkilLevel, GUICtrlRead($Input4))
GUICtrlSetBkColor($Graphic8, 65280)
EndFunc ;==>_Skilllevel
Probiers mal so ^^
|
|
|
|
|
08/10/2010, 22:14
|
#23
|
elite*gold: 0
Join Date: Apr 2010
Posts: 469
Received Thanks: 5,636
|
Quote:
Originally Posted by Mattthias
#Skype name jetzt in Beitrag 1
elite.mattthias 
@Kd, das wusste ich auch, ich kannte sie vor Volle
Aber für Leute die sie nicht kennen ist das nützlich zu wissen wofür es gut ist
Bei Trojan liegt das daran das er beim Label nicht: GUICtrlSetBkColor($Label, $GUI_BKCOLOR_TRANSPARENT) gemacht hat |
mattth ich hab dir nun schon bestimmt 5 mal ..also zumindest in jedem thread in dem du diese behauptung gepostet hast gesagt, dass es mit dieser winapi udf nicht geht die labels mit transparentem hintergrund zu behaften ... wenns nich in deinen kopf reinwill meinetwegen. es ist so fertig aus
|
|
|
|
|
08/11/2010, 16:26
|
#24
|
elite*gold: 0
Join Date: Jul 2009
Posts: 880
Received Thanks: 2,455
|
So, ich mache mal ein Bsp was man brauchen könnte...
Ich habe hier ein Script:
PHP Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <String.au3>
Global $ReleaseLinks, $ReleaseNames, $Releases
$ReleaseViewer = GUICreate("Release of TeamWork / OpenSource", 493, 462, 244, 135)
$ReleaseListView = GUICtrlCreateListView("Nr|Name", 0, 48, 489, 149)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 434)
_FillRelease()
$Headline = GUICtrlCreateLabel("Release List of Teamwork / Open Source", 8, 8, 484, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$ReleaseEdit = GUICtrlCreateEdit("", 0, 200, 489, 257)
GUICtrlSetData(-1, "Release")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
EndSwitch
WEnd
Func _FillRelease()
Local $Source = _INetGetSource("http://www.elitepvpers.com/forum/4story/688360-opensource-unsere-source-4-4story-teamwork.html")
$ReleaseLinks = _StringBetween($Source, 'Release: <a href="', '" target="_blank">')
$ReleaseNames = _StringBetween($Source, '" target="_blank">', '</a><br />')
$Releases = _StringBetween($Source, 'Releases: ', '<br />')
For $i = 0 To $Releases[0] - 1
GUICtrlCreateListViewItem($i + 1 & "|" & $ReleaseNames[$i], $ReleaseListView)
Next
EndFunc ;==>_FillRelease
Das ist fast fertig, es muss nur noch den Beitrag lesen.
Hat wer intresse es fertig zu machen ?
Addet mich in Skype elite.mattthias
|
|
|
|
|
08/11/2010, 18:57
|
#25
|
elite*gold: 0
Join Date: Jun 2010
Posts: 301
Received Thanks: 980
|
Italian wen ich dein sourcecode mache und den hack dan starte dan kommt
irgenteine fehler meldung pls help^^
|
|
|
|
|
08/11/2010, 20:07
|
#26
|
elite*gold: 0
Join Date: Aug 2010
Posts: 1,074
Received Thanks: 130
|
Bei mir kommt immer Error:#include <NomadMemory.au3> obwohl ich die im iclude ordner habe pls help 
|
|
|
|
|
08/11/2010, 20:37
|
#27
|
elite*gold: 0
Join Date: Jul 2009
Posts: 880
Received Thanks: 2,455
|
@EmoStyler, welche ?
@xk1ll3xjo, ich vermute mal nicht, zeig mal screenshot
|
|
|
|
|
08/11/2010, 21:46
|
#28
|
elite*gold: 0
Join Date: Jun 2010
Posts: 301
Received Thanks: 980
|
Line1184 (File "C:\Users\****\Desktop\4story offi hack.exe"):
Error:Unknown function name.
|
|
|
|
|
08/11/2010, 21:56
|
#29
|
elite*gold: 0
Join Date: Jul 2009
Posts: 880
Received Thanks: 2,455
|
Das heisst er kennt die FUnction in Line 1184 nicht
[RELEASE (folgt noch vollständig)]
Uppchat Value ist jetzt 9
TClient habe ich bereits ByPassed, screen folgt gleich
Hochladen kann ich sie noch nicht, is nochn Bug drin.
GM Chat such ich noch.
Wer Intresse hat mir beim Suchen zu helfen, ich freu mich 
MfG Mattthias
|
|
|
|
|
08/11/2010, 22:18
|
#30
|
elite*gold: 0
Join Date: Aug 2010
Posts: 198
Received Thanks: 350
|
Ists möglich GM Chat zu finden ?
Ich denke mal nicht oder?
|
|
|
|
 |
|
Similar Threads
|
OpenSource-Server
05/12/2010 - Metin2 Private Server - 27 Replies
Hi,
morgen beginnt das verlängerte Wochenende für viele. Deshalb starte ich morgen ein neues kleines Projekt.
Einen OpenSource-Metin2-Server. Ich zahle einen kleinen Server (max. 100 Spieler). Die Files dieses Server sind öffentlich, einzige Ausnahme: Account-DB.
Itemshop wird es natürlich nicht geben!
Vielleicht gibt es ja ein paar nette Leute, die Lust hätten zu helfen. :)
Der Servername wird "Syrka" (Syrka.net) lauten.
MfG,
|
teamwork xD
04/24/2008 - Kal Online - 6 Replies
.
|
WowSharp wird Opensource!
06/29/2007 - World of Warcraft - 34 Replies
Today is a big day in the history of WoWSharp, most of it bad, some of it good.
In the past 9 months since development started, WoWSharp has been a milestone in WoW-bot development. First starting out with WoWRadar and WoWFisher, then other utilities like WoWBot, SharpSeer, WoWPartyBot, where created.
Everyone knows that since about a bit over a month, Blizzard has been using the WardenClient to detect 3rd party utilities. This WardenClient has put the World of Warcraft hacking on its...
|
All times are GMT +1. The time now is 18:52.
|
|
![[OpenSource] Unsere Source 4 4Story - Teamwork](https://www.elitepvpers.com/forum/iconimages/4story/opensource-unsere-source-4-4story-teamwork_ltr.gif){kind=small}
