QQ好友直接聊天自动回复主动发送信息

易语言 2020-03-05 22:33:33

QQ好友直接聊天自动回复主动发送信息

弄个菜单或者帮助关键字,然后回复指定内容和关键字文本。

发送对象.内容 = 文本_取出中间文本 (主窗口.编辑框1.内容, “:”, “发来消息:”)
消息 = 文本_取出中间文本 (主窗口.编辑框1.内容, “发来消息:”, “:信息”)
延迟 (1000)
.如果 (主窗口.选择框1.选中 = 真)
调试输出 (关键字)
.如果 (消息 = 主窗口.编辑框2.内容)
发送的信息.内容 = 主窗口.编辑框3.内容
QQ_发送好友消息 (发送对象.内容, 发送的信息.内容)
主动发送.销毁 ()