X

برنامج تصوير الشاشة Mirillis Action! تثبيت وتفعيل صامت

Collapse
  • تصفية
  • الوقت
  • عرض
مسح الكل
مشاركات جديدة
  • مشرف البرامج
    • Sep 2018
    • 89




    برنامج تصوير الشاشة
    Mirillis Action! 2.5.4.

    تثبيت وتفعيل صامت


    x64 Bit System
    x32 Bit System
    خط فاصل


    عمل البرنامج صامت على طريقة فريق سوليد شير
    بإستخدام Autoit


    الكود المستخدم لعمل البرنامج صامت مع التفعيل بالسريال
    وطريقة اظهار التثبيت فالتاسك بار



    Code:
    #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
    Link

Working...
X