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