Cómo usar la programación VB para cerrar la ventana del juego

'Agregue dos controles, texto1 y comando1, en el formulario. Texto1 se usa para ingresar el título de la ventana que se cerrará y comando1 se usa para ejecutar el cierre.

'Luego copie el código y ejecútelo para lograr las funciones anteriores.

'====Parte del código del formulario====

Opción explícita

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

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 siempre, ByVal bInheritHandle mientras, ByVal dwProcessId mientras)

Función de declaración privada TerminateProcess Lib "kernel32" (ByVal hProcess mientras, ByVal uExitCode mientras)

Private Const PROCESS_TERMINATE = &H1

'' se utiliza para finalizar el proceso externo, hCloseWnd es el HWND de la ventana principal del programa a finalizar

Función pública TernamiteProcessByHWND(ByVal hCloseWnd As Long) como booleano

Atenuar hProcessID mientras

Atenuar hProcess mientras

En caso de error, vaya a PROC_EXIT

Si hCloseWnd = 0 Entonces vaya a PROC_EXIT

Si GetWindowThreadProcessId(hCloseWnd, hProcessID) = 0 Entonces vaya a PROC_EXIT

hProcess = OpenProcess(PROCESS_TERMINATE, False, hProcessID)

Si hProcess = 0 Entonces vaya a PROC_EXIT

Si TerminateProcess(hProcess, 0&) = 0 Entonces vaya a PROC_EXIT

TernamiteProcessByHWND = True

PROC_EXIT:

Si Número de error <> 0 Entonces

Depurar.Imprimir descripción de error

Borrar error

Finalizar si

Función final

Subcomando privado1_Click()

Atenuar Wnd siempre

Wnd = FindWindow(vbN

ullString, Trim(Text1.Text))

Si Wnd <> 0, entonces TernamiteProcessByHWND Wnd

Función final

Sub privada Form_Load()

Texto1.Texto = Yo.Caption

Fin Sub