火山无水印易语言源码

火山无水印易语言源码

@q838210720

.版本 2
.支持库 spec
.支持库 eAPI

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

.子程序 _按钮1_被单击

.判断开始 (寻找文本 (编辑框1.内容, “戳我”, , 假) ≠ -1)
    编辑框1.内容 ＝ 文本_取出中间文本 (编辑框1.内容, “戳我>>”, “ 复制此链接”)
    延迟 (200)
.默认


.判断结束
解析 ()
打开指定网址 (编辑框2.内容)

.子程序 解析, 文本型
.局部变量 i, 文本型
.局部变量 i1, 文本型
.局部变量 i2, 文本型
.局部变量 i3, 文本型

i ＝ 编码_Utf8到Ansi (网页_访问 (编辑框1.内容))
标签1.标题 ＝ 文本_取出中间文本 (i, #常量1, #常量2)
i1 ＝ 文本_取出中间文本 (i, #常量3, #常量4)
i2 ＝ 文本_取右边 (i1, #常量3, , )
调试输出 (i2)
i3 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://api-hl.huoshan.com/hotsoon/item/video/_playback/?video_id=” ＋ i2 ＋ “&line=0&app_id=1112&vquality=normal&watermark=0&long_video=0&sf=1&ts=” ＋ 时间_取现行时间戳 (真)))
编辑框2.内容 ＝ 文本_取出中间文本 (i3, #常量5, #常量6)
返回 (i)