Problemas con evento keybd y sendkeys en VB. Quiero completar una función que permite que el mouse se mueva automáticamente a un cuadro de texto fuera de VB y haga clic...
Función de declaración privada GetFocus Lib "user32" () siempre que sea
Función de declaración privada PostMessage& Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long , ByVal wParam As Long, lParam As Any)
Función de declaración privada AttachThreadInput Lib "user32" (ByVal idAttach As Long, ByVal idAttachTo As Long, ByVal fAttach As Long) As Long
Función de declaración privada GetForegroundWindow Lib "user32" () mientras
Función de declaración privada GetCurrentThreadId Lib "kernel32" () mientras
Función de declaración privada GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Privado WithEvents Timer1 As Timer
Private Sub Form_Load()
Establecer Timer1 = Me.Controls.Add("VB .Timer ", "Timer")
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Sub privado Timer1_Timer( )
Dim CurrentID As Long
CurrentID = GetWindowThreadProcessId(GetForegroundWindow, ByVal 0&)
AttachThreadInput GetCurrentThreadId, CurrentID, True
PostMessage GetFocus, &H102, vbKey1, ByVal 0&
AttachThreadInput GetCurrentThreadId, CurrentID, False
End Sub