[OpenSource] Unsere Source 4 4Story - Teamwork

Page 2 of 6 1 2 34 Last »
08/10/2010 21:11 Italien...Donni#16
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 Elite-Coder#17
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 Italien...Donni#18
kanns sein das du da bisschen was von mir abgeguggt hast ? aber egal naja egal xD bin off cya
08/10/2010 21:58 Elite-Coder#19
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 .Steam!#20
Elite schick mir mal per PN die Sourcen, ich mache was ich kann ;)
Bitte die die nicht Obfuscated wurden.
08/10/2010 22:04 Elite-Coder#21
Quote:
Originally Posted by .Slixx View Post
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 ,

08/10/2010 22:09 v0lle#22
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 Trojan4#23
Quote:
Originally Posted by Mattthias View Post
#Skype name jetzt in Beitrag 1

elite.mattthias :D

@Kd, das wusste ich auch, ich kannte sie vor Volle :D
Aber für Leute die sie nicht kennen ist das nützlich zu wissen wofür es gut ist :D
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 Mattthias#24
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 "DarkDöner"#25
Italian wen ich dein sourcecode mache und den hack dan starte dan kommt
irgenteine fehler meldung pls help^^
08/11/2010 20:07 LikeAStar7x#26
Bei mir kommt immer Error:#include <NomadMemory.au3> obwohl ich die im iclude ordner habe pls help :(
08/11/2010 20:37 Mattthias#27
@EmoStyler, welche ?
@xk1ll3xjo, ich vermute mal nicht, zeig mal screenshot
08/11/2010 21:46 "DarkDöner"#28
Line1184 (File "C:\Users\****\Desktop\4story offi hack.exe"):
Error:Unknown function name.
08/11/2010 21:56 Mattthias#29
Das heisst er kennt die FUnction in Line 1184 nicht :D

[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 .Steam!#30
Ists möglich GM Chat zu finden ?
Ich denke mal nicht oder?
Page 2 of 6 1 2 34 Last »