Register for your free account! | Forgot your password?

Go Back   elitepvpers › Coders Den › AutoIt
Pointer Einbauen Geht nicht Brauche Hilfe !!! Pointer Einbauen Geht nicht Brauche Hilfe !!!
You last visited: Today at 12:05

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

Pointer Einbauen Geht nicht Brauche Hilfe !!!

Discussion on Pointer Einbauen Geht nicht Brauche Hilfe !!! within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
HShield's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2010
Posts: 61
Received Thanks: 8
Pointer Einbauen Geht nicht Brauche Hilfe !!!

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
HShield is offline  
Old   #2
 
elite*gold: 0
The Black Market: 9/0/0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
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:


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).
KDeluxe is offline  
Old   #3
 
HShield's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2010
Posts: 61
Received Thanks: 8
wie sol ich das machen ?

Pls antworte
HShield is offline  
Old   #4
 
elite*gold: 0
The Black Market: 9/0/0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
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.
KDeluxe is offline  
Old   #5
 
HShield's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2010
Posts: 61
Received Thanks: 8
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 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
HShield is offline  
Old   #6
 
elite*gold: 0
The Black Market: 9/0/0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
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.
KDeluxe is offline  
Old   #7
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Sep 2009
Posts: 445
Received Thanks: 286
@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
Banana.Crafts is offline  
Old   #8
 
elite*gold: 0
The Black Market: 9/0/0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
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.
KDeluxe is offline  
Old   #9
 
*-_JuLi²_-*'s Avatar
 
elite*gold: 8
The Black Market: 30/0/0
Join Date: Mar 2010
Posts: 4,272
Received Thanks: 1,053
ja nur leider bei dem wenn ich ein häckchen bei speed oder sonst was mache ist der trainer weg
*-_JuLi²_-* is offline  
Old   #10
 
elite*gold: 0
The Black Market: 9/0/0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
Kann passieren wenn man alles per C&P machen möchte, mein unverändertes funktioniert zu 100%.
KDeluxe is offline  
Reply

« Problem mit Script | [Hilfe]Fenster »

Similar Threads Similar Threads
Brauche hilfe Warrock geht nicht mehr
11/13/2011 - WarRock - 7 Replies
hey com. ich hab ein fehler seit gestern, ich hab auch schon warrock neu installiert, hier ein screen :( http://img210.imageshack.us/i/fehlerf.png/ hier ein link der müsste besser sein :S
quests einbauen geht nicht
05/13/2010 - Metin2 Private Server - 17 Replies
hallo Ich versuche schon seit längerem quests bei meinem server einzufügen. Jedoch sind die ingame nicht sichtbar. Habe das tut von proffifighter befolgt und die quest ist auch nicht falsch. Ich habe ebenfalls verscuth einfach text einer bestehenden quest zu ändern. Nach dem einloggen war diese quest nicht mehr da . muss ich vllt iwas mit dem object ordner tuen? und fals kommt wieso ich den thread wieder aufmache... WEIIIL:
SFYT2 geht nicht brauche HILFE !!!
08/11/2009 - Metin2 Private Server - 0 Replies
3.Deutsch Oder ihr nehmt den Metin2 Ordner von 2007 und pack das : RapidShare: 1-CLICK Web hosting - Easy Filehosting alles in dem Metin2 2007 ordner der darf nicht gepacht sein !!! Ihr geht dann in dem Ordner ollydbg110 und startet die Ollydgb.exe. Wenn ihr das gemacht habt geht ihr auf File->Open und wählt die metin2.bin aus. Nun wenn er alles geladen hat geht ihr auf Plugins -> Unhooker -> Load cfg File. Geht dann in dem Script ordner und wählt Mosha=sfyt2.cfg . Nun Wenn er das .cfg...
brauche pointer...kann ihn nicht erstellen weil kal closed
01/19/2009 - Kal Online - 4 Replies
hi ich brauch nen speed und ug pointer... ich bekomm den in 30 sek nicht hin kal schließt einfach zu schnell mit ghostkiller... danke
Model Edit geht nicht! Brauche Hilfe!
06/27/2008 - World of Warcraft - 0 Replies
Also ich wollte seid heute wieder mal mein Model ändern. Nun ich habe Glitchys Model Editing Suite angeschmissen und mir die MPQ Human female zu Human Male gemacht. Habe mir die neue WoWMe gedlled und nun will ich sie öffnen. Doch leider wenn ich die WoWme.exe öffne, dann startet sich WoW ganz normal! Brauche unbedingt hilfe ( wowme.cfg ) ist in dem Data Ordner. Bitte um schnell hilfe. MfG Konsti



All times are GMT +2. The time now is 12:06.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.