当前位置:编程学习 > VB >>

怎么用VB做关掉进程的软件?

要关掉指定进程的!
追问:加我QQ583186513,为我再说详细点
答案:关闭正在运行的程序          
你可以使用API函数FindWindow和PostMessage去寻找指定的窗口,并关闭它。
下面的例子教给你怎样找到并一个Caption为“Caluclator”的程序。

Dim   winHwnd   As   Long
Dim   RetVal   As   Long

winHwnd   =   FindWindow(vbNullString,   "Calculator ")

Debug.Print   winHwnd

If   winHwnd   <>   0   Then
 RetVal   =   PostMessage(winHwnd,   WM_CLOSE,   0&,   0&)
 If   RetVal   =   0   Then
  MsgBox   "置入消息错误! "
 End   If
Else
 MsgBox   "Calculator没有打开! "
End   If

为了让以上的代码工作,你必须在模块文件中什么以下API函数:

Declare   Function   FindWindow   Lib   "user32 "   Alias   _
  "FindWindowA "   (ByVal   lpClassName   As   String,   _
 ByVal   lpWindowName   As   String)   As   Long  

Declare   Function   PostMessage   Lib   "user32 "   Alias   _
  "PostMessageA "   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   _
 ByVal   wParam   As   Long,   lParam   As   Any)   As   Long  

Public   Const   WM_CLOSE   =   &H10 

上一个:VB中程序错误的捕获以及处理方法
下一个:VB.NET 如何调整图标的大小?

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,