怎样关闭一个正在运行的程序
敬业的IT人
互联网
佚名
2008-4-17 16:22:10
你可以使用API函数FindWindow和PostMessage去寻找指定的窗口，并关闭它。下面的例子教给你怎样找到并关掉一个Caption为“Caluclator”的程序。
DimwinHwndAsLong
DimRetValAsLong
winHwnd=FindWindow(vbNullString,"Calculator")
Debug.PrintwinHwnd
IfwinHwnd<>0Then
RetVal=PostMessage(winHwnd,WM_CLOSE,0&,0&)
IfRetVal=0Then
MsgBox"置入消息错误！"
EndIf
Else
MsgBox"Calculator没有打开！"
EndIf
为了让以上的代码工作，你必须在模块文件中什么以下API函数：
DeclareFunctionFindWindowLib"user32"Alias_
"FindWindowA"(ByVallpClassNameAsString,_
ByVallpWindowNameAsString)AsLong
DeclareFunctionPostMessageLib"user32"Alias_
"PostMessageA"(ByValhwndAsLong,ByValwMsgAsLong,_
ByValwParamAsLong,lParamAsAny)AsLong
PublicConstWM_CLOSE=&H10
- 最新文章
- VB编程俱乐部问答[04-17]
- 在VB中模拟实现邮件传输[04-17]
- 复本操作的对象、属性和方法(3)--网络数据库的复制和同步（..[04-17]
- 用MDB文件做admin888库[04-17]
- VB的显示/隐藏Start按钮[04-17]
- 用VisualBasic轻松地设计Browser及Ftp程序[04-17]
- 相关文章
