大漠-QQ消息发送源码

必须把聊天框设置成 回车键发送 聊天框必须单个窗口 多窗口不支持

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 dm, 大漠类
.程序集变量 大漠对象, 对象

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

dm.初始化_Mac (取运行目录 () ＋ “dm.dll”, “3.1233”)
大漠对象 ＝ 初始化对象

.子程序 取聊天窗口句柄, 整数型, , 本子程序采用【精易编程助手】生成,成功返回窗口句柄,失败返回0
.参数 聊天对象昵称, 文本型
.局部变量 局_句柄, 整数型

局_句柄 ＝ 窗口_取句柄 (, , “TXGuiFoundation”, 聊天对象昵称)
.如果真 (局_句柄 ＝ 0)
    返回 (0)
.如果真结束
返回 (局_句柄)

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

dm.窗口_发送文本数据 (大漠对象, 取聊天窗口句柄 (编辑框1.内容), 编辑框2.内容)
dm.窗口_绑定 (大漠对象, 取聊天窗口句柄 (编辑框1.内容), “normal”, “normal”, “windows”, 0)
dm.键盘_单击某键 (大漠对象, #回车键)
dm.窗口_解除绑定 (大漠对象)

@GrayGuardian