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

解决方案 »

  1.   

    1。使用SendMessagePrivate Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Longhwnd 为需要关闭的窗口程序的窗口句柄;发送的消息可以用两种选择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。使用CloseWindowPrivate Declare Function CloseWindow Lib user32 Alias CloseWindow (ByVal hwnd As Long) As Longhwnd为想要关闭窗口的句柄。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函数就会不起作用。