如何获取文本内容

Question

用VB如何获取另外一个EXE程序中文本框内的内容呢？

Answer 1

VB的工具里有个SPY的
试试他。
这要调用到API函数。
简单地说：
1在鼠标移动时获得鼠标所在处窗体的句柄
2再获得该窗体上控件的句柄
3向该控件发送gettext消息就行了。

Answer 2

用sendmessage函数发送wm_gettext消息
声明如下:
Private Const WM_GETTEXT = &HD
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先用findwindow获取exe文件对应窗体句柄,再用findwindowex获取文本框句柄,假设为chwnd然后:
dim str as string*256'这里最好设置一个足够大的数
sendmessage chwnd,WM_GETTEXT,vbnull,byval str
str=trim(str)
str即为所求