elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Top 20 herramientas Hacking más populares de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problema: apretar tecla al hacer click
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problema: apretar tecla al hacer click  (Leído 1,149 veces)
Demereth

Desconectado Desconectado

Mensajes: 38


Ver Perfil
Problema: apretar tecla al hacer click
« en: 24 Agosto 2013, 06:31 am »

Hola, quiero que en un programa cuando haga click, se aprete, por ejemplo la tecla 1 del numpad, pero no puedo lograrlo ya que cuando lo pruebo al hacer click no pasa nada.
El programa nomas lleva un timer
el codigo es este:

Código:
Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
 
  Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
'Declaración del Api keybd_event para la presión de tecla
Private Declare Function GetAsyncKeyState _
    Lib "user32" ( _
        ByVal vKey As Long) As Integer
Private Const LEFT_DOWN = &H2
Private Const LEFT_UP = &H4
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
 
 
Sub Pulsar_Tecla(Tecla As Long)
 
    Call keybd_event(Tecla, 0, 0, 0)
 
    Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
 
End Sub
 



Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
 Dim i As Integer
     
    For i = 0 To 255
        If GetAsyncKeyState(1) = -32767 Then Call Pulsar_Tecla(vbKeyNumpad1)
         Next
End Sub


End Sub

Y cuando en vez de click, le pongo cualquier otra key, por ejemplo la A (65) el programa funciona bien, el problema es el click izquierdo.
Gracias


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines