Pointer Einbauen Geht nicht Brauche Hilfe !!!

08/08/2010 16:43 HShield#1
Hallo Erst mal

Ich versuch grad ein hack für 4story DE zu machen aber ich schaf es nicht mit den Pointer hab alle Pointer Gescuht und gefunden aber weis nicht wie ich die einbaue kan jemand helfen wäre sehr Nett


HTML Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <NomadMemory.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("4Story hack By HShield :D ", 312, 477, 196, 110)
$Label1 = GUICtrlCreateLabel("Damge Hack ", 16, 88, 70, 17)
$Label2 = GUICtrlCreateLabel("No Miss ", 32, 120, 45, 17)
$Label3 = GUICtrlCreateLabel("Fly hack ", 16, 152, 47, 17)
$Label4 = GUICtrlCreateLabel("Invisible ", 24, 184, 45, 17)
$Label5 = GUICtrlCreateLabel("Skill Hack", 24, 224, 52, 17)
$Label6 = GUICtrlCreateLabel("Skill LVL hack ", 24, 248, 75, 17)
$Label7 = GUICtrlCreateLabel("ChatHack ", 24, 296, 55, 17)
$Label8 = GUICtrlCreateLabel("King dom hack ", 24, 360, 78, 17)
$Label9 = GUICtrlCreateLabel("Damge hack Mage", 16, 400, 95, 17)
$Label10 = GUICtrlCreateLabel("unbesiegbar ", 24, 440, 65, 17)
$Button1 = GUICtrlCreateButton("ON", 112, 80, 41, 25, 0)
$Button2 = GUICtrlCreateButton("OFF", 160, 80, 41, 25, 0)
$Button3 = GUICtrlCreateButton("ON", 112, 112, 41, 25, 0)
$Button4 = GUICtrlCreateButton("OFF", 160, 112, 41, 25, 0)
$Button5 = GUICtrlCreateButton("ON", 112, 144, 41, 25, 0)
$Button6 = GUICtrlCreateButton("OFF", 160, 144, 43, 25, 0)
$Button7 = GUICtrlCreateButton("ON", 112, 176, 41, 25, 0)
$Button8 = GUICtrlCreateButton("OFF", 160, 176, 41, 25, 0)
$Button9 = GUICtrlCreateButton("ON", 192, 216, 35, 25, 0)
$Button10 = GUICtrlCreateButton("OFF", 232, 216, 35, 25, 0)
$Input1 = GUICtrlCreateInput("905", 104, 224, 81, 21)
$Input2 = GUICtrlCreateInput("99999999", 104, 248, 81, 21)
$Button11 = GUICtrlCreateButton("ON", 192, 248, 33, 25, 0)
$Button12 = GUICtrlCreateButton("OFF", 232, 248, 33, 25, 0)
$Button13 = GUICtrlCreateButton("ON", 112, 296, 43, 25, 0)
$Button14 = GUICtrlCreateButton("OFF", 160, 296, 41, 25, 0)
$Button15 = GUICtrlCreateButton("valo", 112, 352, 43, 25, 0)
$Button16 = GUICtrlCreateButton("deri", 160, 352, 41, 25, 0)
$Button17 = GUICtrlCreateButton("ON", 112, 392, 41, 25, 0)
$Button18 = GUICtrlCreateButton("OFF", 160, 392, 41, 25, 0)
$Button19 = GUICtrlCreateButton("ON", 112, 432, 41, 25, 0)
$Button20 = GUICtrlCreateButton("OFF", 160, 432, 41, 25, 0)
$Label11 = GUICtrlCreateLabel("4Story nicht Gefunden !!!!!", 40, 24, 221, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Constantia")
$Graphic1 = GUICtrlCreateGraphic(256, 80, 41, 25)
GUICtrlSETBKColor (-1,16711680)
$Graphic2 = GUICtrlCreateGraphic(256, 112, 41, 25)
GUICtrlSETBKColor (-1,16711680)
$Graphic3 = GUICtrlCreateGraphic(256, 144, 41, 25)
GUICtrlSETBKColor (-1,16711680)
$Graphic4 = GUICtrlCreateGraphic(256, 176, 41, 25)
GUICtrlSETBKColor (-1,16711680)
$Graphic5 = GUICtrlCreateGraphic(264, 248, 33, 25)
GUICtrlSETBKColor (-1,16711680)
$Graphic6 = GUICtrlCreateGraphic(264, 216, 33, 25)
GUICtrlSETBKColor (-1,16711680)
$Graphic7 = GUICtrlCreateGraphic(216, 296, 41, 25)
GUICtrlSETBKColor (-1,16711680)
$Graphic8 = GUICtrlCreateGraphic(216, 352, 41, 25)
GUICtrlSETBKColor (-1,16711680)
$Graphic9 = GUICtrlCreateGraphic(216, 384, 44, 28)
GUICtrlSETBKColor (-1,16711680)
$Graphic10 = GUICtrlCreateGraphic(216, 432, 41, 25)
GUICtrlSETBKColor (-1,16711680)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



Global $Pointer = 0x69f190
Global $Open = _MemoryOpen(ProcessExists("bla.exe"))
Global $Offset[3] = [0xa20, 0x45c]


GUICtrlSetColor ($label11,0x00AA00)
GUICtrlSetData  ($label11,"4Story nicht Gefunden !!!!!")




While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			 case $Button1
       _MemoryPointerWrite($Pointer, $Open, $Offset,999999) 
            GUICtrlSETBKColor ($Graphic1,65280)

		case $Button2 
	   _MemoryPointerWrite($Pointer, $Open, $Offset, 0) 
            GUICtrlSETBKColor ($Graphic1,16711680)

       

Exit
08/08/2010 17:31 KDeluxe#2
Code:
Global $Offset[3] = [[COLOR="Red"]0,[/COLOR] 0xA20, 0x45C]
Du schreibst den Wert aber nur einmal und zwar dann, wenn du den Button
drückst, du musst ihn aber solange schreiben, bis du den Hack deaktiviert hast.
Dafür setzt du einfach eine Variable auf "True" oder benutzt Adlibs.

Ansonsten würde ich dir noch raten etwas Ordnung in dein Script zu bringen,
falls du noch Probleme mit anderen Sachen hast kannst du ja mal mein
Script angucken: [Only registered and activated users can see links. Click Here To Register...]


2 Fragen meinerseits:
1. Wieso macht wirklich jeder diese On/Off Kombination? Checkboxen sind doch
wesentlich komfortabler, sehen besser aus und rauben nicht soviel Platz.
2. Wieso machst du einen Hack der auf den Bypassed Client angewiesen ist?
Nach 2 - 10 Minuten muss man sich immer neu anmelden (Netzwerkfehler).
08/08/2010 17:37 HShield#3
wie sol ich das machen ?

Pls antworte
08/08/2010 19:06 KDeluxe#4
Mal was selber in die Hand nehmen und mein Script anschauen. Ansonsten schaust du dich
hier um, die Frage wurde erst kürzlich hier beantwortet.
08/08/2010 22:17 HShield#5
Ok hab jetzt so aber ich wil das die grün sind wen die On sind kanst du mal ein beispiel pls machen damit das geht


Quote:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("4story hack by HShield", 441, 462, 192, 124)
GUISetBkColor(0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 8, 112, 121, 21)
$Label1 = GUICtrlCreateLabel("Speedhack", 0, 88, 59, 17)
$Button1 = GUICtrlCreateButton("On", 72, 80, 33, 25, 0)
$Label2 = GUICtrlCreateLabel("DamgeHack", 0, 144, 64, 17)
$Button2 = GUICtrlCreateButton("OFF", 112, 80, 33, 25, 0)
$Button3 = GUICtrlCreateButton("ON", 72, 144, 33, 25, 0)
$Button4 = GUICtrlCreateButton("OFF", 112, 144, 33, 25, 0)
$Label3 = GUICtrlCreateLabel("NOMiss hack ", 0, 184, 71, 17)
$Button5 = GUICtrlCreateButton("ON", 72, 184, 33, 25, 0)
$Button6 = GUICtrlCreateButton("OFF", 112, 184, 33, 25, 0)
$Label4 = GUICtrlCreateLabel("Invisiblehack", 0, 224, 66, 17)
$Button7 = GUICtrlCreateButton("ON", 72, 224, 33, 25, 0)
$Button8 = GUICtrlCreateButton("OFF", 112, 224, 33, 25, 0)
$Label5 = GUICtrlCreateLabel("Skillhack", 16, 288, 47, 17)
GUICtrlCreateInput("", 16, 304, 121, 21)
$Label6 = GUICtrlCreateLabel("SkillLvLhack", 16, 336, 65, 17)
GUICtrlCreateInput("", 16, 360, 121, 21)
$Group1 = GUICtrlCreateGroup("Skillhacks", 0, 272, 209, 153)
$Graphic1 = GUICtrlCreateGraphic(152, 312, 41, 25)
$Graphic2 = GUICtrlCreateGraphic(152, 368, 41, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Graphic3 = GUICtrlCreateGraphic(160, 80, 41, 25)
GUICtrlSETBKColor (-1,16711681)
$Graphic4 = GUICtrlCreateGraphic(160, 144, 41, 25)
GUICtrlSETBKColor (-1,16711681)
$Graphic5 = GUICtrlCreateGraphic(160, 184, 41, 25)
GUICtrlSETBKColor (-1,16711681)
$Graphic6 = GUICtrlCreateGraphic(160, 224, 41, 25)
GUICtrlSETBKColor (-1,16711681)
$Label7 = GUICtrlCreateLabel("4Story Nicht Gefunden !!!!!!!!!", 104, 24, 205, 23)
GUICtrlSetFont(-1, 12, 400, 0, "Constantia")
$Tab1 = GUICtrlCreateTab(232, 232, 177, 193)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Skill Nummern")
$Label8 = GUICtrlCreateLabel("GlücksTrank 905", 240, 280, 86, 17)
$Label9 = GUICtrlCreateLabel("TrinkTrue 919", 240, 304, 71, 17)
$Label10 = GUICtrlCreateLabel("Mehr Exp In dq geben 918", 240, 328, 130, 17)
$Label11 = GUICtrlCreateLabel("..................... USW", 240, 360, 96, 17)
GUICtrlCreateTabItem("")
$Label12 = GUICtrlCreateLabel("Handler hack ", 224, 80, 71, 17)
$Button9 = GUICtrlCreateButton("ON", 304, 72, 33, 25, 0)
$Button10 = GUICtrlCreateButton("OFF", 344, 72, 33, 25, 0)
$Graphic7 = GUICtrlCreateGraphic(384, 72, 41, 25)
GUICtrlSETBKColor (-1,16711681)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 1)
$Label13 = GUICtrlCreateLabel("Viel Spaß Beim Hacken :D Euer HShield ", 160, 432, 248, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While ProcessExists ("Tclient.exe")= False
sLeep (500)
WEnd


GUICtrlSetColor ($Label7,0x00FF00)
GUICtrlSetData ($label7,"4story Gefunden !!!!!!")

Global $Shop = True
$Window = "[Class:Afx:00400000:b]" ;4Story Classname
$Address = 0x69f190 ;Base
Dim $O_Speed[3] = [0, 0xA20, 0x9BA]
Dim $O_Damage[3] = [0, 0xA20, 0x45c]
Dim $O_Invisible[3] = [0, 0xA20, 0x42c]
Dim $O_NoMiss[3] = [0, 0xA20, 0x456]
Dim $O_NoMiss2[3] = [0, 0xA20, 0x482]
Dim $O_Fly[3] = [0, 0xA20, 0x421]
Dim $O_Shop[3] = [0, 0xa20, 0x128]
Dim $O_Skill[3] = [0, 0xA20, 0x454]
Dim $O_Skilllvl[3] = [0, 0xA20, 0x46E]

While True
$nMsg = GUIGetMsg()
If $nMsg == -3 Then Exit

If WinExists($Window) Then
$Handle = _MemoryOpen(WinGetProcess($Window))
If Not @error Then
If BitAND(GUICtrlRead($C_Speed), $GUI_CHECKED) == $GUI_CHECKED Then
$D_Speed = _MemoryPointerRead($Address, $Handle, $O_Speed)
$V_Speed = GUICtrlRead($I_Speed)

If $D_Speed[1] <> $V_Speed Then _MemoryPointerWrite($Address, $Handle, $O_Speed, $V_Speed)
EndIf ;Speed


If BitAND(GUICtrlRead($C_Damage), $GUI_CHECKED) == $GUI_CHECKED Then
$D_Damage = _MemoryPointerRead($Address, $Handle, $O_Damage)
$D_Skill = _MemoryPointerRead($Address, $Handle, $O_Skill)
$V_Damage = 2147483647
$V_Skill = 3388932206

If $D_Damage[1] <> $V_Damage Then _MemoryPointerWrite($Address, $Handle, $O_Damage, $V_Damage)
If $D_Skill[1] <> $V_Skill Then _MemoryPointerWrite($Address, $Handle, $O_Skill, $V_Skill)
EndIf ;Damage

If BitAND(GUICtrlRead($C_Invisible), $GUI_CHECKED) == $GUI_CHECKED Then
$D_Invisible = _MemoryPointerRead($Address, $Handle, $O_Invisible)
$V_Invisible = 16842752

If $D_Invisible[1] <> $V_Invisible Then _MemoryPointerWrite($Address, $Handle, $O_Invisible, $V_Invisible)
EndIf ;Invisible

If BitAND(GUICtrlRead($C_NoMiss), $GUI_CHECKED) == $GUI_CHECKED Then
$D_NoMiss = _MemoryPointerRead($Address, $Handle, $O_NoMiss)
$D_NoMiss2 = _MemoryPointerRead($Address, $Handle, $O_NoMiss2)
$V_NoMiss = 2147483647

If $D_NoMiss[1] <> $V_NoMiss Then _MemoryPointerWrite($Address, $Handle, $O_NoMiss, $V_NoMiss)
If $D_NoMiss2[1] <> $V_NoMiss Then _MemoryPointerWrite($Address, $Handle, $O_NoMiss2, $V_NoMiss)
EndIf ;No Miss

If BitAND(GUICtrlRead($C_Fly), $GUI_CHECKED) == $GUI_CHECKED Then
$D_Fly = _MemoryPointerRead($Address, $Handle, $O_Fly)
$V_Fly = 18176

If $D_Fly[1] <> $V_Fly Then _MemoryPointerWrite($Address, $Handle, $O_Fly, $V_Fly)
EndIf ;Fly

If $nMsg == $B_Shop Then
If $Shop Then
$Shop = False
GUICtrlSetData($B_Shop, "Shop schließen")
_MemoryPointerWrite($Address, $Handle, $O_Shop, 1)
Else
$Shop = True
GUICtrlSetData($B_Shop, "Shop öffnen")
_MemoryPointerWrite($Address, $Handle, $O_Shop, 0)
EndIf
EndIf ;Shop

If BitAND(GUICtrlRead($C_Skill), $GUI_CHECKED) == $GUI_CHECKED Then
$D_Skill = _MemoryPointerRead($Address, $Handle, $O_Skill)
$V_Skill = GUICtrlRead($I_Skill)

If $D_Skill[1] <> $V_Skill Then _MemoryPointerWrite($Address, $Handle, $O_Skill, $V_Skill)
EndIf ;Skill

If BitAND(GUICtrlRead($C_Skilllvl), $GUI_CHECKED) == $GUI_CHECKED Then
$D_Skilllvl = _MemoryPointerRead($Address, $Handle, $O_Skilllvl)
$V_Skilllvl = GUICtrlRead($I_Skilllvl)

If $D_Skilllvl[1] <> $V_Skilllvl Then _MemoryPointerWrite($Address, $Handle, $O_Skilllvl, $V_Skilllvl)
EndIf ;Skilllvl
EndIf
EndIf
WEnd


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Tab1
EndSwitch
WEnd
08/08/2010 23:02 KDeluxe#6
Du hast meins einfach größtenteils kopiert, der Fehler ist eindeutig beschrieben ("Missing
EndIf"). Außerdem sind 2 While-Schleifen im Script.
Wenn du einen Hack machen möchtest solltest du aber aus anderen Scripten lernen und sie
nicht einfach kopieren und ein bisschen abändern.
08/09/2010 23:35 Banana.Crafts#7
@Killer
Mit iwas muss man ja mal anfangen.
Aber gleich so ein "komplizierten" Hack zu nehmen, ist nicht so schlau.
Ja, und nur C&P auch net;D
Aber ich glaub, ich war auch net besser;D
08/09/2010 23:39 KDeluxe#8
Naja, im Vergleich zu anderen 4Story Scripten ist meins die reinste Augenweide und
unkompliziert. Außerdem habe ich es versucht einfach zu halten, ist mir meiner Meinung
nach auch gut gelungen.
08/10/2010 22:32 *-_JuLi²_-*#9
ja nur leider bei dem wenn ich ein häckchen bei speed oder sonst was mache ist der trainer weg
08/10/2010 23:24 KDeluxe#10
Kann passieren wenn man alles per C&P machen möchte, mein unverändertes funktioniert zu 100%.