Foro de elhacker.net

Bueno toy tratando de hacer funcionar este fomulario pero me falta algo para
que funcione en teoria este deberia ser para funcione un auto potion
de un juego online pero a la ahora de activarlo no funciona quisas me
falte complementar algo mas o quisas alguien conosca otra forma de
hacer un autopotion vb o otro lenguaje que me puede orientar

Duda para autopotion se saca :andress, pointer o value.... ?
 y donde se pondria como se seria su funcion

 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Private Sub Form_Load()
With TVida
 .Enabled = False
 .Interval = 200
End With
With TMana
.Enabled = False
.Interval = 200
End With
End Sub
Private Sub HP()
    If TVida.Enabled = False Then
        TVida.Interval = CInt(Val(Text1.Text))
        TVida.Enabled = True
        Command1.Caption = "Parar"
    Else
       TVida.Enabled = False
       Command1.Caption = "Empezar"
    End If
End Sub
 
Private Sub MP()
    If TMana.Enabled = False Then
        TMana.Interval = CInt(Val(Text2.Text))
        TMana.Enabled = True
        Command2.Caption = "Parar"
    Else
       TMana.Enabled = False
       Command2.Caption = "Empezar"
    End If
End Sub
Private Sub Command1_Click()
Call HP
End Sub
Private Sub Command2_Click()
Call MP
End Sub
Private Sub TVida_Timer()
SendKeys (vbKeyF7)
End Sub
Private Sub TMana_Timer()
SendKeys (vbKeyF8)
End Sub
Private Function GetKeyState(Key As Integer) As Boolean
    GetKeyState = CBool(GetAsyncKeyState(Key))
End Function
Private Sub HotKeys_Timer()
If GetKeyState(vbKey1) = True Then
Call Command1_Click
ElseIf GetKeyState(vbKey2) = True Then
Call Command2_Click
End If
End Sub