Option Explicit 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 SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,lParam As Long) As Long Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal lParam As String) As Long Private Const WM_GETTEXTLENGTH = &HE Private Const WM_GETTEXT = &HD Private Sub Command1_Click() Dim hwnd As Long Dim retLength As Long,retString As String hwnd = findwindowex(0,"IEFrame",vbNullString) hwnd = findwindowex(hwnd,"WorkerW","ReBarWindow32","Address Band Root","ComboBoxEx32","ComboBox","Edit",vbNullString) retLength = SendMessage(hwnd,WM_GETTEXTLENGTH,0) retString = String(retLength,0) SendMessageByString hwnd,WM_GETTEXT,retLength + 1,retString MsgBox retString End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。