在VB中使用API关闭窗口

发表于:2007-07-14来源:作者:点击数: 标签:
在进行 VB 编程过程中,有时需要通过程序控制终止某些程序。在实践中可以使用一下一些方法: 1。使用SendMessage Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lPa
在进行VB编程过程中,有时需要通过程序控制终止某些程序。在实践中可以使用一下一些方法:

    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函数就会不起作用。

原文转自:http://www.ltesting.net