[PYTANIE] Mam Kody I Jak I Gdzie Je Wykorzystać

[SaperMT2]

Form:

 

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Do While Processo.Length = 0

Processo = Process.GetProcessesByName("metin2client.bin")

MsgBox("Devi aprire metin prima ", MsgBoxStyle.Information)

Me.Close()

Exit Sub

Loop

processHandle = OpenProcess(&H1F0FFF, 0, Processo(0).Id)

If processHandle = IntPtr.Zero Then

MsgBox("Unable to open process memory", MsgBoxStyle.Critical, "Error")

End If

Timer1.Enabled = True

End Sub

Private Sub MovBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MovBtn.Click

If MovMode = False Then

MovBtn.BackColor = Color.Aqua

MovMode = True

Else

MovBtn.BackColor = Color.FromKnownColor(KnownColor.Control)

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1462), 16256, 4, Nothing)

MovMode = False

End If

End Sub

Private Sub AtkBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AtkBtn.Click

If AtkMode = False Then

AtkBtn.BackColor = Color.Aqua

AtkMode = True

Else

AtkBtn.BackColor = Color.FromKnownColor(KnownColor.Control)

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1466), 16256, 4, Nothing)

AtkMode = False

End If

End Sub

Private Sub rg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rg.Click

If rgMode = False Then

rg.BackColor = Color.Aqua

rgMode = True

Else

rg.BackColor = Color.FromKnownColor(KnownColor.Control)

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1458), 16256, 4, Nothing)

rgMode = False

End If

End Sub

Private Sub WallBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WallBtn.Click

If WallMode = False Then

WallBtn.BackColor = Color.Aqua

WallMode = True

wallHack()

Else

WallBtn.BackColor = Color.FromKnownColor(KnownColor.Control)

WallMode = False

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'velocità movimento

If MovMode = True Then

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1462), Int(MovTxt.Text), 4, Nothing)

WriteProcessMemory(processHandle, &H43C18E, 106, 2, Nothing)

End If

'invisibilità

If InvMode = True Then

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1530), 1400, 8, Nothing)

End If

'velocità attacco

If AtkMode = True Then

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1466), Int(AtkTxt.Text), 4, Nothing)

WriteProcessMemory(processHandle, &H43C21D, 106, 2, Nothing)

End If

'range

If rgMode = True Then

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1458), Int(AtkTxt.Text), 4, Nothing)

End If

'attack mode

If ModeMode = True Then

Select Case (ModeCBox.SelectedItem.ToString())

Case "Pugni"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 1, 4, Nothing)

Case "Spada"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 2, 4, Nothing)

Case "Lancia"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 3, 4, Nothing)

Case "Arco"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 5, 4, Nothing)

Case "Pugnali"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 393220, 4, Nothing)

Case "Canna da pesca"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 8, 4, Nothing)

Case "Cavallo nabbo"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 9, 4, Nothing)

Case "Cavallo medio"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 10, 4, Nothing)

Case "Cavallo esperto"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 11, 4, Nothing)

Case "Camminata gay"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 16, 4, Nothing)

End Select

End If

'combo mode

If ComboMode = True Then

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1332), 2, 4, Nothing)

End If

If ZoomMode = True Then

WriteProcessMemory(processHandle, &H5FD0E1, 307163591, 4, Nothing)

WriteProcessMemory(processHandle, &H5D5FA6, 19999, 4, Nothing)

End If

'hit mode

If HitMode = True Then

Select Case (HitCBox.SelectedItem.ToString())

Case "1"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1300), 1, 4, Nothing)

Case "2"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1300), 2, 4, Nothing)

Case "3"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1300), 3, 4, Nothing)

Case "4"

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1300), 4, 4, Nothing)

End Select

End If

'auto attakko

If AutoAtkMode = True Then

WriteProcessMemory(processHandle, &H6D354481, 128, 4, Nothing)

End If

End Sub

Private Sub ModeCBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModeCBox.SelectedIndexChanged

If ModeCBox.SelectedItem.ToString() <> "Off" Then

ModeOK.BackColor = Color.Aqua

ModeMode = True

Else

ModeOK.BackColor = Color.FromKnownColor(KnownColor.Control)

ModeMode = False

End If

End Sub

Private Sub ComboBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBtn.Click

If ComboMode = False Then

ComboBtn.BackColor = Color.Aqua

ComboMode = True

Else

ComboBtn.BackColor = Color.FromKnownColor(KnownColor.Control)

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1332), 0, 4, Nothing)

ComboMode = False

End If

End Sub

Private Sub ZoomBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZoomBtn.Click

If ZoomMode = False Then

ZoomBtn.BackColor = Color.Aqua

ZoomMode = True

Else

ZoomBtn.BackColor = Color.FromKnownColor(KnownColor.Control)

WriteProcessMemory(processHandle, &H5D84E1, 4560384, 4, Nothing)

WriteProcessMemory(processHandle, &H5D5FA6, 17692, 4, Nothing)

ZoomMode = False

End If

End Sub

Private Sub HitCBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HitCBox.SelectedIndexChanged

If HitCBox.SelectedItem.ToString() <> "Off" Then

HitON.BackColor = Color.Aqua

HitMode = True

Else

HitON.BackColor = Color.FromKnownColor(KnownColor.Control)

HitMode = False

End If

End Sub

Private Sub InvBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InvBtn.Click

If InvMode = False Then

InvBtn.BackColor = Color.Aqua

InvMode = True

Else

InvBtn.BackColor = Color.FromKnownColor(KnownColor.Control)

WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1530), 16256, 8, Nothing)

InvMode = False

End If

End Sub

Private Sub AutoAtkBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutoAtkBtn.Click

If AutoAtkMode = False Then

AutoAtkBtn.BackColor = Color.Aqua

AutoAtkMode = True

Else

AutoAtkBtn.BackColor = Color.FromKnownColor(KnownColor.Control)

WriteProcessMemory(processHandle, &H6D354481, 0, 4, Nothing)

AutoAtkMode = False

End If

End Sub

Private Sub ON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MobBtn.Click

If GetX() <> 0 And GetY() <> 0 Then

If MobMode = False Then

MobMode = True

MobBtn.BackColor = Color.Aqua

WriteSingle(processHandle, &H600144, GetX(), 4, Nothing)

WriteSingle(processHandle, &H60014A, GetY(), 4, Nothing)

WriteSingle(processHandle, &H600153, GetZ(), 4, Nothing)

For i = 0 To XyzLock.Length - 1

WriteByte(processHandle, &H60015D + i, XyzLock(i), 1, Nothing)

Next

For i = 0 To XyzAtk.Length - 1

WriteByte(processHandle, &H4A3F76 + i, XyzAtk(i), 1, Nothing)

Next

MobMode = False

End If

End If

End Sub

Private Sub unlock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unlock.Click

Dim Xyz() As Byte = {&H89, &H86, &HA8, &H3, &H0, &H0}

For i = 0 To Xyz.Length - 1

WriteByte(processHandle, &H4A3F76 + i, Xyz(i), 1, Nothing)

Next

MobBtn.BackColor = Color.FromKnownColor(KnownColor.Control)

MobMode = False

End Sub

Private Sub ExtBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExtBtn.Click

Me.Close()

End Sub

End Class

 

 

 

Module Module1

Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, 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 Declare Function ReadSingle Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean

Public Declare Function WriteSingle Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean

Public Declare Function WriteByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

Public Processo As Process() = Process.GetProcessesByName("metin2client.bin")

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer

Public XMax As Integer

Public processHandle As IntPtr

Public value As String

Public MovMode As Boolean = False

Public AtkMode As Boolean = False

Public rgMode As Boolean = False

Public ModeMode As Boolean = False

Public ComboMode As Boolean = False

Public ZoomMode As Boolean = False

Public HitMode As Boolean = False

Public InvMode As Boolean = False

Public AutoAtkMode As Boolean = False

Public MobMode As Boolean = False

Public AutoPicMode As Boolean = False

Public WallMode As Boolean = False

Public XyzLock() As Byte = {&HA1, &H44, &H1, &H60, &H0, &H89, &H86, &HA8, &H3, &H0, &H0, &H8B, &HD, &H4A, &H1, &H60, &H0, &H89, &H8E, &HAC, &H3, &H0, &H0, &H8B, &H15, &H53, &H1, &H60, &H0, &H89, &H96, &HB0, &H3, &H0, &H0, &H5F, &HE9, &H9, &H3E, &HEA, &HFF, &H90}

Public XyzAtk() As Byte = {&HE9, &HE2, &HC1, &H15, &H0, &H90}

Public Function ReturnAddy(ByVal Addybase As String, ByVal Off1 As Integer, ByVal Off2 As Integer) As String

Dim addy As String

ReadProcessMemory(processHandle, "&H" & Addybase, value, 4, Nothing)

addy = "&H" & Conversion.Hex(value + Off1)

ReadProcessMemory(processHandle, addy, value, 4, Nothing)

addy = "&H" & Conversion.Hex(value + Off2)

Return addy

End Function

Public Function GetX() As String

ReadSingle(processHandle, ReturnAddy("61c170", 4, 1412), value, 4, Nothing)

Return value

End Function

Public Function GetY() As String

ReadSingle(processHandle, ReturnAddy("61c170", 4, 1416), value, 4, Nothing)

Return value

End Function

Public Function GetZ() As String

ReadSingle(processHandle, ReturnAddy("61c170", 4, 1420), value, 4, Nothing)

Return value

End Function

Public Function wallHack()

Dim tmpString As String

tmpString = "90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90"

Dim NOPs1 = Split(tmpString, " ")

For i = 0 To UBound(NOPs1)

Dim tmpAddress = 4840928 + i

WriteProcessMemory(processHandle, tmpAddress, CByte("&H" & NOPs1(i)), 1, 0)

Next

tmpString = "90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90"

Dim NOPs2 = Split(tmpString, " ")

For i = 0 To UBound(NOPs2)

Dim tmpAddress = 4843585 + i

WriteProcessMemory(processHandle, tmpAddress, CByte("&H" & NOPs2(i)), 1, 0)

Next

tmpString = "90 90"

Dim NOPs3 = Split(tmpString, " ")

For i = 0 To UBound(NOPs3)

Dim tmpAddress = 4854360 + i

WriteProcessMemory(processHandle, tmpAddress, CByte("&H" & NOPs3(i)), 1, 0)

Next

Return True

End Function

End Module

 

 

Fix dla speed attack:

 

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

 

 

Fix dla speed move:

 

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

 

Mam te kody do VB ! Gdzie to wykorzystać proszę o pomoc ! (Najlepiej jakby było z screenami)

 

 

 

PROSZĘ

[Bogusuaf.]

Do jakiej gry, zacznijmy, i chodzi ci o speed hacka?

Ustaw injectowanie do procesu, a kod podepnij pod jakiś guzik.