Question

易语言取子句柄文本内容

易语言怎么取程序里面的文本内容，取父句柄我会了。 比如qq聊天里面的文本取进编辑框

Answer 1

读内存地址吧，这个最快

追问

用api怎么做

追答

.DLL命令 X_内存_读文本型, 逻辑型, "kernel32.dll", "ReadProcessMemory", 公开
.参数 进程句柄, 整数型
.参数 读取地址, 整数型
.参数 保存数值, 文本型, 传址
.参数 读取长度, 整数型.参数 实读长度, 整数型, 传址

追问

怎么把他读取到编辑框 鼠标移到哪就读取哪的内容

Answer 2

楼主你好！源码已上传，内容过多请详细参考源码。

’---组件截图：

‘---窗口程序集1（代码）

.版本 2
.程序集 窗口程序集1
.子程序 _时钟1_周期事件
.局部变量 A, POINTAPI, , , 坐标
.局部变量 C, 文本型, , , 标题
.局部变量 hwnd, 整数型, , , 句柄
.局部变量 E, POINTAPI
.局部变量 D, RECT
.局部变量 进程ID, 整数型
GetCursorPos (A)
hwnd ＝ WindowFromPoint (A.X, A.Y)
C ＝ 取空白文本 (255)
GetWindowTextA (hwnd, C, 取文本长度 (C))
编辑框2.内容 ＝ C
编辑框1.内容 ＝ 到文本 (hwnd)

‘---自定义数据类型1（代码）

.版本 2
.数据类型 POINTAPI
    .成员 X, 整数型
    .成员 Y, 整数型
.数据类型 RECT
    .成员 left, 整数型
    .成员 Top, 整数型
    .成员 Right, 整数型
    .成员 Bottom, 整数型

‘---DLL（代码）

.版本 2
.DLL命令 ScreenToClient, 整数型, "user32", "ScreenToClient", , 判断屏幕上一个指定点的客户区坐标
    .参数 hwnd, 整数型
    .参数 lpPoint, POINTAPI
.DLL命令 WindowFromPoint, 整数型, "user32", "WindowFromPoint", , 返回包含了指定点的窗口的句柄。忽略屏蔽、隐藏以及透明窗口
    .参数 xPoint, 整数型
    .参数 yPoint, 整数型
.DLL命令 GetClassNameA, 整数型, "user32", "GetClassNameA", , 以字节数表示的类名长度；排除最后的空中止字符
    .参数 hwnd, 整数型
    .参数 lpClassName, 文本型, 传址
    .参数 nMaxCount, 整数型
.DLL命令 GetWindowTextA, 整数型, "user32", "GetWindowTextA", , 取得一个窗体的标题（caption）文字，或者一个控件的内容
    .参数 hwnd, 整数型
    .参数 lpString, 文本型, 传址
    .参数 cch, 整数型
.DLL命令 GetCursorPos, 整数型, "user32", "GetCursorPos", , 获取鼠标指针的当前位置
    .参数 lpPoint, POINTAPI
.DLL命令 GetClientRect, 整数型, "user32", "GetClientRect", , 返回指定窗口客户区矩形的大小
    .参数 hwnd, 整数型
    .参数 lpRect, RECT

’（谢谢，希望你能采纳！！）

追答

亲！评价一下吧