Ir para conteúdo
Faça parte da equipe! (2024) ×

Modulo Duddy VB

' Business

Por ,
em Point Blank - Codding/Source

 Compartilhar

Posts Recomendados

Esforçado

' Business 59

Postado
Denunciar
Postado

Primeiramente quero deixar claro que não vou ensinar a usarem..

Aqui é a área de onde fica os códigos para os programadores ou para os

novatos que estão aprendendo e querem saber a base do jogo, então

peço que não fiquem comentando nos tópicos como usa. Isso inclui meus outros posts.

 

'VB.NET Module

'Author : Cless

'How to use Read/Write Pointer

'Example Read

' Me.Text = ReadPointerInteger(Game exe name, &HPointer,&HOffset).ToString()

'

' Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540).ToString()

' Or

' Me.Text = ReadPointerInteger("gta_sa", &HB71A38,&H540,&H544).ToString()

'Example Write

' WritePointerInteger(Game exe name,&HPointer,Value,&HOffset)

'

' WritePointerInteger("gta_sa",&HB71A38,1000,&H540)

' Or

' WritePointerInteger("gta_sa",&HB71A38,1000,&H540, &H544)

 

Module Trainer

Private Declare Function ReadMemoryByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte

Private Declare Function ReadMemoryInteger Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer

Private Declare Function ReadMemoryFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Single

Private Declare Function ReadMemoryDouble Lib "kernel32" Alias "ReadProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 8, Optional ByRef Bytes As Integer = 0) As Double

 

Private Declare Function WriteMemoryByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Byte, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Byte

Private Declare Function WriteMemoryInteger Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Integer, Optional ByVal Size As Integer = 4, Optional ByRef Bytes As Integer = 0) As Integer

Private Declare Function WriteMemoryFloat Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Single, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Single

Private Declare Function WriteMemoryDouble Lib "kernel32" Alias "WriteProcessMemory" (ByVal Handle As Integer, ByVal Address As Integer, ByRef Value As Double, Optional ByVal Size As Integer = 2, Optional ByRef Bytes As Integer = 0) As Double

 

Public Function ReadByte(ByVal EXENAME As String, ByVal Address As Integer) As Byte

Dim Value As Byte

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryByte(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadInteger(ByVal EXENAME As String, ByVal Address As Integer) As Integer

Dim Value As Integer

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryInteger(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadFloat(ByVal EXENAME As String, ByVal Address As Integer) As Single

Dim Value As Single

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryFloat(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadDouble(ByVal EXENAME As String, ByVal Address As Integer) As Double

Dim Value As Double

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

ReadMemoryByte(Handle, Address, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Byte

Dim Value As Byte

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryByte(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Integer

Dim Value As Integer

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryInteger(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Single

Dim Value As Single

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryFloat(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Function ReadPointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal ParamArray Offset As Integer()) As Double

Dim Value As Double

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

ReadMemoryDouble(Handle, Pointer, Value)

End If

End If

Return Value

End Function

 

Public Sub WriteByte(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Byte)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryByte(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteInteger(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Integer)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryInteger(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteFloat(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Single)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryFloat(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WriteDouble(ByVal EXENAME As String, ByVal Address As Integer, ByVal Value As Double)

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

WriteMemoryDouble(Handle, Address, Value)

End If

End If

End Sub

 

Public Sub WritePointerByte(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Byte, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryByte(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerInteger(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Integer, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryInteger(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryFloat(Handle, Pointer, Value)

End If

End If

End Sub

 

Public Sub WritePointerDouble(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Double, ByVal ParamArray Offset As Integer())

If Process.GetProcessesByName(EXENAME).Length <> 0 Then

Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle

If Handle <> 0 Then

For Each I As Integer In Offset

ReadMemoryInteger(Handle, Pointer, Pointer)

Pointer += I

Next

WriteMemoryDouble(Handle, Pointer, Value)

End If

End If

End Sub

End Module

 

E sim, tem que atualizar, ela não é a atual, mas é fácil atualizar :p.

Virei estagiário só com 10k de posts, virei browser zone, depois games zone, fui convidado pra global, mas recusei e quitei da staff, sai do fórum pois não me alegrava mais e agora de vez em quando volto aqui para dar um oi.

ﾠﾠTroféus e Medalhasﾠﾠ
Link para o comentário
Compartilhar em outros sites
  • 2 meses depois...
  • 4 semanas atrás...
Este tópico está impedido de receber novos posts.
 Compartilhar
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.

 Accept Cookies  Reject Cookies