用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即为所求