笨笨 发表于 2013-2-7 17:05:11

辅助在线人数使用统计源码

.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 网站, 文本型
.局部变量 文本, 文本型, , "2"
网站 ＝ “http://www.haoy195.com/”
文本 ＝ 到文本 (HTTP读文件 (网站 ＋ “online.asp”))
文本 ＝ 取中间文本 (文本 , #前, #后)
信息框 (“当前在线人数 ” ＋ 文本 ＋ “ 人”, 0, )
.子程序 取中间文本, 文本型, 公开
.参数 欲取其部分的文本, 文本型
.参数 开始关键字, 文本型
.参数 结束关键字, 文本型
.参数 起始取出位置, 整数型, 可空
.参数 结束字符位置, 整数型, 参考 可空
.局部变量 z1, 整数型
.局部变量 z2, 整数型
.如果真 (是否为空 (起始取出位置))
    起始取出位置 ＝ -1
.如果真结束
z1 ＝ 寻找文本 (欲取其部分的文本, 开始关键字, 起始取出位置, 假)
.如果真 (z1 ＞ -1)
    z1 ＝ z1 ＋ 取文本长度 (开始关键字)
    z2 ＝ 寻找文本 (欲取其部分的文本, 结束关键字, z1, 假)
    .如果真 (z2 ＞ z1)
      结束字符位置 ＝ z2 ＋ 取文本长度 (结束关键字)
      返回 (取文本中间 (欲取其部分的文本, z1, z2 － z1))
    .如果真结束
.如果真结束
结束字符位置 ＝ -1
返回 (“”)

**** Hidden Message *****

abc123 发表于 2013-2-9 12:58:04

{:2_31:}呵呵

1139702232 发表于 2013-2-19 20:21:30

√带点图标√手机名片赞。

炫舞音符 发表于 2013-3-6 08:45:33

学习 支持原创教程

sqt123 发表于 2013-3-10 11:41:59

呼呼   什么内容

预约乖乖 发表于 2013-3-10 19:27:23

怎么看都像天书嘿嘿

ldy520 发表于 2013-3-11 14:30:05

呵呵。。。来看看饿

wanghuan520 发表于 2013-3-12 02:45:50

看看哦，看看好不好

尐蕾絲丶 发表于 2013-3-18 09:10:37

貌似不错唉

as248199574 发表于 2013-4-18 21:15:29

DDDDDDDDDDDDDDDDDDDDDDDD
页: [1] 2 3
查看完整版本: 辅助在线人数使用统计源码