vb如何获取程序的标题

如题

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub Form_Load()
Dim a As String
a = Space(255)
GetWindowText hwnd, a, 255
msgbox a
End Sub

200分，个个都想要。 不过这个题目说得不清楚。。。猜吧。 估计有可能是 取鼠标下窗口的标题、或者是激活窗口的标题，也有可能是当前窗口的标题？？？ 很想提供帮助，不过这个也有点不明不白。先在这抢个座。

CAPTION

把下面的代码放在标准模块里，建议你做个小记录，以后用的时候就不用再写了，直接复制粘贴 Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Function GetWndText(hwnd) As String GetWndText = String(260, 0) GetWindowText clng(hwnd), GetWndText, 260 GetWndText = Left(GetWndText, InStr(GetWndText, vbNullChar) - 1) End Function 用法: 窗口标题=GetWndText(<指定窗口句柄>)

原来又是你！我敢发誓，要么这些分只转给同一个人，要么，这个问题会被管理员关闭。

熟悉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