how to get the value of a text box???

[snake~h]

im wondering how to get the value of a text box of another program????

[Ahmed Walid]

hi

download this source code

http://www.geocities.com/HUS_ME

bYe

[kedaman]

This should get the text of the calculators result window:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
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 hcalcwnd As Long, hResultwnd As Long
    hcalcwnd = FindWindow("SciCalc", vbNullString)
    hResultwnd = FindWindowEx(hcalcwnd, 0&, "Static", vbNullString)
    Debug.Print GetWndText(hResultwnd)
End Sub

Private Function GetWndText(hwnd As Long)
    Dim l As Long, temp As String
    l = GetWindowTextLength(hwnd)
    temp = Space(l)
    GetWindowText hwnd, temp, l
    l = InStr(temp, vbNullChar) - 1
    If l Then
        GetWndText = Left(temp, l)
    Else
        GetWndText = temp
    End If
End Function

There are some declarations and code that you can erase to make it shorter.

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
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 hResult
    hResult = FindWindowEx(FindWindowEx(0, 0, "SciCalc", vbNullString), 0&, "Static", vbNullString)
    Debug.Print GetWndText(hResult)
End Sub

Private Function GetWndText(ByVal hwnd As Long)
    Dim temp As String * 255
    GetWindowText hwnd, temp, 255
    GetWndText = Left(temp, Len(temp) - InStr(1, temp, vbNullChar))
End Function