Red de conocimiento informático - Material del sitio web - Cómo cerrar la ventana de WINDOWS usando programación VB

Cómo cerrar la ventana de WINDOWS usando programación VB

'1. Primero mire el título de la ventana de WINDOWS en una línea

'2 Agregue el título al código del programa a continuación.

Opción explícita

Función de declaración privada PostMessage Lib "User32" Alias ​​​​"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, H10 'Cerrar programa

Subcomando privado1_Click( )

Atenuar winHwnd mientras

Atenuar RetVal mientras

winHwnd = FindWindow(vbNullString, "Aquí está la ventana que desea Título de la ventana de WINDOWS cerrada ") 'Buscar ventana

Debug.Print winHwnd 'Para depurar, escriba winhnd en la ventana inmediata

Si winHwnd <> 0 Entonces '. Usar aquí Para determinar si la ventana se ha iniciado, si la ventana no existe, el valor es 0

RetVal = PostMessage(winHwnd, WM_CLOSE, 0&.amp;, 0&) 'Cerrar la ventana

Si RetVal = 0 Entonces 'Si la ventana no se inicia, aparecerá el siguiente mensaje

MsgBox "Error!"

Elt.

Else

MsgBox "¡La ventana de WINDOWS se cerró correctamente!"

End If

Else

MsgBox "¡La ventana de WINDOWS no se encontró!"

End If

End Sub

'Fin del código'