Ola estou tentado comersar a fazer hacks ?

[abaixoPlayStation2 0]

Ola estou tentado comersar a fazer hacks

ja tenho o

Microsoft Visual Basic 2010 Express

 

Mais nao tenho os codigos para colocar no hack

Tipo do

aimbot

 

wall

 

auto shot

 

ne weapom

MAIS TEM COMO OS CODIGOS SER DO Microsoft Visual Basic 2010 Express

 

poderinah mi ajduar e onde coloco os codigos

 

DOU AGRADECER PRA TUDO MUNDO QUE MI AJDUAR:star:

[JayminhoxD 0]

acho que este n é o topico certo para perguntas cara

N tenho Certeza

[Newt Scamander 215]

Tópico Movido

Motivo: Área Errada

Antes de criar um tópico leia a descrição da área onde está postando. Tópicos em área errada desorganizam o fórum e deixam a área suja, dificultando a procura de conteúdos de qualidade.

 

 

Atenciosamente, Equipe Web Cheats!

 

 

Eu te recomenda estudar MUITO antes de tentar começar a fazer algo de tamanha complexidade .

 

1° Normal , começa com códigos prontos , mas é necessário saber criar seus próprios .

2° Existem linguagens que são mais propicias a criação de hacks . Procure-as e estude .

 

Não estudo respondendo sua dúvida ,

siga com conselho .

[' Business 60]

Você tem que procurar seus hackers, eu não me lembro como faz isso pro visual basic, mas eu tenho o modulo duddy aqui.

 

'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

 

[abaixoPlayStation2 0]

BOM COMO FALEI NAO SEI MUITO OQUE E modulo duddy

[' Business 60]

BOM COMO FALEI NAO SEI MUITO OQUE E modulo duddy

 

É a base para fazer seus hackers no visual basic, só com isso os hackers irão funcionar.

[S☼L 1]

Recomendo que você estude um pouco de programação antes de começar

[juniorpkj 0]

começei a fazer faculdade de ciência da computaçao e espera que daqui a algum tempo eu ja esteja postanfdo meus proprio hacks , mais sei tambem que pra isso tenho que estuda muito!!!!

[Stanl 0]

Alguem me passa as P.O do Wall e Fly Hack ?

 

Post Punido pela Moderação!

[Madeon 15]

Recomento você fazer um curso de programação.

Começar assim do nada e meio complicado ainda mais sem ajuda, ache um curso online ou veja algumas vídeo aulas que logo logo você vai estar fazendo ótimos Trainers

É apenas uma dica :D