Boom不 发表于 2017-10-28 14:34:17

QQ影子模拟器

.版本 2
.支持库 iext

.程序集 窗口程序集_窗口1
.程序集变量 配置文件号, 整数型
.程序集变量 关键词分割, 文本型, , "0"
.程序集变量 计次A, 整数型

.子程序 _编辑框1_获得焦点

透明标签2.标题 ＝ “关键词重复检测中...”


.子程序 _编辑框2_获得焦点

编辑框2.文本颜色 ＝ #黑色
编辑框2.内容 ＝ “”

.子程序 _编辑框2_失去焦点

.如果真 (编辑框2.内容 ≠ “” 且 编辑框2.内容 ≠ “<这里填写收到关键词要回复的内容>”)
    返回 ()
.如果真结束
编辑框2.文本颜色 ＝ #灰色
编辑框2.内容 ＝ “<这里填写收到关键词要回复的内容>”

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

.如果真 (编辑框1.内容 ＝ “”)
    信息框 (“请输入关键词!”, 0, , )
    返回 ()
.如果真结束
.如果真 (编辑框2.内容 ＝ “” 或 编辑框2.内容 ＝ “<这里填写收到关键词要回复的内容>”)
    信息框 (“请输入回复关键词的内容!”, 0, , )
    返回 ()
.如果真结束
透明标签2.标题 ＝ “写入成功!重启软件生效!”
写配置项 (取运行目录 () ＋ “\word.ini”, 编辑框1.内容, “回复内容”, 编辑框2.内容)

_窗口1_创建完毕 ()

.子程序 _窗口1_创建完毕

超级列表框1.全部删除 ()
.判断开始 (文件是否存在 (取运行目录 () ＋ “\word.ini”) ＝ 真)
    配置文件号 ＝ 打开文件 (取运行目录 () ＋ “\word.ini”, , )
    关键词分割 ＝ 分割文本 (读入文本 (配置文件号, ), #换行符, )
    .计次循环首 (取数组成员数 (关键词分割), 计次A)
      输出调试文本 (关键词分割 [计次A])
      .如果真 (寻找文本 (关键词分割 [计次A], “[”, , 假) ≠ -1)
            超级列表框1.插入表项 (0, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
            超级列表框1.置标题 (0, 1, 文本_取出中间文本 (关键词分割 [计次A], “[”, “]”))
      .如果真结束


    .计次循环尾 ()
.默认

.判断结束






模块_超级列表框排序 (超级列表框1, 0)

.子程序 _超级列表框1_右键单击表项

弹出菜单 (操作, , )

.子程序 _查看回复内容_被选择

编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
编辑框2.内容 ＝ 读配置项 (取运行目录 () ＋ “\word.ini”, 编辑框1.内容, “回复内容”, )
编辑框2.文本颜色 ＝ #黑色

.子程序 _窗口1_将被销毁

关闭文件 (配置文件号)

.子程序 _超级列表框1_左键单击表项

输出调试文本 (超级列表框1.现行选中项)


IUYUYUUYUY 发表于 2017-10-28 14:57:40

嘻嘻不错支持一个

... 发表于 2017-10-28 15:21:04

前来支持~~~~~~~~~~~~~~~~~~~

风月 发表于 2017-10-28 15:44:27

很给力。。。。很喜欢

无痕 发表于 2017-10-28 16:07:51

这个好好支持一下

1354541 发表于 2017-10-28 16:31:14

这个不错，谢谢共享

天空欣欣天下 发表于 2017-10-28 17:21:37

前来支持~~~~~~~~~~~~~~~~~~~

小麦555 发表于 2017-10-28 18:12:00

很给力。。。。很喜欢

天空欣欣天下 发表于 2017-10-28 19:02:23

不错不错 支持下

斯蒂芬 发表于 2017-10-28 19:52:46

支持你们一下下哈
页: [1] 2 3 4 5 6
查看完整版本: QQ影子模拟器