Question

知道窗口的句柄,如何获取窗口的标题,通过标题激活该窗口

Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim 窗口句柄 As Long
窗口句柄 = 取窗口句柄(vbNullString, 记事本)
If 窗口句柄 = 0 Then
MsgBox "无法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄数为：" & 窗口句柄

(这里帮增加代码: 通过句柄得出标题)

AppActivate "无标题.txt - 记事本"
End If
End Sub

Answer 1

百度SetForegroundWindow了解一下

Answer 2

智商抓鸡

Answer 3

对啊、知道窗口的句柄了 激活干嘛还要用标题呢