腾讯在线人数采集源码

.版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 正则, 正则表达式类 .程序集变量 开奖时间, 文本型 .程序集变量 SQL, 类_数据库 .程序集变量 表名, 文本型 .程序集变量 秒数, 整数型 .子程序 __启动窗口_创建完毕 时钟1.时钟周期 = 1000 表名 = “txffcj” ' sql数据库的表名 秒数 = 取秒 (时间_取北京时间 ()) .子程序 子程序_采集, 文本型 .局部变量 请求地址, 文本型 .局部变量 返回数据, 文本型 请求地址 = “http://77tj.org/api/tencent/onlineim” 返回数据 = 到文本 (网页_访问_对象 (请求地址, 0, , , , , , , , , , , , , , , , , )) 正则.创建 (#正则, 返回数据, , , , ) 开奖时间 = 正则.取子匹配文本 (1, 1, ) ' 开奖时间 返回 (正则.取子匹配文本 (1, 2, )) ' 开奖号 .子程序 _时钟1_周期事件 .局部变量 在线人数, 文本型 .局部变量 执行结果, 逻辑型 秒数 = 秒数 + 1 .如果真 (秒数 > 0 且 秒数 < 8) 在线人数 = 子程序_采集 () .如果 (编辑框1.内容 ≠ 在线人数 且 在线人数 ≠ “”) 编辑框1.内容 = 在线人数 执行结果 = SQL.方法_增加记录行 (表名, “shijian='” + 开奖时间 + “',renshu='” + 在线人数 + “',kaijianghao='” + 子程序_分离开奖号 (在线人数) + “'”) 标签1.标题 = 开奖时间 .否则 .如果结束 .如果真结束 .如果真 (秒数 ≥ 60) 秒数 = 取秒 (时间_取北京时间 ()) .如果真结束 .子程序 子程序_分离开奖号, 文本型 .参数 在线人数, 文本型 .局部变量 i, 整数型 .局部变量 分离号码, 文本型, , "0" .局部变量 万位, 整数型 文本_逐字分割 (在线人数, 分离号码) .计次循环首 (取数组成员数 (分离号码), i) 万位 = 万位 + 到整数 (分离号码 [i]) .计次循环尾 () 万位 = 万位 % 10 返回 (到文本 (万位) + 分离号码 [6] + 分离号码 [7] + 分离号码 [8] + 分离号码 [9])
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。必填项已用*标注