Bueno, nadie me respondo en el post de el autoclick, pero lo logré hacer. Lo unico que me falta es que cuando yo aprete F1 se active, y cuando aprete F2 se desactive
Solo eso, porfavor! :-\
Modulo:
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Timer intervalo 1:
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF1) = -32767 Then
'aca pones lo que se tiene que activar por ejemplo un timer
TimerXXX.enabled = true
End If
If GetAsyncKeyState(vbKeyF2) = -32767 Then
'aca pones lo que se tiene que desactivar por ejemplo un timer
TimerXXX.enabled = false
End If
End Sub
Nose lo que queres hacer pero supongo que te servira!
Aver, ahi te va el codigo:
Public Class Fondo
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub MyMethod()
Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position) 'Draws the point, there my cusor is
mouse_event(&H2, 0, 0, 0, 1) 'Cursor will go down (like a click)
mouse_event(&H4, 0, 0, 0, 1) 'Cursor goes up again End Sub
End Sub
Private Sub Copyright_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Copyright.Click
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contacto.Click
End Sub
Private Sub BotónActivar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotónActivar.Click
Timer1.Start()
End Sub
Private Sub Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click
End
End Sub
Private Sub BotónDesactivar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotónDesactivar.Click
Timer1.Stop()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text + 1
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MyMethod()
End Sub
End Class
Todo funciona a la perfeccion, mira, quiero que donde sale BotonActivar y BotonDesactivar, aprete f1 y f2 para activar y desactivar
Ok, mira cuando pongo esto;
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF1) = -32767 Then
'Timer1.Start()
Timer1.enabled = True
End If
If GetAsyncKeyState(vbKeyF2) = -32767 Then
'Timer1.Stop()
Timer1.enabled = False
End If
End Sub
Me sale abajo; error;
La instruccion no es valida en un espacio de nombres.
Eso no parece visual basic :S
Si es Visual Basic 2008 Express
Ayudame :l Porfavor
@.DarkStyle
http://goo.gl/IWXBz !!!!!!!!
DoEvents! :P
.DarkStyle investiga sobre hotkeys
http://foro.elhacker.net/net/detectar_tecla_presionada_en_el_form_resuelto-t302669.0.html (http://foro.elhacker.net/net/detectar_tecla_presionada_en_el_form_resuelto-t302669.0.html)