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
Código
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