易语言怎么写出一个类似公告栏出来丫
就是我想搞个公告栏,一个小框框的样子,开机运行就弹出公告内容 展开
动态公告(可修改)
.版本 2
.支持库 internet
.子程序 __启动窗口_创建完毕
.局部变量 我的博客日志网址, 文本型
' 到自己的空间写新文章.内容举例:
' #@#@软件广告1号#@#@广告内容1号#@#@
' #@#@软件广告2号#@#@广告内容2号#@#@
' 发表后的文章链接是:http://hi.baidu.com/%CB%BE%C2%ED%B3%BE%C1%B5/home
' 要更新公告只需要更改你的日志内容
' #@#@公告1号#@#@这是我的公告①!有问题欢迎提问!#@#@
' #@#@公告2号#@#@这是我的公告②!有问题欢迎提问!#@#@
' 我这里直接设置成这个百度知道问题的页面,获取上边的两个公告
我的博客日志网址 = “http://zhidao.baidu.com/question/263253968.html”
标签_公告.标题 = 获取公告 (我的博客日志网址, “#@#@公告2号#@#@”, “#@#@”)
信息框 (获取公告 (我的博客日志网址, “#@#@公告1号#@#@”, “#@#@”), 0, )
.子程序 获取公告, 文本型, 公开, 到自己博客日志页获取公告内容
.参数 _日志网址, 文本型
.参数 _公告左, 文本型
.参数 _公告右, 文本型
.参数 _失败提示, 文本型, 可空, 默认“获取公告失败”
.局部变量 公告, 文本型
.局部变量 日志内容, 文本型
.局部变量 a, 整数型
.局部变量 b, 整数型
.如果真 (是否为空 (_失败提示))
_失败提示 = “获取公告失败”
.如果真结束
日志内容 = 到文本 (HTTP读文件 (_日志网址))
a = 寻找文本 (日志内容, _公告左, , 假)
.如果真 (a = -1)
返回 (_失败提示)
.如果真结束
a = a + 取文本长度 (_公告左)
b = 寻找文本 (日志内容, _公告右, a, 假)
.如果真 (b = -1)
返回 (_失败提示)
.如果真结束
公告 = 取文本中间 (日志内容, a, b - a)
.如果真 (公告 = “”)
返回 (_失败提示)
.如果真结束
返回 (公告)
2025-01-01 广告