火山无水印易语言源码
.版本 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)