易语言和网站交互源码

.版本 2
.支持库 HtmlView

.程序集 窗口程序集_启动窗口

.子程序 _超文本浏览框1_即将跳转, 逻辑型
.局部变量 text, 文本型

text ＝ 超文本浏览框1.地址
.如果真 (寻找文本 (text, “eyy:改标题”, , 假) ＝ 1)
    标题 ＝ 取两文本中间 (text, “eyy:改标题[”, “]”)
.如果真结束
.如果真 (寻找文本 (text, “eyy:信息框”, , 假) ＝ 1)
    信息框 (取两文本中间 (text, “eyy:信息框[”, “#”), 0, 取两文本中间 (text, 取两文本中间 (text, “eyy:信息框[”, “#”) ＋ “#”, “]”))
.如果真结束

.如果真 (text ＝ “eyy:关闭易语言”)
    结束 ()
.如果真结束
返回 (假)

.子程序 取两文本中间, 文本型, 公开
.参数 文本, 文本型
.参数 左边的文本, 文本型
.参数 右边的文本, 文本型
.参数 起始位置, 整数型, 可空
.局部变量 开始, 整数型
.局部变量 结束, 整数型
.局部变量 长度, 整数型
.局部变量 内容, 文本型

开始 ＝ 寻找文本 (文本, 左边的文本, 起始位置, 真) ＋ 取文本长度 (左边的文本)
.如果真 (开始 ＝ -1 ＋ 取文本长度 (左边的文本))
    返回 (“获取失败”)
.如果真结束
结束 ＝ 寻找文本 (文本, 右边的文本, 开始, 真)
.如果真 (结束 ＝ -1)
    返回 (“获取失败”)
.如果真结束
长度 ＝ 结束 － 开始
内容 ＝ 取文本中间 (文本, 开始, 长度)
返回 (内容)

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

@dlam烧饭