精易模块命令 之 设置为默认浏览器

果子

[e]
.版本 2
.子程序 系统_设置为默认浏览器, , 公开, 如：自己做了个易语言浏览器，可以用这句设置成默认的；
.参数 文件名绝对路径, 文本型, 可空, 可空:如果留空将设置本程序为默认浏览器;浏览器的可执行文件路径；
.参数 类型, 整数型, 可空, 可空:默认为0,0=设置指定或本程序为默认浏览器,1=设置IE为默认浏览器;
.局部变量 局_运行目录, 文本型
局_运行目录 ＝ 取运行目录 () ＋ “\”
.如果 (类型 ＝ 0)
    .如果 (是否为空 (文件名绝对路径) ＝ 真)
        写注册项 (1, “htmlfile\shell\”, “e”)
        写注册项 (1, “htmlfile\shell\e\command\”, 局_运行目录 ＋ 取执行文件名 () ＋ “ ” ＋ “%1”)
        写注册项 (1, “HTTP\shell\”, “e”)
        写注册项 (1, “HTTP\shell\e\command\”, 局_运行目录 ＋ 取执行文件名 () ＋ “ ” ＋ “%1”)
        写注册项 (1, “https\shell\”, “e”)
        写注册项 (1, “https\shell\e\command\”, 局_运行目录 ＋ 取执行文件名 () ＋ “ ” ＋ “%1”)
        写注册项 (1, “InternetShortcut\shell\”, “e”)
        写注册项 (1, “InternetShortcut\shell\e\command\”, 局_运行目录 ＋ 取执行文件名 () ＋ “ ” ＋ “%1”)
        写注册项 (1, “mhtmlfile\shell\”, “e”)
        写注册项 (1, “mhtmlfile\shell\e\command\”, 局_运行目录 ＋ 取执行文件名 () ＋ “ ” ＋ “%1”)
    .否则
        写注册项 (1, “htmlfile\shell\”, “e”)
        写注册项 (1, “htmlfile\shell\e\command\”, 文件名绝对路径 ＋ “ ” ＋ “%1”)
        写注册项 (1, “HTTP\shell\”, “e”)
        写注册项 (1, “HTTP\shell\e\command\”, 文件名绝对路径 ＋ “ ” ＋ “%1”)
        写注册项 (1, “https\shell\”, “e”)
        写注册项 (1, “https\shell\e\command\”, 文件名绝对路径 ＋ “ ” ＋ “%1”)
        写注册项 (1, “InternetShortcut\shell\”, “e”)
        写注册项 (1, “InternetShortcut\shell\e\command\”, 文件名绝对路径 ＋ “ ” ＋ “%1”)
        写注册项 (1, “mhtmlfile\shell\”, “e”)
        写注册项 (1, “mhtmlfile\shell\e\command\”, 文件名绝对路径 ＋ “ ” ＋ “%1”)
    .如果结束
.否则
    写注册项 (1, “htmlfile\shell\”, “open”)
    写注册项 (1, “HTTP\shell\”, “open”)
    写注册项 (1, “https\shell\”, “open”)
    写注册项 (1, “InternetShortcut\shell\”, “open”)
    写注册项 (1, “mhtmlfile\shell\”, “open”)
.如果结束
[/e]

易团俊

这个需要带走。。。

yao84

很不错~~`支持！

笨潴

{:3_232:}果仔我想要读验证码那部分{:3_229:}

q1051278389

地下也要支持

取什么名

不行啊 .....

摩斯

不能啊！！！！

封印

拿来参考，还是我的比较好！

linjiazhenok

复制下来看看

易魂

回帖是美德！f