[已解决]vba如何关闭指定的windows窗口

研究研究

Windows("a.txt - 记事本").Close

报下标越界

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-11 16:09

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

Sub test()
    Dim hwnd As Long
    hwnd = FindWindow(vbNullString, "无标题 - 记事本")
   If hwnd Then SendMessage hwnd, 2, 0, 0
End Sub





到处乱找了一翻，试了好多下 ............ 可以关闭，但我不懂

跳转到最佳答案楼层

无聊的疯子

只会用简单的办法，，先获取到程序id,然后激活它，再用 alt + f4 关闭

下面的代码，用F5记事本会一闪而过

1. 
   
2. Sub cc()
   
3. Dim myappid
   
4. myappid = Shell("C:\WINDOWS\system32\notepad.exe", 1)
   
5.   AppActivate myappid
   
6.   SendKeys "%{F4}", True
   
7. End Sub
   

复制代码

要不然就得用api函数，，那代码就太长了。。。

爱疯

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

Sub test()
    Dim hwnd As Long
    hwnd = FindWindow(vbNullString, "无标题 - 记事本")
   If hwnd Then SendMessage hwnd, 2, 0, 0
End Sub





到处乱找了一翻，试了好多下 ............ 可以关闭，但我不懂

研究研究

爱疯 发表于 2015-12-11 16:09
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByV ...

谢谢  
这2句话 应该是
查找 标题为“xxx”窗体的句柄号
关闭句柄号为 hwnd 的窗体

爱疯

我几乎不大用api，只是来了解，学习{:021:}

研究研究

我也是学习一下 ，一般用不到。，这个以前在什么地方看到过，就一时没有想到用句柄，你提醒了我