CheatVIP
Seja Bem-Vindo a CheatVIP registre-se para baixar nosso Loader Free.Vagas de ADM's, fale apenas com o Mr.Progammer ou o Mr_Cheat a CheatVIP agradece a sua visita.
CheatVIP

CheatVIP


Você não está conectado. Conecte-se ou registre-se

[VB] Base Aimbot Simples

Ir em baixo  Mensagem [Página 1 de 1]

1 [VB] Base Aimbot Simples em Qua Jan 21, 2015 3:02 am

MR_5Day

avatar
Administrador/Programador
Administrador/Programador
Imports System.Math

Public Class Form1

Dim PosX, PosY, PosZ, Alvo1X, Alvo1Y, Alvo1Z, DisX, DisY, DisZ, Distancia1, AnguloX, AnguloY As Single



Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
DisX = Alvo1X - PosX
DisY = Alvo1Y - PosY
DisZ = Alvo1Z - PosZ

WritePointerFloat("processo do jogo FPS", "Pointer", AnguloX, "{&H OFFSET's}")
WritePointerFloat("processo do jogo FPS", "Pointer", AnguloY, "{&H OFFSET's}")
End Sub

Private Sub Posições_Tick(sender As Object, e As EventArgs) Handles Posições.Tick
PosX = ReadPointerFloat("processo do jogo FPS", "Pointer", "{&H OFFSET's}")
PosY = ReadPointerFloat("processo do jogo FPS", "Pointer", "{&H OFFSET's}")
PosZ = ReadPointerFloat("processo do jogo FPS", "Pointer", "{&H OFFSET's}")

Alvo1X = ReadPointerFloat("processo do jogo FPS", "Pointer", "{&H OFFSET's}")
Alvo1Y = ReadPointerFloat("processo do jogo FPS", "Pointer", "{&H OFFSET's}")
Alvo1Z = ReadPointerFloat("processo do jogo FPS", "Pointer", "{&H OFFSET's}")
End Sub
Private Sub INIMIGO1()

Distancia1 = Sqrt(PosX ^ 2 + PosY ^ 2)

AnguloX = ((Atan(DisY / DisX)) * PI) / 180
AnguloY = ((Atan(DisZ / Distancia1)) * PI) / 180


End Sub


End Class

Ver perfil do usuário

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum