Tutto quello che riguarda i giochi online ma soprattutto War Rock!
 
IndiceRetailFamasFREERegistrarsiAccedi
Benvenuto Su WarHax!

Condividere | 
 

 [TUTORIAL]Creare cheat per metin2 con vb

Vedere l'argomento precedente Vedere l'argomento seguente Andare in basso 
AutoreMessaggio
Admin
Founder
Founder


Messaggi : 261
Data d'iscrizione : 15.07.10
Località : Torino

MessaggioOggetto: [TUTORIAL]Creare cheat per metin2 con vb   Gio Lug 22, 2010 12:49 am

Riaggiornata

Salve a tutti. Apro questo tutorial per spiegare come creare semplici hack metin2.
L'occorrente ? Visual basic 2008 express edition o VB.net
Apriamo VB, nuovo progetto, windows form. Andiamo su project->add->module, e lo chiamiamo module1.vb

Adesso copiamo nel modulo la dichiarazione delle WinApi
Codice:
Module Module1
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public MetinProcesso As Process() = Process.GetProcessesByName("metin2.bin") 'processo da aprire ( ovvero controllare )
Public addr As Long = 0
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Public processHandle As IntPtr
End Module

Adesso clicchiamo due volte sul form e inseriamo il seguente codice:
Codice:
If MetinProcesso.Length = 0 Then
MsgBox("Devi prima aprire il gioco", MsgBoxStyle.Critical, "ERRORE")
End
End If

processHandle = OpenProcess(PROCESS_ALL_ACCESS, 0, MetinProcesso(0).Id) 'setto processHandle
If processHandle = IntPtr.Zero Then
MsgBox("Impossibile aprire il Processo O.o")
End

End If

Inseriamo un nuovo timer e lo lasciamo in Timer1
Inseriamo due bottoni, uno ON e l'altro OFF, e una textBox.
Il bottone ON lo rinominiamo in btnON e il bottone OFF in btnOff
la textBox rimarr? textBox1
Adesso clicchiamo su ON e scriviamoo il seguente codice:
Codice:
Timer1.Enabled = True
Adesso clicchiamo due volte su OFF e inseriamo il seguente codice:
Codice:
Timer1.enabled = false
Dim pointer As Integer
pointer = &H5F29BC




Dim buffer(2) As Integer
Dim addr(2) As Double
Dim off(2) As Integer
off(0) = &H10 'offset1
off(1) = &H5BA 'offset2


ReadProcessMemory(processHandle, pointer, buffer(0), 4, Nothing)
addr(0) = buffer(0) + off(0)
ReadProcessMemory(processHandle, addr(0), buffer(1), 4, Nothing)
addr(1) = buffer(1) + off(1)
WriteProcessMemory(processHandle, addr(1), 16256, 2, Nothing)
Adesso clicchiamo sul timer1 e inseriamo il seguente codice:
Codice:
Dim pointer As Integer
pointer = &H5F29BC




Dim buffer(2) As Integer
Dim addr(2) As Double
Dim off(2) As Integer
off(0) = &H10 'offset1
off(1) = &H5B6 'offset2


ReadProcessMemory(processHandle, pointer, buffer(0), 4, Nothing)
addr(0) = buffer(0) + off(0)
ReadProcessMemory(processHandle, addr(0), buffer(1), 4, Nothing)
addr(1) = buffer(1) + off(1)
WriteProcessMemory(processHandle, addr(1), TextBox1.Text, 2, Nothing)

Adesso metto la mano sul fuoco che funziona XD

Questo ? un esempio di speed hack, e usa gli offset 10 e 5b6.
Adesso ziii steph vi posta la lista pointer gi? messa in Metin2
Cliccate sullo spoiler per vedere i pointer e offsets.

[size=large]I POINTER SI TROVANO IN SPOILER
[/size]

Spoiler:
 

fonte: web
Tornare in alto Andare in basso
http://warhax.forumattivo.com
 
[TUTORIAL]Creare cheat per metin2 con vb
Vedere l'argomento precedente Vedere l'argomento seguente Tornare in alto 
Pagina 1 di 1
 Argomenti simili
-
» [TUTORIAL] Come Creare la Vostra Wet Palette
» tutorial supermagneti per le basette
» tutorial mv(materia verde)
» Aiuto neve fai-da-te
» TUTORIAL CARRO NAGGARONTI

Permesso di questo forum:Non puoi rispondere agli argomenti in questo forum
 :: Visual Basic-
Andare verso: