api问题，或者程序间的拷贝问题

wuxixyf

如何从其他程序中拷贝内容到VBA的一个变量中 我遇到的问题是这样的 我买了一个第三方程序，这个程序和电话相联接，如果有人打我的电话，这个软件就能自动显示出来电信息，电话号码，地址，公司名称什么的。 然后我希望在access中编一个程序，每秒监听这个程序，如果这个程序中的名称或者地址与上次不同的话，我的acess就自动保存这个地址在一个电话记录表中。 现在的难点是 我如何从这个第三方程序拷贝到信息。我用api能够得到这个第三方程序的窗口。但是下一步拷贝就不知道用什么api了。 特此请教，多谢多谢

wuxixyf

Label是轻量级控件，当然无法获得句柄。 ' 找到程序的窗口句柄后，发个消息 ' 这个贴子的IE窗口别关，把代码复制到窗体代码中单击Command1就能获得地址栏中的URL。 Option Explicit 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 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 Const WM_GETTEXT = &HD Private Sub Command1_Click() Dim Handle As Long Dim wndText As String wndText = Space(255) Handle = FindWindow("IEFrame", "在WINDOWS中，如何读取其它应用程序窗口中的数据？ - Microsoft Internet Explorer") Handle = FindWindowEx(Handle, 0&, "WorkerW", vbNullString) Handle = FindWindowEx(Handle, 0&, "ReBarWindow32", vbNullString) Handle = FindWindowEx(Handle, 0&, "ComboBoxEx32", vbNullString) Handle = FindWindowEx(Handle, 0&, "ComboBox", vbNullString) ' 获得窗口句柄 Handle = FindWindowEx(Handle, 0&, "Edit", vbNullString) SendMessage Handle, WM_GETTEXT, 256, ByVal wndText wndText = Left(wndText, InStr(wndText, Chr(0))) Debug.Print wndText End Sub