Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: POLLITOXD en 18 Mayo 2013, 20:51 PM

Título: Consulta sobre este formulario
Publicado por: POLLITOXD en 18 Mayo 2013, 20:51 PM
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


Código (vb) [Seleccionar]
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