Register for your free account! | Forgot your password?

Go Back   elitepvpers > Popular Games > Metin2
You last visited: Today at 13:52

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

Advertisement



Multihack Codes, Multihack erstellen^^

Discussion on Multihack Codes, Multihack erstellen^^ within the Metin2 forum part of the Popular Games category.

Closed Thread
 
Old   #1
 
elite*gold: 0
Join Date: Oct 2007
Posts: 263
Received Thanks: 190
Multihack Codes, Multihack erstellen^^

Hallo,
Ich hab das Module und ein paar codes des Multihacks gefunden für VB6. Ich kenne das aus WarRock hab da auch so ähnliche Hacks erstellt. Hack jetzt versucht ein Hack für Metin zu erstellen, bin da aber nicht weiter gekommen^^. Das mit den Pointern kapiere ich nicht ganz. Könnte mit da vielleicht weiterhelfen.

Module
Quote:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Declare Function Hotkey Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

Private Function WriteBytes(ByVal WndText As String, ByVal Address As Long, ByRef buffer() As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Prima lanciare Metin2, subito dopo il Cheat", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, Address, value, 1, 0&
CloseHandle hProcess
End Function

Public Function WriteAnInt(gamewindowtext As String, Address As Long, value As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Prima lanciare Metin2, subito dopo il Cheat", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, Address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function WriteALong(gamewindowtext As String, Address As Long, value As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Prima lanciare Metin2, subito dopo il Cheat", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, Address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAByte(gamewindowtext As String, Address As Long, valbuffer As Byte)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Prima lanciare Metin2, subito dopo il Cheat", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, Address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function ReadAnInt(gamewindowtext As String, Address As Long, valbuffer As Integer)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Prima lanciare Metin2, subito dopo il Cheat", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, Address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function ReadALong(gamewindowtext As String, Address As Long, valbuffer As Long)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Prima lanciare Metin2, subito dopo il Cheat", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, Address, valbuffer, 4, 0&
CloseHandle hProcess
End Function




Public Function ReadAFloat(gamewindowtext As String, Address As Long, valbuffer As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long
hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Prima lanciare Metin2, subito dopo il Cheat", vbCritical, "Error"
End
Exit Function
End If

GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If

ReadProcessMem phandle, Address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Public Function WriteAFloat(gamewindowtext As String, Address As Long, value As Single)
Dim hWnd As Long
Dim pid As Long
Dim phandle As Long

hWnd = FindWindow(vbNullString, gamewindowtext)
If (hWnd = 0) Then
MsgBox "Prima lanciare Metin2, subito dopo il Cheat", vbCritical, "Error"
End
Exit Function
End If

GetWindowThreadProcessId hWnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If

WriteProcessMemory phandle, Address, value, 4, 0&
CloseHandle hProcess
End Function


Public Function WPM(gamewindowtext As String, Address As Long, value As Long, bytes As Byte)
Dim handle As Long
Dim processID As Long
Dim ProcessHandle As Long
handle = FindWindow(vbNullString, gamewindowtext)
GetWindowThreadProcessId handle, processID
ProcessHandle = OpenProcess(&H1F0FFF, True, processID)
WriteProcessMemory ProcessHandle, Address, value, bytes, 0
CloseHandle ProcessHandle
End Function

Public Function WPMbuf(gamewindowtext As String, Address As Long, value As Byte, bytes As Byte)
Dim handle As Long
Dim processID As Long
Dim ProcessHandle As Long
handle = FindWindow(vbNullString, gamewindowtext)
GetWindowThreadProcessId handle, processID
ProcessHandle = OpenProcess(&H1F0FFF, True, processID)
WriteProcessMemory ProcessHandle, Address, value, bytes, 0
CloseHandle ProcessHandle
End Function


Public Function RPM(gamewindowtext As String, Address As Long, value As Long, bytes As Long)
Dim handle As Long
Dim processID As Long
Dim ProcessHandle As Long
handle = FindWindow(vbNullString, gamewindowtext)
GetWindowThreadProcessId handle, processID
ProcessHandle = OpenProcess(&H1F0FFF, True, processID)
ReadProcessMem ProcessHandle, Address, value, bytes, 0
CloseHandle ProcessHandle
End Function
Quote:
Dim PokeBuff(12) As Byte 'RICAVO IL POINTER IN ESI DI 0042A00D
PokeBuff(0) = &H89 'E SPOSTO IL VALORE NELLA LOCAZIONE FISSA 1EFCC088
PokeBuff(1) = &H35
PokeBuff(2) = &H88
PokeBuff(3) = &HC0
PokeBuff(4) = &HFC
PokeBuff(5) = &H1E
PokeBuff(6) = &H5E
PokeBuff(7) = &H8B
PokeBuff(8) = &HE5
PokeBuff(9) = &H5D
PokeBuff(10) = &HC2
PokeBuff(11) = &H4
PokeBuff(12) = &H0
Call WPMbuf("GAME _ WINDOW_NAME", &H42A00D, PokeBuff(0), 13)

Call ReadALong("GAME _WINDOW_ NAME", &H1EFCC088, Pointer1)
Pointer2 = Hex(Pointer1 + 8)
Quote:
Dim leggi as single
Call ReadAFloat("METIN2", "&H" & ADDRESS, leggi)
Quote:
Call WriteAFloat("METIN2", "&H" & ADDRESS, 1.220000)
Und kann das vielleicht jemand Übersetzen, finde keinen Türkisch-Deutsch Übersetzer.
Quote:
-İlk başta modüle bunu yazmalıyız.
-Örnek bir butona eklemek için kod.
-Oyuna 11111,5555," " gibi kod göndermek için
-Yada
MFG Dennis
Dennis07 is offline  
Thanks
1 User
Old 10/25/2008, 00:39   #2
 
elite*gold: 0
Join Date: Oct 2008
Posts: 361
Received Thanks: 112
Türkisch:

-İlk başta modüle bunu yazmalıyız.
-Örnek bir butona eklemek için kod.
-Oyuna 11111,5555," " gibi kod göndermek için
-Yada

Deutsch:
1: zu erst ins Mobul rein schreiben

2: Der Code zum einfügen

3 Spiel:11111,5555," " : so ein Code zum senden

4: Oder

so des war mal Wörtliche Übersetung^^
VayVay is offline  
Thanks
1 User
Old 10/25/2008, 05:46   #3
 
elite*gold: 0
Join Date: Oct 2007
Posts: 263
Received Thanks: 190
ja danke, kann mir jemand mit dem multihack weiterhelfen
Dennis07 is offline  
Old 06/29/2009, 10:13   #4
 
elite*gold: 0
Join Date: May 2009
Posts: 1
Received Thanks: 0
Frag doch banjo1 der weis es
Dogmata is offline  
Old 06/29/2009, 12:39   #5
 
elite*gold: 2
Join Date: Feb 2009
Posts: 1,030
Received Thanks: 586
Datum
RoleS is offline  
Old 06/29/2009, 13:03   #6
 
DeLuxeStyLez's Avatar
 
elite*gold: 10
Join Date: Mar 2008
Posts: 1,658
Received Thanks: 460
Wieso musst du auf einen alten Thread antworten? @Dogmata
DeLuxeStyLez is offline  
Thanks
1 User
Old 06/29/2009, 17:40   #7
 
banjo1's Avatar
 
elite*gold: 1371
Join Date: Dec 2007
Posts: 14,904
Received Thanks: 19,354
*closed
banjo1 is offline  
Closed Thread


Similar Threads Similar Threads
Eigenen Multihack erstellen ?
07/31/2010 - Wolfteam - 8 Replies
Hallo leute ich hätte ne frage undzwar wollte ich wissen wie man einen eigenen Multihack wür WT erstellt zb wie Sean . was man für Programme usw dafür braucht . Würde mich freuen eine Antwort zu bekommen .
[Multihack] Beste 1-Hit-Einstellungen für den Multihack?
05/05/2009 - Metin2 - 10 Replies
Hallo, wollte mal fragen was die besten Einstellungen sind für den Multihack, wenn man 1-Hit machen will (Am Besten für 2hand waffen) Danke im Vorraus



All times are GMT +2. The time now is 13:52.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

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