Acerca de la definición de teclas de acceso rápido globales en VB

Agregue el control Timer1(Interval=100) al formulario y luego copie el siguiente código para implementar la función anterior:

Función de declaración privada GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'Added code

Función de declaración privada FindWindow Lib "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName como cadena, ByVal lpWindowName como cadena) siempre y cuando

Función de declaración privada GetWindowThreadProcessId Lib "user32" (ByVal hwnd Mientras, lpdwProcessId Mientras) Mientras

Función de declaración privada OpenProcess Lib "kernel32" (ByVal dwDesiredAccess Mientras, ByVal bInheritHandle Mientras, ByVal dwProcessId Mientras) Mientras

Función de declaración privada WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As ByVal hProcess As Long, lpBuffer As Any, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Atenuar DRHwnd As Long

Atenuar DRPid As Long

Atenuar DRProcessHandle As Long

Privado Const PROCESS_ALL_ACCESS = &H1F0FFF

Privado Sub Start_Click()

DRHwnd = FindWindow("ABCD_CLASS", "abcd")

GetWindowThreadProcessId DRHwnd, DRPid

DRProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, DRPid)

Si DRProcessHandle = 0 Entonces

MsgBox "Error de inicio", "Versión S"

Else

MsgBox "Auxiliary"

Timer1.Enabled = True

Fin si

Fin Sub

Subdirección privada Write_Click()

WriteProcessMemory DRProcessHandle, &H5E23E8, &H0, 1, 0&

WriteProcessMem

ory DRProcessHandle, &.H5EE1CEC, &H1, 1, 0&

End Sub

Private Sub Timer1_Timer() 'Código agregado

Si GetAsyncKeyState(vbKeyF2) Entonces dirección Write_Click

Fin Sub