Cómo cerrar la ventana de WINDOWS usando programación VB
'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 p>
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 p>
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'