公告栏在线读取百度博客文章内容无需服务器【公告栏例程源码】

诗雨乾瑞

.版本 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, )
.否则

.如果结束

诗雨乾瑞

我去试试啊  啊

jxf888

好东西一定要收藏，顶你

似水年华555

来看看了嘿嘿！！~

ch84112560

看看学习了！！！！

QQSQ

你还没搞编码呢
要用新编码大全.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]

欣儿魅

貌似可以吧

飞翔的企鹅

瞎子啊看看啊

飞翔的企鹅

下载学习啊

1748065414

看看