|
You last visited: Today at 11:54
Advertisement
Brauche Hilfe bei meinem kleinem PVZ Hack
Discussion on Brauche Hilfe bei meinem kleinem PVZ Hack within the AutoIt forum part of the Coders Den category.
03/17/2013, 19:11
|
#1
|
elite*gold: 29 
Join Date: Aug 2011
Posts: 640
Received Thanks: 493
|
Brauche Hilfe bei meinem kleinem PVZ Hack
PHP Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $Schleife
While 1
$Schleife = False
$passwort = InputBox ("Passwort Manager","Bitte geben sie das Passwort ein!","","*")
If $passwort == "" Then
MsgBox(64, "Passwort Manager", "Das Passwort wurde richtig eingegeben!",1)
ElseIf @error Then
Exit
Else
MsgBox(16, "ERROR 405", "Zugriff Verweigert! " &@CRLF& " Bitte geben sie das Passwort richtig ein!",2)
$Schleife = True
Endif
If $Schleife == False Then ExitLoop
WEnd
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Pointer.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=g:\autoit\pvz autoit\plants vs.kxf
$Form1 = GUICreate("Plants vs. Zombies", 322, 146, 192, 124)
$Group1 = GUICtrlCreateGroup("Auswählen", 0, 0, 321, 145)
$Checkbox1 = GUICtrlCreateCheckbox("99999999 Sonnen", 8, 24, 105, 17)
$Label1 = GUICtrlCreateLabel("Status:", 8, 72, 37, 17)
$Label2 = GUICtrlCreateLabel("Not Running", 48, 72, 112, 24)
GUICtrlSetFont(-1, 12, 800, 2, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Exit", 96, 112, 59, 25)
$Button2 = GUICtrlCreateButton("Hack", 8, 104, 75, 33)
$Checkbox2 = GUICtrlCreateCheckbox("Pause", 168, 16, 49, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Weiter", 168, 40, 49, 17)
$Button3 = GUICtrlCreateButton("P Start", 232, 16, 43, 17)
$Button4 = GUICtrlCreateButton("W Start", 232, 40, 43, 17)
$Label3 = GUICtrlCreateLabel("Made by Thomas Schneider", 176, 96, 137, 17)
$Checkbox4 = GUICtrlCreateCheckbox("freeze", 8, 48, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetOnEvent($Button1, "_Exit")
GUICtrlSetOnEvent($Button2, "_Hack")
GUICtrlSetOnEvent($Button3, "_Hacksuspend")
GUICtrlSetOnEvent($Button4, "_Hackresume")
While 1
If ProcessExists("popcapgame1.exe") <> 0 Then
GUICtrlSetData($Label2, "Running")
GUICtrlSetColor($Label2,0x076825)
Else
GUICtrlSetData($Label2, "Not Running")
GUICtrlSetColor($Label2,0xff0000)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Exit()
Case $Button2
_Hack()
Case $Button3
_Hacksuspend()
Case $Button4
_Hackresume()
EndSwitch
WEnd
Func _Exit()
Exit
EndFunc
Func _Hack()
$prozessname = "popcapgame1.exe"
$PID = ProcessExists(""&$prozessname&"")
If $PID > 0 Then
$Handle = _MemoryOpen($PID)
$Address = _MemoryModuleGetBaseAddress(ProcessExists(""&$prozessname&""), ""&$prozessname&"")
$Address = "0x" & Hex($Address + Dec("2A9F38"))
Dim $Offset[3] = [ 0, 0x768 , 0x5560]
EndIf
If GUICtrlRead($Checkbox1) = 1 Then
$Write1 = _MemoryPointerWrite($Address, $Handle, $Offset, 9999999)
Else
MsgBox(16,"ERROR","Keine Checkbox angeklickt",3)
EndIf
While GUICtrlRead($Checkbox1) = 1 And GUICtrlRead($Checkbox2) = 1
$Write1 = _MemoryPointerWrite($Address, $Handle, $Offset, 9999999)
WEnd
While GUICtrlRead($Checkbox1) = 0 Or GUICtrlRead($Checkbox2) = 0
ExitLoop
WEnd
EndFunc
Func _Hacksuspend()
If GUICtrlRead($Checkbox2) = 1 Then
$processid = ProcessExists("popcapgame1.exe")
MsgBox(64,"Pause"," Plants vs. Zombies wird pausiert!" ,2)
If $processid Then
$ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
$i_sucess = DllCall("ntdll.dll","int","NtSuspendProcess","int",$ai_Handle[0])
DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
If IsArray($i_sucess) Then
Return 1
Else
MsgBox(64+1, "ERROR 410" , "Prozess existiert nicht" ,5)
SetError(1)
Return 0
Endif
Else
SetError(2)
Return 0
Endif
EndIf
EndFunc
Func _Hackresume()
If GUICtrlRead($Checkbox3) = 1 Then
MsgBox(64,"Weiter","Pause wird beendet!" ,2)
$processid = ProcessExists("popcapgame1.exe")
If $processid Then
$ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
$i_sucess = DllCall("ntdll.dll","int","NtResumeProcess","int",$ai_Handle[0])
DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
If IsArray($i_sucess) Then
Return 1
Else
MsgBox(64+1, "ERROR 410" , "Prozess existiert nicht" ,5)
SetError(1)
Return 0
Endif
Else
SetError(2)
Return 0
Endif
EndIf
EndFunc
Und zwar habe ich folgendes Problem ich möchte wie bei Cheat Engine den Wert den ich bei meiner Checkbox angeklickt habe freezen und wenn ich dann das Häckchen weg gemacht habe und wieder auf Hack gegangen bin der Frezze aufgehoben werden soll freue mich über jeden Verbesserungsvorschlag. 
Eine Frage habe ich da auch noch und zwar wollte ich wissen was es heißt und auch wie es geht das ich einen Pointer "noppen" kann. Dankeschön
|
|
|
|
03/17/2013, 19:32
|
#2
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
fürs "freezen" kannst du AdlibRegister() benutzen..
AdlibRegister(_MemoryPointerWrite($Pointer, $Open, $Offset, ***))
was du mit "einen pointer noppen" meinst, weiß ich nicht.
|
|
|
|
|
03/17/2013, 20:32
|
#3
|
elite*gold: 29
Join Date: Aug 2011
Posts: 640
Received Thanks: 493
|
PHP Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Global $Schleife
While 1
$Schleife = False
$passwort = InputBox ("Passwort Manager","Bitte geben sie das Passwort ein!","","*")
If $passwort == "" Then
MsgBox(64, "Passwort Manager", "Das Passwort wurde richtig eingegeben!",1)
ElseIf @error Then
Exit
Else
MsgBox(16, "ERROR 405", "Zugriff Verweigert! " &@CRLF& " Bitte geben sie das Passwort richtig ein!",2)
$Schleife = True
Endif
If $Schleife == False Then ExitLoop
WEnd
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Pointer.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=g:\filme\handy\autoit\pvz autoit\plants vs.kxf
$Form1 = GUICreate("Plants vs. Zombies", 322, 146, 192, 124)
$Group1 = GUICtrlCreateGroup("Auswählen", 0, 0, 321, 145)
$Checkbox1 = GUICtrlCreateCheckbox("99999999 Sonnen", 8, 24, 105, 17)
$Label1 = GUICtrlCreateLabel("Status:", 8, 72, 37, 17)
$Label2 = GUICtrlCreateLabel("Not Running", 48, 72, 112, 24)
GUICtrlSetFont(-1, 12, 800, 2, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Exit", 96, 112, 59, 25)
$Button2 = GUICtrlCreateButton("Hack", 8, 104, 75, 33)
$Checkbox2 = GUICtrlCreateCheckbox("Pause", 168, 16, 49, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Weiter", 168, 40, 49, 17)
$Button3 = GUICtrlCreateButton("P Start", 232, 16, 43, 17)
$Button4 = GUICtrlCreateButton("W Start", 232, 40, 43, 17)
$Label3 = GUICtrlCreateLabel("Made by ", 176, 96, 137, 17)
$Checkbox4 = GUICtrlCreateCheckbox("freeze", 8, 48, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetOnEvent($Button1, "_Exit")
GUICtrlSetOnEvent($Button2, "_Hack")
GUICtrlSetOnEvent($Button3, "_Hacksuspend")
GUICtrlSetOnEvent($Button4, "_Hackresume")
While 1
If ProcessExists("popcapgame1.exe") <> 0 Then
GUICtrlSetData($Label2, "Running")
GUICtrlSetColor($Label2,0x076825)
Else
GUICtrlSetData($Label2, "Not Running")
GUICtrlSetColor($Label2,0xff0000)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Exit()
Case $Button2
_Hack()
Case $Button3
_Hacksuspend()
Case $Button4
_Hackresume()
EndSwitch
WEnd
Func _Exit()
Exit
EndFunc
Func _Hack()
$prozessname = "popcapgame1.exe"
$PID = ProcessExists(""&$prozessname&"")
If $PID > 0 Then
$Handle = _MemoryOpen($PID)
$Address = _MemoryModuleGetBaseAddress(ProcessExists(""&$prozessname&""), ""&$prozessname&"")
$Address = "0x" & Hex($Address + Dec("2A9F38"))
Dim $Offset[3] = [ 0, 0x768 , 0x5560]
EndIf
If GUICtrlRead($Checkbox1) = 1 Then
$Write1 = _MemoryPointerWrite($Address, $Handle, $Offset, 9999999)
Else
MsgBox(16,"ERROR","Keine Checkbox angeklickt",3)
EndIf
If GUICtrlRead($Checkbox1) = 1 And GUICtrlRead($Checkbox4) = 1 Then
AdlibRegister(_MemoryPointerWrite($Address, $Handle, $Offset, 9999999))
ElseIf GUICtrlRead($Checkbox1) = 0 Or GUICtrlRead($Checkbox4) = 0 Then
AdlibUnRegister(_MemoryPointerWrite($Address, $Handle, $Offset, 9999999))
EndIf
EndFunc
Func _Hacksuspend()
If GUICtrlRead($Checkbox2) = 1 Then
$processid = ProcessExists("popcapgame1.exe")
MsgBox(64,"Pause"," Plants vs. Zombies wird pausiert!" ,2)
If $processid Then
$ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
$i_sucess = DllCall("ntdll.dll","int","NtSuspendProcess","int",$ai_Handle[0])
DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
If IsArray($i_sucess) Then
Return 1
Else
MsgBox(64+1, "ERROR 410" , "Prozess existiert nicht" ,5)
SetError(1)
Return 0
Endif
Else
SetError(2)
Return 0
Endif
EndIf
EndFunc
Func _Hackresume()
If GUICtrlRead($Checkbox3) = 1 Then
MsgBox(64,"Weiter","Pause wird beendet!" ,2)
$processid = ProcessExists("popcapgame1.exe")
If $processid Then
$ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
$i_sucess = DllCall("ntdll.dll","int","NtResumeProcess","int",$ai_Handle[0])
DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
If IsArray($i_sucess) Then
Return 1
Else
MsgBox(64+1, "ERROR 410" , "Prozess existiert nicht" ,5)
SetError(1)
Return 0
Endif
Else
SetError(2)
Return 0
Endif
EndIf
EndFunc
Nun sieht er so aus der Hack aber trotzdem friert er den Wert nicht ein.
|
|
|
|
 |
Similar Threads
|
[S]Brauche Hilfe bei meinem neuem PC [B]Bei Hilfe nettes Elite Gold!
11/10/2012 - elite*gold Trading - 3 Replies
Hallo Leute.......
Ich habe mal ne wichtige Frage an die, die sich WIRKLICH damit auskennen...
Undzwahr geht es darum, das ich mir nach ca. 7 Jahren mal endlich nen neuen PC anschaffen muss, weil mein momentaner Holzrechner so langsam den Geist aufgibt..
Vorweck gesagt, ich habe hohe Ansprüche :D
Ich möchte mit meinem neuem PC BF3 fliesend spielen können, und Black Ops 2 ...
Und nun is meine Frage, ob das was ich mir bisher so rausgesucht habe, alles gut zusammen passt, und/oder ob...
|
Hilfe bei kleinem m2 hack
10/25/2012 - Metin2 Private Server - 0 Replies
Hallo alle,
Ich möchte mir gerne einen kleinen Angriffsgeschwindigkeits hack für Metin2 schreiben. Ich werde ihn in C++ schreiben und erstmal als Konsolenanwendung (soll ja einfach sein erstmal).Ich habe mich nun drangesetzt das bei m2 zu versuchen,und habe auch die Adresse und den BasePointer gefunden und beides getestet.
Da ich mich aber echt schlecht mit Cheat Engine auskenne und alles versuche aus tuts aus dem Inet zu lernen bin ich mir nicht sicher welche der angezeigten addressen nun...
|
[Hilfe] Brauche Hilfe bei meinem Hamachi Server alles Fertig ausser Navicat und co.
08/07/2010 - Metin2 Private Server - 2 Replies
Guten Tag,
Also ich habe heute mein Hamachi P-Server erstellt doch habe Paar Fragen.
Kann ich nachdem ich Server erstellt habe VPC schließen also da wo Operation timed out steht.
Wie kann ich das mit Navicat machen (wäre schön wenn einer alles einzeln beschreiben könnte).
Wie funktionert das mit der Datenbank?
Und wie erstelle ich Accounts?
|
Brauche hilfe bei meinem hack
06/04/2010 - AutoIt - 7 Replies
Hallo
ich hab ein problem mit meinem hack weil ich weis nicht wie man pointer einbaut bzw addressen frezzt ich bin anfäner in autoit und weis deswegen nicht so viel ich hab schon alle pointer die ich brauche und den base pointer plz help
mfg und danke schonmal im vorraus :)
Ich muss jetzt nurnoch wissen wie man adressen freezt oder in eine schleife setzt die wennn ich auf einen anderen button klicvke unterbrochen wird und die hauptscheife fortgesetzt wird
KANN GECLOSED WERDEN
|
All times are GMT +2. The time now is 11:54.
|
|
