----------------以下是VB源码----------------------
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Function Gettext(ByVal hwnd As Long) As String
On Error Resume Next
Dim s As String
Dim mlen As Long
If hwnd = 0 Then Exit Function
mlen = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, vbNull)
s = Space(mlen + 1)
Call SendMessage(hwnd, WM_GETTEXT, mlen + 1, ByVal s)
Gettext = Replace(s, Chr(0), "")
End Function
TC有这个功能 标题内容=窗口.得到标题(窗口句柄)
