VB Code:
Public Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Public Const WM_SETTEXT = &HC
Public Const WM_GETTEXTLENGTH = &HE
Public Function TrimNull(s As String) As String
Dim n As Integer
n = InStr(s, vbNullChar)
If n >= Len(s) Then
TrimNull = Left$(s, InStr(s, vbNullChar) - 1)
Else
TrimNull = ""
End If
End Function
Public Function GetText(hWnd As Long) As String
Dim nSize As Integer
Dim sRet As String
nSize = SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0)
nSize = nSize + 1
sRet = Space$(nSize)
SendMessage hWnd, WM_GETTEXT, nSize, ByVal sRet
GetText = TrimNull(sRet)
End Function