Red de conocimiento informático - Computadora portátil - Enviar el código fuente de la combinación de teclas ALT en fondo VB, 250 puntos

Enviar el código fuente de la combinación de teclas ALT en fondo VB, 250 puntos

'Primero, debe obtener el Hwnd de la ventana de destino, luego en dos pasos:

'Primer paso, cree un módulo Module1.bas, copie el siguiente código en el módulo y guárdelo

'===Module1.bas code====

Opción explícita

Función de declaración privada SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Función de declaración privada SendMessage Lib "user32" Alias ​​​​"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Declaración privada Sub Sleep Lib "kernel32" (ByVal dwMillow As Long) (ByVal dwMillisegundos As Long)

Declaración privada Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const privada WM_SETFOCUS = &H7

Const privada KEYEVENTF_EXTENDEDKEY = &H1

Const privada KEYEVENTF_KEYUP = &H2

Public Sub KeyDown(ByVal vKey As Long) 'Usa keybd_event para simular presionar el teclado

keybd_event vKey, 0, KEYEVENTF_EXTENDEDKEY, 0

End Sub

Public Sub KeyUp( ByVal vKey As KeyCodeConstants) 'Utilice keybd_event para simular soltar el teclado

keybd_event vKey, 0, KEYEVENTF_EXTENDEDKEY o KEYEVENTF_KEYUP, 0

End Sub

Público Función SendKeyToWnd(MainWnd As Long, vbkey, Shift) Como booleano

SetForegroundWindow MainWnd 'Establece la ventana de destino en primer plano

SendMessage MainWnd, WM_SETFOCUS, 0&, 0&Botón de selección

Si Shift Entonces KeyDown Shift 'Tecla compuesta

KeyDown vbkey 'Tecla normal

Dormir 100

Si Shift Entonces KeyDown Shift 'Tecla compuesta <

/p>