[JavaScript] 纯文本查看 复制代码
.版本 2
.支持库 iext
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 初始化, , , , <!!!>
.程序集变量 r, 文本型
.程序集变量 json, 类_json
.程序集变量 计次, 整数型
.程序集变量 计数, 整数型
.程序集变量 n, 文本型
.子程序 __启动窗口_创建完毕
初始化 = ??? () ' <!!!>
??? () ' <!!!>
??? () ' <!!!>
??? () ' <!!!>
??? () ' <!!!>
??? () ' <!!!>
??? () ' <!!!>
??? () ' <!!!>
??? () ' <!!!>
线程_启动 (&l, , )
.子程序 l
r = 取运行目录 () + “\1.json”
r = 到文本 (读入文件 (r))
r = 编码_URL解码 (r, 真)
json.解析 (r, , )
计数 = json.取属性 (“”).成员数 ()
' 调试输出 (r, 计数)
.计次循环首 (计数, 计次)
计数 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (计数, 0, json.取通用属性 (“[” + 到文本 (计次 - 1) + “].name”, ))
超级列表框1.置标题 (计数, 1, json.取通用属性 (“[” + 到文本 (计次 - 1) + “].urls[0]”, ))
超级列表框1.置标题 (计数, 2, json.取通用属性 (“[” + 到文本 (计次 - 1) + “].urls[1]”, ))
处理事件 ()
.计次循环尾 ()
.子程序 _水星铬浏览框1_进程即将初始化
.参数 进程类型, 文本型
.参数 命令行, , 参考, <!!!>
' 禁止浏览器生成 debug.log 文件
??? () ' <!!!>
' 浏览器自动播放视频
??? () ' <!!!>
??? () ' <!!!>
.子程序 __启动窗口_将被销毁
写到文件 (取运行目录 () + “\” + “cache.bat”, 到字节集 (“rd /s /q ” + #引号 + 取运行目录 () + “\cache” + #引号 + #换行符 + “del %0”))
运行 (取运行目录 () + “\” + “cache.bat”, 假, 1)
销毁 ()
.子程序 _水星铬浏览框1_浏览器标题已改变
.参数 浏览器, , 参考, <!!!>
.参数 变更标题, 文本型
调试输出 (变更标题)
.子程序 子程序1
.局部变量 浏览器, , , , <!!!>
.局部变量 框架, , , , <!!!>
.局部变量 内容, 文本型
调试输出 (999)
.判断开始 (寻找文本 (n, “tv.cctv.com”, , 真) ≠ -1)
内容 = #tv
.判断 (寻找文本 (n, “yangshipin.cn”, , 真) ≠ -1)
内容 = #yangshipin
.默认
.判断结束
延迟 (5000)
浏览器 = ??? () ' <!!!>
??? () ' <!!!>
.子程序 _超级列表框1_当前表项被改变
.局部变量 浏览器, , , , <!!!>
n = 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
.判断开始 (n = “”)
n = 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
.默认
.判断结束
n = 子文本替换 (n, “=”, “\u003d”, , , 真)
置剪辑板文本 (n)
.如果真 (??? () > 0) ' <!!!>
浏览器 = ??? () ' <!!!>
??? () ' <!!!>
.如果真结束
计次 = 0
.子程序 _水星铬浏览框1_浏览器加载进度已更新
.参数 浏览器, , 参考, <!!!>
.参数 进度值, 双精度小数型
' 调试输出 (到整数 (进度值))
计次 = 计次 + 到整数 (进度值)
调试输出 (计次)
.判断开始 (计次 ≥ 2)
线程_启动 (&子程序1, , )
.默认
.判断结束