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

.版本 2
.支持库 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, 整数型, 传址, 传递值得指针