文件下载器自动关联IE带进度条

易语言 2020-08-07 19:01:42

文件下载器自动关联IE带进度条

脚本路径 = 取运行目录 () + “\myDown.htm”
易程序路径 = 长名到短名 (取运行目录 () + “\文件下载器.exe”)
' 脚本的WScript.Shell只认短文件名,所以要转换
STEP = 1
' 添加IE右键菜单下载链接项
.如果真 (写注册项 (#现行用户, “Software\Microsoft\Internet Explorer\MenuExt\使用我的程序下载链接\”, 脚本路径))
STEP = 2
' 写Contexts值是决定本菜单项在什么时候是有效的,该值为以下组合
' 我们希望菜单项在用户点击图片或者超链接时出现,那么我们就将值设置为34
' 如果不写Contexts项,就是任何时候都出现
.如果真 (写注册项 (#现行用户, “Software\Microsoft\Internet Explorer\MenuExt\使用我的程序下载链接\contexts”, 34))
STEP = 3
' 写出脚本文件
脚本內容 = 到文本 (#脚本)
脚本內容 = 子文本替换 (脚本內容, “程序全路径”, 易程序路径, , , 真)
.如果真 (写到文件 (脚本路径, 到字节集 (脚本內容)))
信息框 (“安装完毕!关闭所有的IE窗口,重新打开IE即可生效.”, 0, )