精易论坛

标题: 公告栏在线读取百度博客文章内容无需服务器【公告栏例程源码】 [打印本页]
作者: 740183466    时间: 2011-12-21 00:04
标题: 公告栏在线读取百度博客文章内容无需服务器【公告栏例程源码】
公告栏在线读取百度博客文章内容无需服务器【公告栏例程源码】
不解释；
公告栏例子.zip (2.1 KB, 下载次数: 195)
作者: 怡红公子    时间: 2011-12-21 18:27
天天来看看
作者: 太空人nyl    时间: 2011-12-21 21:52
提示: 作者被禁止或删除 内容自动屏蔽
作者: 纯黑色    时间: 2012-1-7 09:28
感谢提供分享
作者: 胆小的老虎    时间: 2012-1-7 11:11
刚好需要谢了
作者: 素顏じ亦傾城ジ    时间: 2012-1-11 21:14
     呵呵...  从别的源码里面截出来的?
作者: a69506950    时间: 2012-3-18 12:43
需要小学打算
作者: 怀念CK    时间: 2012-9-23 14:33
收下了，谢谢!
作者: qo2540    时间: 2012-10-5 19:12
感谢你的分享，，顶
作者: zhaowei78    时间: 2012-10-15 10:52
看看行不行呢
作者: 诗雨乾瑞    时间: 2012-11-18 13:05
.版本 2
.支持库 internet

.子程序 __启动窗口_创建完毕

方向 ＝ “左”
画板1.字体 ＝ 标签1.字体
cd ＝ 画板1.取高度 (“A”) ÷ 2
网页源码 ＝ 到文本 (HTTP读文件 (“http://xzyyy.jobidc.com/”))
公告内容 ＝ 文本_取出中间文本 (网页源码, “【推荐日志：”, “】”)
输出调试文本 (公告内容)
标签1.标题 ＝ 到文本 (公告内容)
标签1.宽度 ＝ 取文本长度 (标签1.标题) × cd
标签1.左边 ＝ 画板1.宽度
时钟1.时钟周期 ＝ 10
时钟2.时钟周期 ＝ 30000
时钟3.时钟周期 ＝ 40000


.子程序 _时钟1_周期事件

.如果 (标签1.左边 ＋ 标签1.宽度 ＝ 0)
    标签1.左边 ＝ 画板1.宽度
.否则

.如果结束
标签1.左边 ＝ 标签1.左边 － 1

.子程序 _时钟2_周期事件

网页源码 ＝ 到文本 (HTTP读文件 (“http://xzyyy.jobidc.com/”))
公告内容 ＝ 文本_取出中间文本 (网页源码, “【”, “】”)
输出调试文本 (公告内容)
标签2.标题 ＝ 到文本 (公告内容)

.子程序 _时钟3_周期事件

.如果 (标签1.标题 ≠ 标签2.标题)
    信息框 (“信息更新了”, 0, )
.否则

.如果结束
作者: 诗雨乾瑞    时间: 2012-11-18 13:05
我去试试啊  啊
作者: jxf888    时间: 2013-1-7 19:33
提示: 作者被禁止或删除 内容自动屏蔽
作者: 似水年华555    时间: 2013-1-25 00:08
来看看了嘿嘿！！~
作者: ch84112560    时间: 2013-2-6 15:29
看看学习了！！！！
作者: QQSQ    时间: 2013-2-10 14:48
你还没搞编码呢
要用新编码大全.EC哦
[e]
.版本 2
.支持库 internet
.支持库 eAPI

.子程序 公告

读取公告 ()
更新公告 ()

.子程序 更新公告
.局部变量 返回文本, 文本型
.局部变量 最新版, 文本型
.局部变量 更新说明, 文本型
.局部变量 下载地址, 文本型
.局部变量 系统版本, 文本型

处理事件 ()
系统版本 ＝ “1.1”
返回文本 ＝ 到文本 (HTTP读文件 (“http://hi.baidu.com/qq1609554760/item/aae0d42be86f17cda517b61f”))
返回文本 ＝ 到文本 (UTF8转ANSI (到字节集 (返回文本)))
返回文本 ＝ 取指定内容 (返回文本, “开始</P><P>”, “.结束”)
最新版 ＝ 取指定内容 (返回文本, “最新版=”, “</p>”)
更新说明 ＝ 取指定内容 (返回文本, “更新说明=”, “</p>”)
下载地址 ＝ 取指定内容 (返回文本, “下载地址=”, “</p>”)
.判断开始 (系统版本 ≠ 最新版)
    .判断开始 (提示框 (“最新版:” ＋ 最新版 ＋ #换行符 ＋ “系统版本：” ＋ 系统版本 ＋ #换行符 ＋ “更新说明：” ＋ 更新说明, #询问图标 ＋ #确认取消钮, ) ＝ #确认钮)
        打开指定网址 (下载地址)
        结束 ()
    .默认

    .判断结束

.默认

.判断结束


.子程序 读取公告
.局部变量 返回文本, 文本型
.局部变量 公告, 文本型

处理事件 ()
返回文本 ＝ 到文本 (HTTP读文件 (“http://hi.baidu.com/qq1609554760/item/aae0d42be86f17cda517b61f”))  ' 只需要替换这个地址就可以了！
返回文本 ＝ 到文本 (UTF8转ANSI (到字节集 (返回文本)))
返回文本 ＝ 取指定内容 (返回文本, “开始</P><P>”, “.结束”)
公告 ＝ 取指定内容 (返回文本, “公告=”, “</p>”)
编辑框1.内容 ＝ 公告  ' 编辑框1.内容是公告栏

.子程序 取指定内容, 文本型
.参数 完整内容, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型

总长度 ＝ 取文本长度 (完整内容)
临时位置 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)
临时文本 ＝ 取文本中间 (完整内容, 临时位置, 总长度)
总长度 ＝ 取文本长度 (临时文本)
临时位置 ＝ 寻找文本 (临时文本, 右边文本, , 假) － 1
临时文本 ＝ 取文本中间 (临时文本, 1, 临时位置)
返回 (临时文本)
[/e]
作者: 欣儿魅    时间: 2013-2-10 17:25
貌似可以吧
作者: 飞翔的企鹅    时间: 2013-3-14 00:02
提示: 作者被禁止或删除 内容自动屏蔽
作者: 飞翔的企鹅    时间: 2013-3-14 00:05
提示: 作者被禁止或删除 内容自动屏蔽
作者: 1748065414    时间: 2013-3-16 16:29
看看
作者: ぃ?幸福    时间: 2013-3-31 14:59
看了好多， 好像就这个比较可行，
作者: 我无你啊    时间: 2013-3-31 15:20
呵呵 谢谢楼主
作者: 6882245    时间: 2013-4-17 13:38
提示: 作者被禁止或删除 内容自动屏蔽
作者: 6882245    时间: 2013-4-17 13:39
提示: 作者被禁止或删除 内容自动屏蔽
作者: 安小庄    时间: 2013-4-29 15:44
看看行不行呢
作者: qsbbf    时间: 2013-4-29 19:52
拿去学习了，多谢LZ
作者: 秦风醒    时间: 2013-5-22 13:38
谢谢楼主万分感谢
作者: 凌建峰    时间: 2013-6-27 13:35
好东西拿走咯
作者: Rin＆King    时间: 2013-7-12 13:04
谢谢分享，我来看看的。
作者: 「Say．Eni﹒    时间: 2013-7-12 19:08
感谢你的分享，，顶
作者: 人不犯二枉少年    时间: 2013-7-27 15:22
必须支持。。。。
作者: 1030548480    时间: 2013-8-10 16:38
学习学习！！！
作者: 1030548480    时间: 2013-8-10 16:44
不能用！！测试完毕
作者: 风逸云飘    时间: 2013-9-21 12:41
失效了，，
作者: 爱生活爱晴天    时间: 2017-11-14 20:16
作者: xiaowu5201314    时间: 2022-2-27 23:32
快快快.................
作者: xiaowu5201314    时间: 2022-2-27 23:34
没用 ,浪费。。。。。。。。。。。。。。。。
作者: 唐双祁    时间: 2023-8-31 13:32
666666666666666666666666666666666666666666



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4