在VB中使用API关闭窗口.pdf

在VB中使⽤API关闭窗⼝

在进⾏VB编程过程中，有时需要通过程序控制终⽌某些程序。在实践中可以使⽤⼀下⼀些⽅法：

1。使⽤SendMessage

PrivateDeclareFunctionSendMessageLibuser32AliasSendMessageA(ByValhwndAsLong,ByValwMsgAsLong,

ByValwParamAsLong,lParamAsAny)AsLong

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

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

CS_CLOSE,lParam为0。

2。使⽤TerminateProcess

PrivateDeclareFunctionTerminateProcessLibkernel32AliasTerminateProcess(ByValhProcessAsLong,ByVal

uExitCodeAsLong)AsLong

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

uExitCode进程的⼀个退出代码

3。使⽤CloseWindow

PrivateDeclareFunctionCloseWindowLibuser32AliasCloseWindow(ByValhwndAsLong)AsLong

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

4。如果要关闭所有的窗⼝可以使⽤BroadcastSystemMessage

PrivateDeclareFunctionBroadcastSystemMessageLibuser32AliasBroadcastSystemMessage(ByValdwAsLong,pdw

AsLong,ByValunAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong

dw为下述常数的⼀个或多个；

BSF_FLUSHDISK

每次处理完⼀条消息后，都对磁盘进⾏刷新（将未存盘的数据存下来

BSF_FORCEIFHUNG

如⽬标处于挂起状态，则在设定的超时后到期返回

BSF_IGNORECURRENTTASK

发送任务不接收消息

BSF_LPARAMBUFFER

pdw为下述常数的⼀个或多个；

BSF_ALLCOMPONENTS

消息进⼊能够接收消息的每⼀个系统组件

BSF_APPLICATIONS

消息到达应⽤程序

BSF_INSTALLABLEDRIVERS

消息到达可安装的驱动程序

BSF_NETDRIVERS

消息到达驱动程序

BSF_VXDS

消息到达系统设备驱动程序

un为消息编号；

消息和使⽤SendMessage时相同。

5。使⽤ExitEx关闭所有程序

PrivateDeclareFunctionExitExLibuser32AliasExitEx(ByValuFlagsAsLong,ByValdwReservedAsLong)AsLon

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

dwReserved为0

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

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

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