前期易语言编程作品收录|QQ尾巴|

 ======================一开始学外挂作坊时做的东东了
.版本 2
.支持库 eAPI

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

模块注册 ()


.子程序 _时钟1_周期事件
.局部变量 焦点窗句柄, 整数型
.局部变量 聊天窗句柄, 整数型, 静态
.局部变量 二级父句柄, 整数型
.局部变量 发送钮句柄, 整数型
.局部变量 分组框句柄1, 整数型
.局部变量 分组框句柄2, 整数型
.局部变量 文本框句柄, 整数型

焦点窗句柄 = 取窗体句柄 ()
.如果真 (聊天窗句柄 ≠ 焦点窗句柄 且 取窗口类名 (焦点窗句柄) = “#32770”)
    二级父句柄 = 查找窗口 (焦点窗句柄, 0, “#32770”)
    .如果真 (0 ≠ 二级父句柄)
        发送钮句柄 = 查找窗口 (二级父句柄, 0, “Button”, “发送(S)”)
        .如果真 (0 ≠ 发送钮句柄)
            分组框句柄1 = 查找窗口 (二级父句柄, 0, “AfxWnd42”, )
            分组框句柄2 = 查找窗口 (二级父句柄, 分组框句柄1, “AfxWnd42”, )
            文本框句柄 = 查找窗口 (分组框句柄2, 0, “RichEdit20A”, )
            编辑框1.内容 = 到文本 (焦点窗句柄)
            编辑框2.内容 = 到文本 (文本框句柄)
            编辑框3.内容 = 到文本 (发送钮句柄)
            置控件内容 (文本框句柄, 编辑框4.内容)
            键盘按下 (发送钮句柄, 13)
            聊天窗句柄 = 焦点窗句柄
        .如果真结束

    .如果真结束

.如果真结束