VB 关闭指定标题窗口
2008-12-12 13:06
267 查看
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
Private Sub Command1_Click()
Dim hwnd, result As Long
hwnd = FindWindow(vbNullString, "新建 文本文档.txt - 记事本") '获得指定窗体标题的窗体的句柄
If hwnd = 0 Then
MsgBox "未找到窗口"
Else
result = PostMessage(hwnd, WM_CLOSE, 0&, 0&) '向目标程序发送消息
If result = 0 Then
MsgBox "关闭窗口失败!"
Else
MsgBox "成功关闭窗口!"
End If
End If
End Sub
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
Private Sub Command1_Click()
Dim hwnd, result As Long
hwnd = FindWindow(vbNullString, "新建 文本文档.txt - 记事本") '获得指定窗体标题的窗体的句柄
If hwnd = 0 Then
MsgBox "未找到窗口"
Else
result = PostMessage(hwnd, WM_CLOSE, 0&, 0&) '向目标程序发送消息
If result = 0 Then
MsgBox "关闭窗口失败!"
Else
MsgBox "成功关闭窗口!"
End If
End If
End Sub
相关文章推荐
- VB 关闭已知标题窗口
- 利用autoit自动关闭指定标题窗口
- [编程实例]使用VC++ 6关闭指定窗口标题的程序
- 使用VC++6关闭指定窗口标题的程序的代码
- 窗口遍历,关闭包含指定字符串的窗口
- 猎豹MFC--窗口操作--最大化 最小化还原 关闭 大小位置 居中显示 图标 标题
- 通过标题模糊查找窗体并关闭窗口
- 用VB自动关闭网页广告窗口
- Jquery实现倒计时跳转到指定页面或关闭窗口
- VB实现向指定窗口发送组合键
- 在RFT中根据指定的标题查找顶层窗口
- 在VB中实现移动没有标题栏的窗口
- vb6中无标题栏窗口的拖动(非API可指定标题栏高度)
- VB技巧【批量注释代码】【数据转换层字符串补0】【VB中的除法】【修改窗口标题与EXE图标】【TextBox控件的缺点】
- js入门·打开/关闭指定URL的窗口/改变链接时候状态栏的文字
- windows下tomcat指定命令窗口标题
- 对于windows窗口的标题菜单栏的操作——删除/禁用 最小最大话和关闭
- QT无标题窗口在任务栏显示关闭
- 桌面助手 - Desktop Helper - 自动帮你关闭指定的窗口
- bat关闭指定窗口