[Help] ProAim problems..

[TheHunter585]

Well, i tried to make something similar with opcodeexe ProAim but in VB.Net
Well the hack is teleporting the player but not in right position, can someone help me make it right?

Private Sub pro_Tick(sender As Object, e As EventArgs) Handles pro.Tick
        If Proaim.Checked = True Then
            Dim gpoint As Long
            Dim MyPosX As Long
            Dim MyPosY As Long
            Dim MyPosZ As Long
            Dim pmtrx1 As Long
            Dim ptarget As Long
            Dim pped As Long
            Dim pped2 As Long
            Dim var1 As Long
            Dim var2 As Long
            Dim var3 As Long
            Dim var4 As Long
            Dim var5 As Long
            Dim MyPosX2 As Single
            Dim MyPosY2 As Single
            Dim MyPosZ2 As Single
            Dim RotAngle As Single
            Dim Xwping As Single
            Dim Ywping As Single
            Dim Zwping As Single
            Try
                gpoint = ReadLong(proc, "&HB6F5F0", nsize:=4)
                If gpoint > 0 Then
                    pmtrx1 = gpoint + &H14
                    pmtrx1 = ReadLong(proc, pmtrx1, nsize:=4)
                    MyPosX = pmtrx1 + &H30
                    MyPosY = pmtrx1 + &H34
                    MyPosZ = pmtrx1 + &H38
                    MyPosX2 = ReadLong(proc, MyPosX, nsize:=4)
                    MyPosY2 = ReadLong(proc, MyPosY, nsize:=4)
                    MyPosZ2 = ReadLong(proc, MyPosZ, nsize:=4)
                    RotAngle = ReadLong(proc, gpoint + &H558, nsize:=4)
                    Xwping = MyPosX2 = Math.Cos(2 * (RotAngle + 1.48353))
                    Ywping = MyPosY2 + Math.Sin(2 * (RotAngle + 1.48353))
                    Zwping = MyPosZ2 + 0.2
                    ptarget = ReadLong(proc, "&HB6F5F0", nsize:=4)
                    pped = ptarget + &H79C
                    pped2 = ReadLong(proc, pped, nsize:=4)
                    If pped2 > 0 Then
                        var1 = pped2 + &H14
                        var2 = ReadLong(proc, var1, nsize:=4)
                        var3 = var2 + &H30
                        var4 = var2 + &H34
                        var5 = var2 + &H38
                        WriteFloat(proc, var3, Value:=Xwping, nsize:=4)
                        WriteFloat(proc, var4, Value:=Ywping, nsize:=4)
                        WriteFloat(proc, var5, Value:=Zwping, nsize:=4)
                    End If
                End If
            Catch ex As Exception

            End Try
        End If
    End Sub

Thank you.

 

[supahdupahnubah]

I have no clue at all what this ReadLong function exactly does (I mean the full code), but perhaps code is broke because you read RotAngle (gpoint + &H558) as a long, which is should be float
Btw this code may be extremely slow because of allocations in a loop also the try {} catch {} block

 

[TheHunter585]

I have no clue at all what this ReadLong function exactly does (I mean the full code), but perhaps code is broke because you read RotAngle (gpoint + &H558) as a long, which is should be float
Btw this code may be extremely slow because of allocations in a loop also the try {} catch {} block

Well if i type ReadFloat the cheat is not working at all, with ReadLong it's working but not good...

This is the source of the cheat, it's ahk and i tried to convert it to vb.net

the While GetKeyState ( "vk01", "P") 
{ 
Targetped: = gta.read (0xB6F5F0, " UInt ", 0x79c) 
if (Targetped = 0) 
{ 
} 
else 
{ 
sleep 1 
MyPosX: = gta.read (0xB6F5F0," float ", 0x14, 0x30) 
MyPosY: = gta.read (0xB6F5F0," float ", 0x14, 0x34 ) 
MyPosZ: = gta.read (0xB6F5F0, "float", 0x14, 0x38) 
RotAngle: = gta.read (0xB6F5F0, "float", 0x558) 
Xwping: MyPosX = cos + 2 * (RotAngle + 1.48353) 
Ywping: = MyPosY + sin 2 * (RotAngle + 1.48353) 
Zwping: = + 0.2 MyPosZ 
EnemyXpos: = gta.write (0xB6F5F0, Xwping, "float", 0x79c, 0x14, 0x30) 
EnemyYpos: = gta.write (0xB6F5F0, Ywping, "float" , 0x79c, 0x14, 0x34) 
EnemyZpos: = gta.write (0xB6F5F0, Zwping, "float", 0x79c, 0x14, 0x38) 
} 
} 
return

 

[supahdupahnubah]

Maybe cuz you're defining MyPosX\Y\Z RotAngle as a long and trying to read it as a float so it conflict?
Try define it as a float and use ReadFloat() then

 

[TheHunter585]

Maybe cuz you're defining MyPosX\Y\Z RotAngle as a long and trying to read it as a float so it conflict?
Try define it as a float and use ReadFloat() then

Not working.. Maybe i do the math wrong, could someone look at my math and at the source math and tell if something wrong?