|
You last visited: Today at 08:47
Advertisement
Mhs selber editieren
Discussion on Mhs selber editieren within the Metin2 forum part of the Popular Games category.
11/09/2008, 12:06
|
#1
|
elite*gold: 0 
Join Date: Jun 2008
Posts: 85
Received Thanks: 32
|
Mhs selber editieren
Hi Leute
Wie schon im Titel gesagt würde ich gerne
selber einen Multihack editieren , eigentlich geht
es mir nur um das Design . Könnte mir einer
ein einfach zu bedienendes und gutes Programm
nennen mit dem ich den Multihack öffnen und das Disign
ändern kann.
Mfg Claymas
|
|
|
|
11/09/2008, 19:03
|
#2
|
elite*gold: 0
Join Date: Nov 2007
Posts: 499
Received Thanks: 178
|
ohja ohja das wär super =) willauch!
pushi
|
|
|
|
|
11/09/2008, 19:08
|
#3
|
elite*gold: 0
Join Date: Feb 2008
Posts: 2,754
Received Thanks: 1,748
|
Das würde wenn nur mit dem Code gehen, und ich glaube weniger das GEX den so freiwillig rausrücken wird/würde  .
|
|
|
|
|
11/09/2008, 19:12
|
#4
|
elite*gold: 0
Join Date: Nov 2008
Posts: 2,100
Received Thanks: 372
|
hier ich habe einen code Herraus gefunden
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
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
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
|
Quelle
|
|
|
|
|
11/09/2008, 19:16
|
#5
|
elite*gold: 41
Join Date: Oct 2007
Posts: 1,950
Received Thanks: 3,120
|
quelle ?
und ist das überhaupt der?
|
|
|
|
|
11/09/2008, 19:23
|
#6
|
elite*gold: 0
Join Date: Feb 2008
Posts: 2,754
Received Thanks: 1,748
|
Wenn dann nur ein Teil meiner meinung nach. Noch hinzu woher hast du das überhaupt?
€dit: Und was für eine Sprache ist das überhaupt? vBasic?
|
|
|
|
|
11/09/2008, 19:34
|
#7
|
elite*gold: 0
Join Date: Nov 2008
Posts: 2,100
Received Thanks: 372
|
ich hab mein Post ediiert^^
em ja ^^ dann halt dort drauf klicken^^
so ein Denis07 hat den code Herraus gefunden
mit vb6 oder so
|
|
|
|
|
02/17/2010, 19:59
|
#8
|
elite*gold: 0
Join Date: Jan 2009
Posts: 33
Received Thanks: 14
|
von anderen die codes kopieren geht leicht aber selber was zsm suchen bzw schreiben kannste net dass nervt langsam dass solche noobs immer von anderen was kopieren müssen um mehr thx zu bekommen-.-
|
|
|
|
 |
Similar Threads
|
[Help]Server editieren .... -.-
12/09/2009 - Metin2 Private Server - 4 Replies
Hey ich hab ein Problem wenn ich die Server editieren will.
Ich Editieren sie d.h. Mosha umbenennen und den rest löschen alles
befolgt aber der ändert wenn ich metin starte nicht..
|
Editieren
11/28/2009 - WarRock - 2 Replies
Da ich mal ahnemen das der ganze heack mit dem menü usw. in der .dll datei liegt kann mann da mit einem programm noch eine sache hinzufügen heißt:es fehlt chams or xray kann ich dan die adressen oder wie man das nennt suchen und da i-wie reinkopieren oder is dat net so einfach ?
|
Gürtel editieren?
03/08/2008 - World of Warcraft - 2 Replies
Kann man auch Gürtel editieren? ... ich will z.B. einen Gürtel so verändern, dass er nicht mehr sichtbar ist?
--------
i want to edit some waists so that there invisible can some help me? ^^
würde mich über antworten freuen
|
.mrs files editieren
08/06/2005 - GunZ - 1 Replies
Ich hab schon überall gesucht aber nirgenwo finde ich ein tutorial dazu wie man .mrs Dateien bearbeitet :cry:
wer wirklich nett wen mir das jemand erklären würde :)
|
Shops editieren
07/23/2005 - Lineage 2 - 11 Replies
Hi leute :bandit:
kann mir jemand sagen wie ich shops in lineage editieren kann?
habe dazu noch nichts im internet gefunden :(
wär echt nett ... oder vll hat ja jemand schon editierte shops ;) oder ihr wisst wo ein tut dazu is
bitte helft mir :D
THX :) :) :)
|
All times are GMT +2. The time now is 08:47.
|
|
