腾讯滑块识别源码

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 l_content, 文本型
.局部变量 l_time, 整数型

l_time ＝ 取启动时间 ()
识别任务 (“&aid=16&uin=&sid=&cap_cd=”)
.循环判断首 ()
    l_content ＝ 识别结果 ()
    调试输出 (l_content)
    .如果真 (l_content ＝ “”)
        延迟 (1000)
    .如果真结束

.循环判断尾 (l_content ＝ “”)
调试输出 (取启动时间 () － l_time)
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 识别结果, 文本型
.局部变量 l_handle, 整数型
.局部变量 l_content, 文本型

l_handle ＝ 打开文件 (取运行目录 () ＋ “识别结果.txt”, 6, 1)
移到文件首 (l_handle)
l_content ＝ 读入一行 (l_handle)
移到文件首 (l_handle)
删除数据 (l_handle, 取文本长度 (l_content) ＋ 2)
关闭文件 (l_handle)
返回 (l_content)

.子程序 识别任务, 逻辑型
.参数 p_content, 文本型
.局部变量 l_handle, 整数型

l_handle ＝ 打开文件 (取运行目录 () ＋ “识别任务.txt”, 6, 1)
.如果真 (l_handle ＞ 0)
    移到文件尾 (l_handle)
    写文本行 (l_handle, p_content)
    关闭文件 (l_handle)
.如果真结束
返回 (l_handle ＞ 0)

@tayuyu