对于打开的窗口http://community.csdn.net/expert/forum.asp，如何在VB6中写语句自动关闭这个窗口？

[lmlm4]

对于打开的窗口http://community.csdn.net/expert/forum.asp，如何在VB6中写语句自动关闭这个窗口？

[leongwong]

1。使用SendMessage

Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

hwnd 为需要关闭的窗口程序的窗口句柄；

发送的消息可以用两种选择1，wMsg为WM_CLOSE，wParam,lParam为0；2，wMsg为WM_SYSCOMMAND,wParam为CS_CLOSE,lParam为0。

2。使用TerminateProcess

Private Declare Function TerminateProcess Lib kernel32 Alias TerminateProcess (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

hProcess 为指定要中断的一个进程的句柄 ；

uExitCode 进程的一个退出代码

3。使用CloseWindow

Private Declare Function CloseWindow Lib user32 Alias CloseWindow (ByVal hwnd As Long) As Long

hwnd为想要关闭窗口的句柄。

4。如果要关闭所有的窗口可以使用BroadcastSystemMessage

Private Declare Function BroadcastSystemMessage Lib user32 Alias BroadcastSystemMessage (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

dw 为下述常数的一个或多个；
BSF_FLUSHDISK
每次处理完一条消息后，都对磁盘进行刷新（将未存盘的数据存下来
BSF_FORCEIFHUNG
如目标处于挂起状态，则在设定的超时后到期返回
BSF_IGNORECURRENTTASK
发送任务不接收消息
BSF_LPARAMBUFFER

pdw 为下述常数的一个或多个；
BSF_ALLCOMPONENTS
消息进入能够接收消息的每一个系统组件
BSF_APPLICATIONS
消息到达应用程序
BSF_INSTALLABLEDRIVERS
消息到达可安装的驱动程序
BSF_NETDRIVERS
消息到达网络驱动程序
BSF_VXDS
消息到达系统设备驱动程序

un 为消息编号；

消息和使用SendMessage时相同。

5。使用ExitWindowsEx关闭所有程序

Private Declare Function ExitWindowsEx Lib user32 Alias ExitWindowsEx (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

将uFlags 设置为EWX_FORCE强迫中止没有响应的进程。

dwReserved 为0

注意！由于以下原因导致不能关闭程序。

1。在NT/2000/XP的系统中，进程句柄需要有PROCESS_TERMINATE的访问权限才能被杀掉。

2。如果要关闭的进程正处于Kernal-Mode，那么TerminateProcess函数就会不起作用。