Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.


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

 

 [TUTORIAL]Creare cheat per metin2 con vb

Andare in basso 
AutoreMessaggio
Admin
Founder
Founder



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

[TUTORIAL]Creare cheat per metin2 con vb Empty
MessaggioTitolo: [TUTORIAL]Creare cheat per metin2 con vb   [TUTORIAL]Creare cheat per metin2 con vb Icon_minitimeGio 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
Torna in alto Andare in basso
https://warhax.forumattivo.com
 
[TUTORIAL]Creare cheat per metin2 con vb
Torna in alto 
Pagina 1 di 1
 Argomenti simili
-
» Come creare Spammer in VB8!
» Come creare un keylogger.
» Creare Injector in VB
» creare un trojan
» G.Creare Hack Warrock

Permessi in questa sezione del forum:Non puoi rispondere agli argomenti in questo forum.
 :: Visual Basic-
Vai verso: