你可以使用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->

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!