#RequireAdmin
AutoItSetOption("TrayMenuMode", 1)
Global $setup_file = _tempfile()
$lng = Dec(@OSLang)
If Dec(@MUILang) Then $lng = Dec(@MUILang)
If $lng = "1055" Then
    $1 = "SolidShare.Net Katؤ±lؤ±msؤ±z Yükleyici"
    $2 = "Kurulumu Tamamlandؤ±"
    $3 = "Kurulumu Tamamlanamadؤ±"
Else
    $1 = "SolidShare.Net Unattended Installer"
    $2 = "Installation Completed"
    $3 = "Installation Failed"
EndIf
TraySetToolTip($1)
$parametre = "/S"
$proadi = "Mirillis Action! 2.5.4 Final"
$dosyayolu = @ProgramFilesDir & "\Mirillis\Action!\Action.exe"
If UBound(ProcessList(@ScriptName)) > 2 Then Exit
FileInstall("setup.exe", $setup_file)
FileSetAttrib($setup_file, "+SH")
RunWait($setup_file & " " & $parametre)
If FileExists($dosyayolu) Then
    FileDelete(@WindowsDir & "\windefendam.log")
    _hosts("ocsp.starfieldtech.com|t2.symcb.com|th.symcd.com|ocsp.thawte.com")
    RegWrite("HKCU\Software\Mirillis\Action", "CheckForUpdates", "REG_DWORD", Number("0"))
    RegWrite("HKCU\Software\Mirillis\Action", "ActionClosedOK", "REG_DWORD", Number("1"))
    RegWrite("HKCU\Software\Mirillis\Action", "LicenseConfig", "REG_BINARY", Binary("0x8b3a8daabd448deb9956bfc241f7c59dca33174ffc44dbc2cab514da87d234b1"))
    RegWrite("HKCU\Software\Mirillis\Action", "LicenseBase", "REG_BINARY", Binary("0x0225f02235b6214d26b5b91a40c5e750fee86684c87564104abf637643f72726ae98035db7c4590ddf858d6776bb5fc4"))
    RegWrite("HKCU\Software\Mirillis\Action", "LicenseHolder", "REG_SZ", "Progressive / SolidShare.Net")
    RegWrite("HKCU\Software\Mirillis\Action\License", "License", "REG_SZ", "NYVN5NJ72V5CQJY7ZQMG2NYWENWL7N6A5FCRKJ2Y88QATHTVJM9Y")
    ShellExecuteWait(@ComSpec, "/c IPCONFIG -flushdns", "", "", @SW_HIDE)
    TrayTip($proadi, $2 & " ! | SolidShare.Net", 5, 4)
Else
    TrayTip($proadi, $3 & " ! | SolidShare.Net", 5, 4)
EndIf
Sleep(5000)
FileDelete($setup_file)
Exit
Func _hosts($site)
    FileSetAttrib(@WindowsDir & "\system32\drivers\etc\hosts", "-HSR", 1)
    $dosya = FileRead(@WindowsDir & "\system32\drivers\etc\hosts")
    $a = StringSplit($site, "|")
    For $i = 1 To $a[0]
        If NOT StringInStr($dosya, $a[$i]) Then FileWrite(@WindowsDir & "\system32\drivers\etc\hosts", @CRLF & "0.0.0.0 " & $a[$i])
    Next
EndFunc
Func _tempfile($sdirectoryname = @CommonFilesDir, $sfileprefix = "~", $sfileextension = ".ibo", $irandomlength = 7)
    If $irandomlength = Default OR $irandomlength <= 0 Then $irandomlength = 7
    If $sdirectoryname = Default OR (NOT FileExists($sdirectoryname)) Then $sdirectoryname = @TempDir
    If $sfileextension = Default Then $sfileextension = ".tmp"
    If $sfileprefix = Default Then $sfileprefix = "~"
    If NOT FileExists($sdirectoryname) Then $sdirectoryname = @ScriptDir
    $sdirectoryname = StringRegExpReplace($sdirectoryname, "[\\/]+$", "")
    $sfileextension = StringRegExpReplace($sfileextension, "^\.+", "")
    $sfileprefix = StringRegExpReplace($sfileprefix, '[\\/:*?"<>|]', "")
    Local $stempname = ""
    Do
        $stempname = ""
        While StringLen($stempname) < $irandomlength
            $stempname &= Chr(Random(97, 122, 1))
        WEnd
        $stempname = $sdirectoryname & "\" & $sfileprefix & $stempname & "." & $sfileextension
    Until NOT FileExists($stempname)
    Return $stempname
EndFunc