pbbr (point blank brasil) Códigos para VB

[1up.4fk 0]

Eae galera da WC, resolvi passa aquelas pointers e offset para VB.:aplauso:

Aqui está elas.↓

 

Macro Hack - Timer

WritePointerString("PointBlank", &H00A9C84C, 'Sua textbox aqui'.text, &H3F6)

 

Nick Hack Slot - Timer

WritePointerString("PointBlank", &H00A99408, ' Sua textbox aqui.text ', &H48CC)

 

Nick Hack Informações - Timer

WritePointerString("PointBlank", &H00A99408, 'Sua textbox aqui.text' &H2DC)

 

Clã Nick - Timer

WritePointerString("PointBlank", &H00A99408, 'Sua textbox aqui.text' &H324)

 

Pistola Metralhadora - Timer

WritePointerByte("PointBlank", &H00A993D0, 'Valor aqui', &H20C)

 

Abaixar Minutos da Sala - Timer

WritePointerByte("PointBlank", 00A99408, 'Valor aqui', &H4CB7B)

 

Sudden Death - Timer

WritePointerByte("PointBlank", &H00A99408, ' Valor aqui', &H4CB52)

 

Granade ON - Check Box ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB57)

 

Camera Livre - Check Box ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Defence em Modo Pistola - CheckBox ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Modo Soco - Timer

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Modo Faca - Timer

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

3ª Pessoa - CheckBox ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Visualizar Timer Adversario - CheckBox ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Ver HP do inimigo -CheckBox ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Desativar Equilibrio de Time - CheckBox ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB81)

 

Ghost Exit - Button

WritePointerInteger("PointBlank", &H00A993E0, 'Valor aqui', &H148, &H11C, &H1E0)

 

Hack de Convite - Timer

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H6D8, &H148, &H148, &H144, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H6E8, &H148, &H148, &H128, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H6F8, &H148, &H148, &H144, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H708, &H148, &H148, &H144, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H708, &H148, &H148, &H144, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H728, &H148, &H148, &H128, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H738, &H148, &H148, &H144, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H748, &H148, &H148, &H144, &H4CC)

 

 

[-Denyver 0]

Amigo vc esuqeceu de postar o modulo ok ta ai

 

 

'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

 

[chuduin123 0]

o que é isso gente me ajudem pf eu preciso de um hack

[1up.4fk 0]

ctr C + ctrl V ?? http://www.webcheats.com.br/forum/programacao-duvidas-ajuda/1932170-gente-qual-o-novo-modulo-usado-no-visual-basic.html

 

e isso ai é do GTA Sandreas e não pro Point Blank :s

 

o que é isso gente me ajudem pf eu preciso de um hack

 

Esse aqui ta pegando de boas!! e da um thanks por favor ! http://www.webcheats.com.br/forum/point-blank-cheats/1974065-chams-ct-tr-funcional-windows-64bits.html#post7811845

[chuduin123 0]

ctr C + ctrl V ?? http://www.webcheats.com.br/forum/programacao-duvidas-ajuda/1932170-gente-qual-o-novo-modulo-usado-no-visual-basic.html

 

e isso ai é do GTA Sandreas e não pro Point Blank :s

 

 

 

Esse aqui ta pegando de boas!! e da um thanks por favor ! http://www.webcheats.com.br/forum/point-blank-cheats/1974065-chams-ct-tr-funcional-windows-64bits.html#post7811845

32 bits aki

[blackmow 0]

Muito Bom levo THX...Me tiro uma duvida q eu não tava consiguindo passa meus códigos pro VB ai olhei nesses códigos seu e conseguii ^^" :Aplauso:

[regis-killer 1]

vlw ai amigo, agora eu posso fazer meus trainers para voces ^^

[Zer0Gr4u 0]

Parceiro ... Oq põe no "Valor Aqui" ???

Eae galera da WC, resolvi passa aquelas pointers e offset para VB.:aplauso:

Aqui está elas.↓

 

Macro Hack - Timer

WritePointerString("PointBlank", &H00A9C84C, 'Sua textbox aqui'.text, &H3F6)

 

Nick Hack Slot - Timer

WritePointerString("PointBlank", &H00A99408, ' Sua textbox aqui.text ', &H48CC)

 

Nick Hack Informações - Timer

WritePointerString("PointBlank", &H00A99408, 'Sua textbox aqui.text' &H2DC)

 

Clã Nick - Timer

WritePointerString("PointBlank", &H00A99408, 'Sua textbox aqui.text' &H324)

 

Pistola Metralhadora - Timer

WritePointerByte("PointBlank", &H00A993D0, 'Valor aqui', &H20C)

 

Abaixar Minutos da Sala - Timer

WritePointerByte("PointBlank", 00A99408, 'Valor aqui', &H4CB7B)

 

Sudden Death - Timer

WritePointerByte("PointBlank", &H00A99408, ' Valor aqui', &H4CB52)

 

Granade ON - Check Box ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB57)

 

Camera Livre - Check Box ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Defence em Modo Pistola - CheckBox ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Modo Soco - Timer

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Modo Faca - Timer

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

3ª Pessoa - CheckBox ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Visualizar Timer Adversario - CheckBox ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Ver HP do inimigo -CheckBox ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB80)

 

Desativar Equilibrio de Time - CheckBox ou Button

WritePointerByte("PointBlank", &H00A99408, 'Valor aqui', &H4CB81)

 

Ghost Exit - Button

WritePointerInteger("PointBlank", &H00A993E0, 'Valor aqui', &H148, &H11C, &H1E0)

 

Hack de Convite - Timer

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H6D8, &H148, &H148, &H144, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H6E8, &H148, &H148, &H128, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H6F8, &H148, &H148, &H144, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H708, &H148, &H148, &H144, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H708, &H148, &H148, &H144, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H728, &H148, &H148, &H128, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H738, &H148, &H148, &H144, &H4CC)

WritePointerInteger("PointBlank", &H00A9C378, 'Valor aqui', &H748, &H148, &H148, &H144, &H4CC)

 

 

[Swals 0]

Parabens amigo mt bem me ajudara a criar novos trainers

[gafiler 0]

Caro amigo essas mensagens nao sao desta area de cheats,seria da area point blank tutoriais!

[maatheus' 6]

movido

[MiNaToSsS 0]

Quais Os Valosres

[meupaldeoclus 0]

ta ai para v6 o modulo usado hj endia.

'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

 

 

 

 

:ufa::ufa::ufa::ufa: brinks :lol::lol::lol:

[hp777 0]

Muito bom,me ajudo muito !

recebeu meu thanks!

[Down™ 0]

Me ajuda, eu não estou conseguindo passar esses códigos para meu VB, se me ajudar eu lhe agradeço! Abraços.

[' Danthon 0]

Ótimo, talvez irei começar a criar meus Trainers também.