易语言；取指定窗口标题,指定位置文本~

.支培则持库 eAPI

.子程序 _按钮9_被单击

.局部变量 Pro, 进程信息, , "0"

.局部变量 i, 整数型

.局部变量 o, 整数型

.局部变量 t, 文本型, , "0"

Pro ＝ 取系统进程列配槐棚表 ()

.计次循环首 (取数组成员数 (Pro), i)

.判断开始 (Pro [i].进程名称 ＝ “abd.exe”) ' 任意你想要的进程名字

o ＝ SelectHW (Pro [i].进程标识符)

.判断开始 (o ≠ 0)

编辑框1.加入文本 (Pro [i].进程名称 ＋ “ PID:” ＋ 到文本 (Pro [i].进程标识符) ＋ “ Hwnd:” ＋ 到文本 (o) ＋ “标题：” ＋ 取窗口标题 (o) ＋ #换行符)

t ＝ 分割文本 (取窗口标题 (o), “【”, )

.判断开始 (取数组成员数 (t) ＝ 3)

t ＝ 分割文本 (t [3], “】明兆”, 1)

编辑框1.加入文本 (“用户名字： ” ＋ t [1] ＋ #换行符)

.默认

.判断结束

.默认

.判断结束

.默认

.判断结束

.计次循环尾 ()

.子程序 SelectHW, 整数型, , 只会返回第一个符合的窗口句柄

.参数 Pid, 整数型

.局部变量 hws, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 uid, 整数型

hws ＝ 取所有窗口列表 ()

.计次循环首 (取数组成员数 (hws), i)

HwndGetPro (到整数 (hws [i]), uid)

.判断开始 (uid ＝ Pid)

返回 (到整数 (hws [i]))

.默认

.判断结束

.计次循环尾 ()

返回 (0)

.版本 2

.DLL命令 HwndGetPro, 整数型, "user32", "GetWindowThreadProcessId", , 返回值是线程id

.参数 窗口句柄, 整数型

.参数 进程ID, 整数型, 传址, 传递值得指针

.版本 2

.支持库 HtmlView

.子程序 _按钮1_被单击

列表框1.加入项目闷衫游 (超塌圆文本浏览框1.标题, )

列蚂销表框1.加入项目 (超文本浏览框1.地址, )