Cómo crear una función de ráfaga de botones en VB.net
Utilice la función API, el siguiente códigoPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Función de declaración privada SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongConst privada WS_EX_LAYERED = &H80000
Const privada GWL_EXSTYLE = (-20)
Const privada LWA_ALPHA = &H2
Const privada LWA_COLORKEY = &H1Función de declaración privada SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const privada HWND_TOPMosT = -1
Const privada SWP_NOMOVE = &H2
Const privada SWP_NosIZE = &H1
Función de declaración privada GetForegroundWindow Lib "user32" ( ) Mientras
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) As Long
Const WM_KEYDOWN = &H100
Const WM_KEYUP = &H101
Const WM_CHAR = &H102
Const VK_F1 = &H70
Sub SendF1 privado (hwnd) 'Llamar a esto El proceso puede enviar la tecla F1 al formulario de destino
Llamar a PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)
Llamar a PostMessage(h
wnd, WM_KEYUP, VK_F1, 0)
End SubAquí hay un ejemplo de envío de F1. Los códigos de clave virtual correspondientes a cada clave deben verificarse en línea
.