vb登陆窗口代码:VB 关闭已知标题窗口代码来源: 发布时间:星期四, 2008年9月25日 浏览:374次 评论:0
使用API函数。先通过FindWindow得到窗口的句柄,然后对窗口发送关闭消息。 参考:[http://www.CrazyCoder.cn/]PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
PrivateDeclareFunctionPostMessageLib"user32"Alias"PostMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong ConstWM_CLOSE=&H10 PrivateSubCommand1_Click() Dimhwnd,resultAsLong hwnd=FindWindow(vbNullString,"迅雷5")'查找窗体标题 Ifhwnd=0Then MsgBox"未找到窗口" Else result=PostMessage(hwnd,WM_CLOSE,0&,0&) Ifresult=0Then MsgBox"关闭窗口失败" Else MsgBox"关闭OK" EndIf EndIf EndSub 0
相关文章读者评论发表评论 |