Question

VB获取其它应用程式子窗体控件的内容.

我用spy++获取的一个应用程式控件的句柄及相关参数.
窗口句柄:290352
窗体类名:ThunderRT6TextBox
标题文本:71449281
进程ID：abc
我现在想要用我的程式获取这个窗体中的标题文本的值"71449281
"。以及修改这个参数.
请问程位朋友该怎么实现呢。最好能给出实例。谢谢了。
怎么没有热心的朋友帮忙解答一下呢。自己顶一下。加油.

Answer 1

http://club.excelhome.net/thread-437949-1-1.html
vba版的spylite，把其中的两个类window和windows导出再导入到vb中，可以修改窗口的很多属性。

Answer 2

使用api：
GetWindowText 获取
SetWindowText 设置

追问

谢谢你的回答。
能否给段代码或者实例呢.谢谢了。

Answer 3

能把这个应用程序发给我吗？278700294@qq.com
我帮你看看怎么获取

追问

谢谢你了。程序以经通邮件发给你了。
我想说明的是。我真正目的是想获取（修改）其它应用程式上的内容。包括其它语言编写的程式。

追答

无法运行，错误53，文件未找到

追问

你那里有没有其它应用程式。只要给我个VB获取(和修改)子窗体内容的实例都行。
谢谢你了。

追答

以记事本为例，首先运行记事本，然后运行下列代码（窗体有一个文本框和一个按钮）：

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal Hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal Hwnd As Long, ByVal wCmd 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
Const GW_HWNDNEXT = 2

' 通过进程ID获得该进程的窗口句柄
Public Function InstanceToWnd(ByVal target_pid As Long) As Long
Dim test_hwnd As Long
Dim test_pid As Long
Dim test_thread_id As Long
InstanceToWnd = 0
'On Error Resume Next
' 获得首个handle.
test_hwnd = FindWindow(ByVal 0&, ByVal 0&)

' 循环查找直到找到为给定进程ID的窗口句柄
Do While test_hwnd 0
'检查窗口句柄是否为顶级窗口
If GetParent(test_hwnd) = 0 Then
' 是顶级窗口
' 取该窗口所属的进程ID
test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)

If test_pid = target_pid Then
' 是我们指定进程的窗口，则将该窗口的句柄返回到函数名，并退出
InstanceToWnd = test_hwnd
Exit Do
End If
End If

' 取下一个窗口的句柄
test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
Loop
End Function

'通过窗口句柄获取窗口标题
Public Function HwndToTitle(Hwnd As Long) As String
Dim strText As String * 256
Call GetWindowText(Hwnd, strText, 256)
HwndToTitle = Left$(strText, InStr(1, strText, Chr(0)) - 1)
End Function

Private Sub Command1_Click()
Dim Nhwnd As Long
Nhwnd = InstanceToWnd(2148) '2148是我的记事本PID
Text1 = HwndToTitle(Nhwnd)
End Sub

追问

谢谢你的回答。
这个方法只能获取到记事本的标题。不能获取到记事本里面的内容。。
Nhwnd = InstanceToWnd(2148) '2148是我的记事本PID
PID每开启一次，都不一样。不可能每次都去改源代码吧。

追答

代码太长，发不出来，留个EMAIL

追问

361811446@qq.com

追答

邮件已发送

追问

邮件已收到。实例很好。谢谢你。分数肯定是会给你的（不管问题有没有解决）。
但是呢。以记事本为实例跟我本身想要实现的程式差得稍微有点远。
我通过邮件再次给你发了一个程式。实现的还是获取（和修改）子窗体的内容。
希望能够得到你的解答。谢谢你。麻烦了

追答

已改好

Answer 4

spy++ 不懂··用按键精灵内置的 抓抓的来拿分//