用VB5.0获取正在系统中运行的窗口标题

熟悉Visual Basic的读者都知道，AppActivate语句是激活一个应用程序窗口
其后所带的参数是指要被子激活的应用程序窗口标题条的字符串。如果要激活的是
一个常见的应用程序，我们在编写程序时就可以直接写上此程序的窗口标题。例如，
我们想激活Windows95的计算器，可先运行程序x=SHELL("Calc.exe",1)，然后再激
活计算器窗口AppActivate“计算器”，则程序焦点自动转到计算器窗口上。然而
单纯使用该方法局限性非常大，比如上述例子，如果我们放在英文Windows95上运
行，计算器的窗口标题就不是“计算器”，而是“Calculator”。再一个局限性就
是在很多情况下我们并不知道要激活的程序窗口标题名称，如何编制一个能自动查
找程序窗口标题名称的程序是本文要解决的问题。
我们可以采取如下办法，来获取正在系统运行的窗口标题。
在WindowsAPI中有一个函数：
Get Windows (ByVal hWnd As Long ,ByVal wCmd As Long) As Long
其中，hWnd是当前窗口句柄，wCmd是与hWnd有联系的常量，其含义如下：
wCmd值
含义
GW-GHILD
第一个子窗口
GW-HWNDFIRST
子窗口的第一兄弟窗口，其第一个顶层窗口
GW-HWNDLAST
子窗口的最后一个兄弟窗口，或最后一个顶层窗口
GW-HWNDNEXT
后继窗口
GW-HWNDPRCV
先前窗口
GW-OWNER
窗口拥有者
此函数返回值是wCmd所指的窗口的句柄。
我们利用此句柄 ，再用函数Get WindowsText (ByVal hWnd As Long ,ByVal
Ipstring As String, ByVal cch As Long) As Long，将句柄hWnd指定的窗口标题
放入一个字符串变量Ipstring中，cch是指放入Ipstring中的最大字符数。此函数
成功时返回字符串长度，如果窗口无标题则返回零。
在使用Get WindowsText函数前，还要先用函数Get WindowsTextLength （
ByVal hWnd As Long ）As Long得到hWnd指定窗口标题的长度，放入cch中。
自编一个过程FindTitle()查找系统中正在运行的所有标题，首先获得第一个
顶层窗口句柄currwnd，而后采用While…Wend循环结构，当currwnd不为零而且标
题文本长度不为零时，将获得的标题存入列表框Combo1，再找后继窗口的句柄，当
句柄currwnd=0时表示已没有了后继窗口，退出循环。这样就将系统中所有的窗口
句柄及标题找出来了。
然而调试中发现用此方法找到的窗口标题非常多，这说明Windows系统运行时
有许多隐含的窗口，而这些窗口是我们所不需要的，而且用AppActivate激活时也
出现错误。
因此我们再自编一个过程Sift ()查找可激活的窗口。其方法是用AppActivate
逐个激活所有窗口，出现错误的丢掉，保留可激活的窗口标题，放入列表框Combo2。
首先新建窗体Form1，Caption=“获取窗口标题”，在窗体Form1上建立两个标
签，Label1,Caption=“所有窗口标题”，Label2.Caption=“可激活的窗口标题”；
建立两个下拉列表框，Combo1存放系统中的所有标题名称，Combo2存放可激活的标
题名称；再建立两个命令按钮，Command1.Caption=“激活窗体”，可对所列窗体
进行测试，命令按钮Command2.Caption=“刷新”，点击它可重新查找所有在系统
中的窗体名称，当本程序运行以后又运行了新程序时使用此按钮。
从VB系统菜单上选取Project中的Add Module，将下述API函数及一些常量录入。

''Module 模块

Declare Function GetWindow Lib "user32"(ByVal hwnd As Long, ByVal wCmd
As Long)As Long
Declare Function GetWindowText Lib "user32" Aias"GetWindowTextA" (ByVal
hwnd As Long, ByVal lpString As String,ByVal cch As Long)As Long
Declare Function GetWindowText Length Lib "user32" Aias"
GetWindowTextLengthA" (ByVal hwnd As Long)As Long
Public Const GW-HWNDFIRST=0
Public Const GW-HWNDLAST=1
Public Const GW-HWNDNEXT=2
Public Const GW-HWNDPREV=3
Public Const GW-OWNER=4

建立两个子程序：

Sub FindTitle ()
''查找桌面上的所有窗口标题
Dim currwnd As Integer
Combo1.Clear
Currwnd=GetWindow (hwnd, GW-HWNDFIRST)
While currwnd<>0
Length= GetWindow TextLength (currwnd)
listitem$=Space $(length +1)
length= GetWindow Text (currwnd,listitem$,length+1)
if length>0 Then
Combo1.Addltem listitem $
End if

currwnd= GetWindow (currwnd, GW-HWNDNEXT)

if Combl1.ListCount>0 Then
Combo1.Text=Combol.List (0)
Combo1.Listindex =0
Else
MsgBox“没有发现可活动的窗口”，16，“活动”
End if
Wend
End Sub

Sub Sift ()

''测试窗口能否活动

i=0
Combo2.Clear
Do
On Local Error Resume Next
AppActivate Combo1.List (i)
If Err =0 Then
Combo2.Additem Combo1.List(i)
End if
i=i+1
Loop Unti 1 i=Combo1.ListCount-1
AppActivate Form1.Caption
If Combo2.ListCount>0 then
Combo2.Text =Combo2.List (0)
Combo2.Listindex =0
Else
MsgBox “没有发现可活动窗口”，16，“活动”
End if
End Sub
Private Sub Form-Load ()
Form1.Show''首先将本窗体显示出来，否则查找出的窗体标题没有本身
MsgBox "开始查找窗口标题"
Call FindTitle
Call Sift
End Sub
Private Sub Command1-Click ()
F $=Combo2.Text
On Local Error Resume Next
AppActivate F $
End Sub

Private Sub Command2-Click ()
Call FindTitle
Call Sift
End Sub