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