如何获取一个窗体中文本框的内容??!!

什么意思啊？
dim s as string
s=text1.text

dim s as string
s=text1.text 得到内容s="ABC"
text1.text=s 给text1赋值

获得那个窗口的句柄，然后使用sendmessage函数发送命令

以qq为例
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" 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 Const BM_CLICK = &HF5
Private Const WM_SETTEXT = &HC
Const WM_GETTEXT = &HD
Const WM_GETTEXTLENGTH = &HE
Dim t As Long
Dim b As Long
Dim d As Long
Dim clong As Long
t = FindWindow("#32770", vbNullString)
b = FindWindowEx(t, ByVal 0&, "Edit", vbNullString)
Dim astr As String * 256
'设置号码
SendMessage b, WM_SETTEXT, 0, ByVal Text1.Text 'text1内为QQ号码.
'找到登录
d = FindWindowEx(t, ByVal 0&, "Button", "登录")
'得到text内容
clong = SendMessage(b, WM_GETTEXTLENGTH, 0, vbNull)
clong = Len(astr)
SendMessage b, WM_GETTEXT, clong, ByVal astr
Debug.Print astr
'自动登陆
SendMessage d, BM_CLICK, 0, 0

这里用到一个集合对象forms
    For i = 0 To Forms.Count - 1'遍历所有的窗体
        strtemp = Forms(i).Caption '把标识复制到变量，这里用Caption，也可以用.tag或其他的标示
        If strtemp ="" Then'如果和你想要得条件相同             Forms(i).‘窗体都有了，想干点啥不行
         End If
    Next i
'注意，有时候会有错误，最好用onerr resume next

online兄的回答应该是可以的吧。
好，我去试试，成功就散分。
另外，多谢各位回答的兄弟。

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'           Author: Muhammad Abubakar'           http://go.to/abubakar'           <[email protected]>'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Option Explicit
'APIs : WHERE THE REAL POWER IS
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 Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Any) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function EnumChildWindows Lib "user32" (ByVal hwndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Any) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function CascadeWindows Lib "user32" (ByVal hwndParent As Long, ByVal wHow As Long, lpRect As RECT, ByVal cKids As Long, lpkids As Long) As Integer'APIs for Spying Menus:
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String '* 255
    cch As Long
End Type
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End TypePublic Const WM_COMMAND = &H111
Public Const MIIM_TYPE = &H10
Public Const MFT_STRING = &H0&
'Public Const WM_SETFOCUS = &H7     Messages for:
Public Const WM_CLOSE = &H10                    'Closing window
Public Const SW_SHOW = 5                        'showing window
Public Const WM_SETTEXT = &HC                   'Setting text of child window
Public Const WM_GETTEXT = &HD                   'Getting text of child window
Public Const WM_GETTEXTLENGTH = &HE
Public Const EM_GETPASSWORDCHAR = &HD2          'Checking if its a password field or not
Public Const BM_CLICK = &HF5                    'Clicking a button
Public Const SW_MAXIMIZE = 3
Public Const SW_MINIMIZE = 6
Public Const SW_HIDE = 0
Public Const SW_RESTORE = 9
Public Const WM_MDICASCADE = &H227              'Cascading windows
Public Const MDITILE_HORIZONTAL = &H1
Public Const MDITILE_SKIPDISABLED = &H2
Public Const WM_MDITILE = &H226Public VCount As Integer, ICount As Integer
Public SpyHwnd As Long
'the following functions "WndEnumProc" & "WndEnumChildProc"
'are application defined, which means that they are defined by the
'programmer him/her self. They are actually required by the 'callback'
'function, EnumWindows & EnumChildWindows in this case. One more point
'to note is that we pass the 'address' of our app-defined functions
'to the call back function through 'AddressOf' operator. Its a condition
'of AddressOf operator that the function whose address is passed should
'be in a '*.bas' file which is module ofcourse.

Public Function WndEnumProc(ByVal hwnd As Long, ByVal lParam As ListView) As Long
    Dim WText As String * 512
    Dim bRet As Long, WLen As Long
    Dim WClass As String * 50

    WLen = GetWindowTextLength(hwnd)
    bRet = GetWindowText(hwnd, WText, WLen + 1)
    GetClassName hwnd, WClass, 50    With Form1
        If (.Check1.Value = vbUnchecked) Then
            Insert hwnd, lParam, WText, WClass
        ElseIf (.Check1.Value = vbChecked And WLen <> 0) Then
            Insert hwnd, lParam, WText, WClass
        End If
    End With

    WndEnumProc = 1
End Function
Private Sub Insert(iHwnd As Long, lParam As ListView, iText As String, iClass As String)
    lParam.ListItems.Add.Text = Str(iHwnd)
    lParam.ListItems.Item(VCount).SubItems(1) = iClass
    lParam.ListItems.Item(VCount).SubItems(2) = iText
    VCount = VCount + 1
End Sub
Public Function WndEnumChildProc(ByVal hwnd As Long, ByVal lParam As ListView) As Long
    Dim bRet As Long
    Dim myStr As String * 50    bRet = GetClassName(hwnd, myStr, 50)
    'if you want the text for only Edit class then use the if statement:
    'If (Left(myStr, 4) = "Edit") Then
    'lParam.Sorted = False    With lParam.ListItems
        .Add.Text = Str(hwnd)
        .Item(ICount).SubItems(1) = myStr
        .Item(ICount).SubItems(2) = GetText(hwnd)
        If SendMessage(hwnd, EM_GETPASSWORDCHAR, 0, 0) = 0 Then
            .Item(ICount).SubItems(3) = "No"
        Else
            .Item(ICount).SubItems(3) = "Yes"
        End If
    End With

    ICount = ICount + 1    'lParam.Sorted = True
    'End If
    WndEnumChildProc = 1End FunctionFunction GetText(iHwnd As Long) As String
    Dim Textlen As Long
    Dim Text As String    Textlen = SendMessage(iHwnd, WM_GETTEXTLENGTH, 0, 0)
    If Textlen = 0 Then
        GetText = ">No text for this class<"
        Exit Function
    End If
    Textlen = Textlen + 1
    Text = Space(Textlen)
    Textlen = SendMessage(iHwnd, WM_GETTEXT, Textlen, ByVal Text)
    'The 'ByVal' keyword is necessary or you'll get an invalid page fault
    'and the app crashes, and takes VB with it.
    GetText = Left(Text, Textlen)End Function'This is a recursive function 'cuz ya know any menus can have ne number of sub menus
'and the sub menus can have more sub menus in them, so all of them can be captured
'with recursionPublic Sub SMenu(Mhwnd As Long, Tree As TreeView, Optional tmpKey As String, Optional iSubFlag As Boolean)
    Static iKey As Integer
    Dim n As Long, c As Long, i As Long
    Dim iNode As Node
    Dim menusX As MENUITEMINFO
    Dim temp As String
    On Error Resume Next

    n = GetMenuItemCount(Mhwnd)
    For i = 0 To n - 1
        c = GetMenuItemID(Mhwnd, i)

        '----Here we get the text of the menu if any-----
        menusX.cbSize = Len(menusX)
        menusX.fMask = MIIM_TYPE
        menusX.fType = MFT_STRING
        menusX.dwTypeData = Space(255)
        menusX.cch = 255
        GetMenuItemInfo Mhwnd, i, True, menusX
        menusX.dwTypeData = Trim(menusX.dwTypeData)
        '------------------------------------------------

        'this'll make the key unique <hopefully>:
        If (menusX.dwTypeData = "" Or c = -1) Then
            c = iKey
            iKey = iKey + 1
        Else
            c = c + 15000
        End If

        If iSubFlag = False Then
            If tmpKey <> "" Then
                Set iNode = Tree.Nodes.Add(tmpKey, tvwNext, , menusX.dwTypeData)
            Else
                Set iNode = Tree.Nodes.Add(, tvwLast, , menusX.dwTypeData)
            End If
            If GetSubMenu(Mhwnd, i) > 1 Then
                iSubFlag = True
                iNode.Key = "k" & CStr(c)
                tmpKey = iNode.Key
                SMenu GetSubMenu(Mhwnd, i), Tree, tmpKey, True
                iSubFlag = False
            End If
        Else
            Set iNode = Tree.Nodes.Add(tmpKey, tvwChild, "k" & CStr(c), menusX.dwTypeData)
            If GetSubMenu(Mhwnd, i) > 1 Then
                iSubFlag = True
                iNode.Key = "k" & CStr(c)
                temp = tmpKey
                tmpKey = iNode.Key
                SMenu GetSubMenu(Mhwnd, i), Tree, tmpKey, True
                tmpKey = temp
            End If
        End If
    Next

End Sub

to online(龙卷风V2.0--再战江湖):
我用您的代码往“计算器"里输入数字得地方输入了我想输入的东西，可得不道“计算器"里的数字，请教该如何得到，
另
1：求教如何得到窗口里的所有控件名称
2：如窗口有两个文本框，我想往第二个文本框里输入东西，该如何作，谢谢！！！
3：能否用代码按下窗口的命定按钮，谢谢！！！
Private Sub Command1_Click()
Dim t As Long
Dim b As Long
Dim d As Long
Dim clong As Long
t = FindWindow(0&, "计算器")
b = FindWindowEx(t, ByVal 0&, "edit", vbNullString)
'为何"edit"不能为其他东西或为0，或为空
SendMessage b, WM_SETTEXT, 0, ByVal Text1.Text

Private Sub Command1_Click()
Dim t As Long
Dim b As Long
Dim d As Long
Dim clong As Long
Dim astr As String * 256t = FindWindow(vbNullString, "计算器")
b = FindWindowEx(t, ByVal 0&, "Edit", vbNullString)'设置号码
SendMessage b, WM_SETTEXT, 0, ByVal Text1.Text
clong = SendMessage(b, WM_GETTEXTLENGTH, 0, vbNull)
clong = Len(astr)
SendMessage b, WM_GETTEXT, clong, ByVal astr
Debug.Print astr
End Sub

谢谢！！！online(龙卷风V2.0--再战江湖)：1：求教如何得到窗口里的所有控件名称2：如窗口有两个文本框，我想往第二个文本框里输入东西，该如何作，谢谢！！！3：能否用代码按下窗口的命定按钮，谢谢！！！
如：计算器里的清除键

to:online(龙卷风V2.0--再战江湖)
你所说的方法我试过了,可以适用于一般的窗口,但是你以QQ为例的话,好像不行,不知道什么原因.
多问一句,如果真的想得到QQ的登录框中的QQ号和密码,我该如何做?

to msdn165168()
1：求教如何得到窗口里的所有控件名称
需要使用一个Spy的工具来得到控件类名称
2：如窗口有两个文本框，我想往第二个文本框里输入东西，该如何作，谢谢！！！
3：能否用代码按下窗口的命定按钮，谢谢！！！
t = FindWindow(vbNullString, "计算器")
d = FindWindowEx(t, ByVal 0&, "Button", "清除键的名称")
SendMessage d, BM_CLICK, 0, 0to sunxysong(寒羽)
你所说的方法我试过了,可以适用于一般的窗口,但是你以QQ为例的话,好像不行,不知道什么原因.
多问一句,如果真的想得到QQ的登录框中的QQ号和密码,我该如何做?
得到qq号没有事么问题，密码有些问题

调试易

如何获取一个窗体中文本框的内容??!!

解决方案 »