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

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

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

游客，如果您要查看本帖隐藏内容请回复

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

呵呵

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

		自动登录	找回密码
密码			立即注册

[源码分享] 辅助在线人数使用统计源码

本帖子中包含更多资源

相关帖子