API tools faq
paste
Advertisement
Shadowcat

Launcher v6.3

Shadowcat
Dec 21st, 2018
944
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 66.13 KB | None | 0 0
raw download clone embed print report
  1. #RequireAdmin
  2. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  3. #AutoIt3Wrapper_Icon=tmp\Launcher_min.ico
  4. #AutoIt3Wrapper_Outfile=Launcher.exe
  5. #AutoIt3Wrapper_Outfile_x64=Launcher_x64.exe
  6. #AutoIt3Wrapper_Compression=4
  7. #AutoIt3Wrapper_UseUpx=y
  8. #AutoIt3Wrapper_UPX_Parameters=--lzma
  9. #AutoIt3Wrapper_Res_Comment=Launcher AIO v6.3 Made with AutoIt.
  10. #AutoIt3Wrapper_Res_Description=Program Launcher And Installer
  11. #AutoIt3Wrapper_Res_Fileversion=6.3.0.9
  12. #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
  13. #AutoIt3Wrapper_Res_LegalCopyright=© Vova Gendel aka S60Team
  14. #AutoIt3Wrapper_Res_Language=1033
  15. #AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
  16. #AutoIt3Wrapper_Res_Field=CompanyName|S60Team
  17. #AutoIt3Wrapper_Res_Field=FileDescription|Program Launcher And Installer
  18. #AutoIt3Wrapper_Res_Field=ProductName|Launcher AIO
  19. #AutoIt3Wrapper_Run_Au3Stripper=y
  20. #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
  21. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  22.  
  23. ;#NoTrayIcon
  24. ;
  25. ; You can use code Below to self-sign with you own certificate, But! Enable Internet!
  26. ;#AutoIt3Wrapper_Run_After=""%scitedir%\tools\SignThisFile\CertSigner2.exe" "%out%" /NoPopup /NoLogfile"
  27. ;
  28. ; Warning! Very strong Check for Errors!:
  29. ;#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
  30. ;
  31. ; Cut Unused Functions and Comments (AutoIt v3.3.14.5):
  32. ;#AutoIt3Wrapper_Run_Au3Stripper=y
  33.  
  34. ;**************************************
  35. ; Silent Program Installer and Launcher
  36. ;  by Vova Gendel aka S60Team:
  37. ; - Detect OS
  38. ; - Detect Type and presence of a Disk (E: is CD-ROM, F: is Removable)
  39. ; - Disable Compatibility Assistant (Win7-10)
  40. ; - Disable Windows Defender (Win7-10)
  41. ; - Detect Wired Network Connection
  42. ; - Clear Temp
  43. ; - Create Shortcuts
  44. ; - Include some Network Fixes
  45. ; - Install Programs: AutoInstall, Unpack(Portable) and Silent Mode
  46. ;**************************************
  47.  
  48.  
  49. ;**************************************
  50. ;~ ToDo:
  51. ; - Disable Windows 10 Update Completely: Reg, Service and Hosts.
  52. ; - Save Folder Settings (Win7+)
  53. ;**************************************
  54.  
  55.  
  56. ;**************************************
  57. ;~ Include
  58. ;**************************************
  59. #include <GUIConstantsEx.au3>
  60. #include <StaticConstants.au3>
  61. #include <TabConstants.au3>
  62. #include <WindowsConstants.au3>
  63.  
  64.  
  65. ;**************************************
  66. ;~ Global Variables:
  67. ;**************************************
  68. Global $Debug = 0, $ConsoleLog = 0
  69. Global $7za, $icl, $nircmd, $wizmo, $echoo1, $echoo2, $status, $W_Main, $wmpos, $MGD
  70. Global $ProgramFiles, $ProgramFiles64, $AppDataLocal, $AppData, $UserTemp, $IEv
  71. Global $SystemDir, $Desktop, $Disk, $Startup, $StartupREG, $exepath, $WinDir, $IE_Edge
  72. Global $Firefox, $Opera, $Chrome, $Flashplayer, $Skype, $Torrent, $AnyDesk, $ISO
  73. Global $Imagine, $Akelpad, $STDUViewer, $Fraps, $FrapsCheck, $Win2, $Ammyy, $KLite
  74. Global $Office2003, $Office2007, $Office2010, $Office2016, $OpenOffice, $WPSOffice
  75. Global $Win, $DirectX, $Visual, $NET3, $NET4, $XNA, $Java, $PhysX, $OAL, $LightShot
  76. Global $UsbSafelyRemove, $WinStartMenu, $HTFT, $WinRAR, $uxTheme, $Hosts, $SInfo
  77. Global $AutoRunCleaner, $TotalCommander, $XPFix, $BKPDrivers, $NetworkFix, $PageFile
  78. Global $360TSE, $Comodo, $AVG, $UsbDiskEject, $msg, $SKP, $MB, $wsf1, $Disable10Updates
  79. Global $set_pagefile, $mem, $mem2, $meme, $meme2, $i1, $i2, $getPFregVal, $DISA10
  80. Global $rxpS, $DCAss, $VolumeMax, $CLRD, $ClearTemp, $DisableDefender, $IEPath
  81. Global $UninstallTool, $RevoUninstaller, $Revo1, $Revo2, $PuntoSwitcher, $AmlMaple
  82. Global $VLC, $POTPlayer, $JetAudio, $KMPlayer, $CCleaner, $Defraggler
  83.  
  84.  
  85. ;**************************************
  86. ;~ Custom User Functions and Snippets:
  87. ;**************************************
  88. ;~ Fix and Set Timer for Console Log:
  89. If $ConsoleLog = 1 Then
  90.   $Debug = 1
  91.   Global $Timer = TimerInit()
  92. EndIf
  93. If $Debug = 0 Then
  94.   $ConsoleLog = 0
  95. EndIf
  96.  
  97.  
  98. ;~ RegWrite Compact?
  99. Func _RegWrite($path,$key,$val,$type)
  100.     Local $val2
  101.     Switch $val
  102.         Case 1
  103.             $type = "REG_DWORD"
  104.             $val2 = '0x0000000'
  105.         Case 2
  106.             $type = "REG_SZ"
  107.             $val2 = ''
  108.         Case 3
  109.             $type = "REG_BINARY"
  110.             $val2 = Binary("0x0000000")
  111.             $val = Binary($val)
  112.         Case Else
  113.             MsgBox(4096,"Error!","Please, enter correct value!")
  114.     EndSwitch
  115.     Return RegWrite($path, $key, $type, $val2 & $val)
  116. EndFunc
  117.  
  118.  
  119. ;~ Detect OS Version (v4) by EXE:
  120. Global $Versions="5.1|5.2|6.0|6.1|6.2|6.3|10.", $UBound, $Split[7]
  121. $Split = StringSplit($Versions,"|")
  122. $UBound = (UBound($Split) - 1)
  123. Func _OS()
  124.   Local $i, $v, $ve
  125.   For $i=1 to $UBound
  126.     $v=StringRegExp(FileGetVersion('winver.exe'), '^'& $Split[$i] &'')
  127.     If $v > 0 Then
  128.       $ve = $i ; Return: Number
  129.       ExitLoop
  130.     EndIf
  131.   Next
  132.   Return $ve
  133. EndFunc   ;==>_OS
  134. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('OS: ' & Round(TimerDiff($Timer)) & @CRLF)
  135.  
  136.  
  137. ;~ Global Variables for Common Folders:
  138. ; C:\Program Files (x86)\  C:\Program Files\
  139. If @OSArch = 'x86' Then
  140.   $ProgramFiles = @HomeDrive & "\Program Files\"
  141.   $ProgramFiles64 = ""
  142. Else
  143.   $ProgramFiles = @HomeDrive & "\Program Files (x86)\"
  144.   $ProgramFiles64 = @HomeDrive & "\Program Files\"
  145. EndIf
  146.  
  147. If _OS() <= 2 Then
  148.   ; C:\Documents and Settings\User\Local Settings\Application Data\
  149.   $AppDataLocal = @UserProfileDir & "\Local Settings\Application Data\"
  150.   $AppData = @UserProfileDir & "\Application Data\"
  151. Else
  152.   ; C:\Users\User\AppData\Local\
  153.   $AppDataLocal = @UserProfileDir & "\AppData\Local\"
  154.   $AppData = @UserProfileDir & "\Application Data\Roaming\"
  155. EndIf
  156.  
  157. ; Warning! @SystemDir = System32 or SysWow64
  158. ;  so we use @HomeDrive + Path
  159. $SystemDir = @HomeDrive & "\Windows\System32\"
  160. $WinDir = @HomeDrive & "\Windows\"
  161.  
  162. ; User Temp path
  163. If _OS() <= 2 Then
  164.   ; C:\Documents and Settings\User\Local Settings\Temp
  165.   $UserTemp = @UserProfileDir & "\Local Settings\Temp\"
  166. Else
  167.   ; C:\Users\User\AppData\Local\Temp
  168.   $UserTemp = $AppDataLocal & "Temp\"
  169. EndIf
  170.  
  171. ; User Desktop dir
  172. $Desktop = @DesktopDir & "\"
  173.  
  174. ; Exe Path
  175. $exepath = @ScriptDir & "\"
  176.  
  177. ; Startup, v1
  178. If _OS() <= 2 Then
  179.   $Startup = @UserProfileDir & "\Главное меню\Программы\Автозагрузка\"
  180. Else
  181.   $Startup = $AppData & "Microsoft\Windows\Start Menu\Programs\Startup\"
  182. EndIf
  183. ;  Startup, v2
  184. $StartupREG = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
  185. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Global Variables: ' & Round(TimerDiff($Timer)) & @CRLF)
  186.  
  187.  
  188. ;~ Minimize ALL windows
  189. ;WinMinimizeAll()
  190.  
  191.  
  192. ;~ Disable Compatibility Assistant.
  193. ; Do the stuff:
  194. If _OS() > 2 Then
  195.   If RegRead("HKCU\Software\S60Team", "Compatibility Assistant") = "" Then
  196.     RegWrite($DCAss, "DisablePCA", "REG_DWORD", "0x00000001")
  197.     RegWrite("HKCU\Software\S60Team", "Compatibility Assistant", "REG_SZ", "Disabled")
  198.   EndIf
  199. EndIf
  200. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Compatibility Assistant: ' & Round(TimerDiff($Timer)) & @CRLF)
  201.  
  202.  
  203. ; Fix Tray Icon display. Lag, Disabled
  204. If Not @Compiled Then TraySetIcon("p:\Programming\Autoit\Launcher\tmp\Launcher_min.ico")
  205. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Fix Tray Icon: ' & Round(TimerDiff($Timer)) & @CRLF)
  206.  
  207.  
  208. ;**************************************
  209. ;~ User Functions
  210. ;**************************************
  211. ;~ Get Drive Info:
  212. Func _Drive($drive, $arg = 0)
  213.   ; UNKNOWN=RAW or Error, READY=HDD or USB, NOTREADY=CD, INVALID=no disk or unvaliable
  214.   If DriveStatus($drive) = "READY" Then
  215.     Switch $arg
  216.       Case 1
  217.         Return Round(DriveSpaceTotal($drive)) ; in megabytes
  218.       Case 2
  219.         Return Round(DriveSpaceFree($drive)) ; in megabytes
  220.       Case 3
  221.         Return DriveGetFileSystem($drive) ; 1= Error, FAT, FAT32, NTFS, CDFS = CD, UDF = DVD
  222.       Case 4
  223.         Return DriveGetType($drive) ; "Unknown", "Removable", "Fixed", "Network", "CDROM", "RAMDisk"
  224.       Case Else
  225.         Return 1
  226.     EndSwitch
  227.   ElseIf DriveStatus($drive) = "NOTREADY" Then
  228.     Return 5 ; CD or Cardreader
  229.   Else
  230.     Return 0 ; Drive Not Found or Corrupted.
  231.   EndIf
  232. EndFunc   ;==>_Drive
  233. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('_Drive: ' & Round(TimerDiff($Timer)) & @CRLF)
  234.  
  235.  
  236. ;~ Create Virtual drive from Folder and Delete it:
  237. ;ShellExecuteWait($SystemDir & "subst.exe", "Z: C:\Windows")
  238. ;ShellExecuteWait($SystemDir & "subst.exe", "Z: /D")
  239.  
  240.  
  241. ;~ Add 7zip to this exe.
  242. $7za = $exepath & "7za.exe"
  243. If FileExists($7za) = 0 Then
  244.   FileInstall("p:\Programming\Autoit\Launcher\tmp\7za.exe", $7za, 1)
  245. EndIf
  246. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('7za: ' & Round(TimerDiff($Timer)) & @CRLF)
  247.  
  248.  
  249. ;~ Add Icons Library File to this exe.
  250. ; Don't recommended to use Icons.au3 with DLL!
  251. $icl = $exepath & "icons.icl"
  252. If FileExists($icl) = 0 Then
  253.   FileInstall("p:\Programming\Autoit\Launcher\tmp\icons.icl", $icl, 1)
  254. EndIf
  255. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('ICL: ' & Round(TimerDiff($Timer)) & @CRLF)
  256.  
  257.  
  258. ;~ Check if D: is a Partition:
  259. If _Drive("D:", 4) = "Fixed" Then
  260.   ; If Portable folder not exist on D: - Create it!
  261.   $Disk = "D:\Portable"
  262.   If Not FileExists($Disk) Then
  263.     ; Create Folder "Portable"
  264.     DirCreate($Disk)
  265.   EndIf
  266. Else
  267.   ; If D: is Not a partition - create it on System Drive (C:).
  268.   $Disk = @HomeDrive & "\Portable"
  269.   If Not FileExists($Disk) Then
  270.     ; Create Folder "Portable"
  271.     DirCreate($Disk)
  272.   EndIf
  273. EndIf
  274. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Create Portable Folder: ' & Round(TimerDiff($Timer)) & @CRLF)
  275.  
  276.  
  277. ;~ Unpack 7-zip archive
  278. Func _7z($in, $out)
  279.   ;Local $in, $out
  280.   Return ShellExecuteWait($7za, "x " & @ScriptDir & $in & " -o" & $out & " -y")
  281. EndFunc   ;==>_7z
  282.  
  283.  
  284. ;~ Check Network Connection:
  285. Func _isNetwork()
  286.   $status = Ping('oszone.net') ; 1-4sec
  287.   If @error Then
  288.     Return 'Connection error: ' & @error
  289.   Else
  290.     Return 1
  291.   EndIf
  292. EndFunc   ;==>_isInet
  293. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Network : ' & Round(TimerDiff($Timer)) & @CRLF)
  294.  
  295.  
  296. ;~ Detect Internet Explorer Version:
  297. ; IE Edge exists?
  298. If FileExists($WinDir & 'SystemApps\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\MicrosoftEdge.exe') Then $IE_Edge = 1
  299. ; IE 6-11:
  300. If @OSArch = 'x86' Then
  301.     $IEPath = $ProgramFiles & '\Internet Explorer\iexplore.exe'
  302. Else
  303.     $IEPath = $ProgramFiles64 & '\Internet Explorer\iexplore.exe'
  304. EndIf
  305. ;
  306. Func _IE()
  307.     If $IE_Edge = 1 Then
  308.         $IEPath = $WinDir & 'SystemApps\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\MicrosoftEdge.exe'
  309.         $IEv = StringRegExp(FileGetVersion($IEPath), '\d+', 1)
  310.         If $IEv[0] > 0 Then
  311.             Return $IEv[0]
  312.         EndIf
  313.     Else
  314.         $IEv = StringRegExp(FileGetVersion($IEPath), '\d+', 1)
  315.         If $IEv[0] > 0 Then
  316.             Return $IEv[0]
  317.         EndIf
  318.     EndIf
  319. EndFunc
  320.  
  321.  
  322. #cs
  323. ;~ IE AdBlock
  324. ShellExecute($IEPath)
  325. If _IE() == 8 Then
  326.     Sleep(3000)
  327.     Send("{ALT}")
  328.     Sleep(250)
  329.     Send("{RIGHT 4}")
  330.     Send("{DOWN 4}")
  331.     Send("{ENTER}")
  332.     Sleep(250)
  333.     Send("{ALT}")
  334.     Sleep(250)
  335.     Send("{RIGHT 4}")
  336.     Send("{DOWN 5}")
  337.     Send("{ENTER}")
  338.     Sleep(250)
  339.     Send("{TAB 3}")
  340.     Send("{ENTER}")
  341.     Sleep(250)
  342.     Send("{TAB 2}")
  343.     Send("{ENTER}")
  344.     Sleep(250)
  345.     ; Select XML File
  346. EndIf
  347. #ce
  348.  
  349.  
  350. ;**************************************
  351. ;~ Main Program GUI:
  352. ;**************************************
  353. ;~ Create Main (GUI) Window:
  354. $W_Main = GUICreate("SilentInstaller", 266, 188, -1, -1)
  355.  
  356. ;~ Fix GUI icon: Disable if Compiled.
  357. If Not @Compiled Then GUISetIcon("p:\Programming\Autoit\Launcher\tmp\Launcher_min.ico", 0, $W_Main)
  358. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Fix GUI icon: ' & Round(TimerDiff($Timer)) & @CRLF)
  359.  
  360. GUISetBkColor(0xFFFFFF)
  361.  
  362. ;~ Create All Tabs:
  363. GUICtrlCreateTab(8, 8, 250, 172)
  364.  
  365. ; Create First Tab:
  366. GUICtrlCreateTabItem("Network")
  367. Switch _OS()
  368.   Case 1 To 3
  369.     $Firefox = GUICtrlCreateIcon($icl, -2, 16, 36, 16, 16)
  370.     $Opera = GUICtrlCreateIcon($icl, -3, 40, 36, 16, 16)
  371.     $Chrome = GUICtrlCreateIcon($icl, -4, 64, 36, 16, 16)
  372.   Case Else
  373.     $Firefox = GUICtrlCreateIcon($icl, -106, 16, 36, 16, 16)
  374.     $Opera = GUICtrlCreateIcon($icl, -107, 40, 36, 16, 16)
  375.     $Chrome = GUICtrlCreateIcon($icl, -108, 64, 36, 16, 16)
  376. EndSwitch
  377. $Flashplayer = GUICtrlCreateIcon($icl, -5, 88, 36, 16, 16)
  378. $Skype = GUICtrlCreateIcon($icl, -6, 112, 36, 16, 16)
  379. $Torrent = GUICtrlCreateIcon($icl, -7, 136, 36, 16, 16)
  380. $AnyDesk = GUICtrlCreateIcon($icl, -25, 160, 36, 16, 16)
  381. $Ammyy = GUICtrlCreateIcon($icl, -89, 184, 36, 16, 16)
  382.  
  383. ; Second Tab...
  384. GUICtrlCreateTabItem("Media")
  385. $ISO = GUICtrlCreateIcon($icl, -15, 16, 36, 16, 16)
  386. $KLite = GUICtrlCreateIcon($icl, -1, 40, 36, 16, 16)
  387. $Imagine = GUICtrlCreateIcon($icl, -51, 64, 36, 16, 16)
  388. $LightShot = GUICtrlCreateIcon($icl, -81, 88, 36, 16, 16)
  389. $Fraps = GUICtrlCreateIcon($icl, -83, 112, 36, 16, 16)
  390. $VLC = GUICtrlCreateIcon($icl, -54, 136, 36, 16, 16)
  391. $PotPlayer = GUICtrlCreateIcon($icl, -111, 160, 36, 16, 16)
  392. $KMPlayer = GUICtrlCreateIcon($icl, -110, 184, 36, 16, 16)
  393.  
  394. ; Third Tab...
  395. GUICtrlCreateTabItem("Office")
  396. $Akelpad = GUICtrlCreateIcon($icl, -29, 16, 36, 16, 16)
  397. $STDUViewer = GUICtrlCreateIcon($icl, -56, 40, 36, 16, 16)
  398. $Office2003 = GUICtrlCreateIcon($icl, -62, 64, 36, 16, 16)
  399. $Office2007 = GUICtrlCreateIcon($icl, -63, 88, 36, 16, 16)
  400. $Office2010 = GUICtrlCreateIcon($icl, -71, 112, 36, 16, 16)
  401. $Office2016 = GUICtrlCreateIcon($icl, -72, 136, 36, 16, 16)
  402. $OpenOffice = GUICtrlCreateIcon($icl, -60, 160, 36, 16, 16)
  403. $WPSOffice = GUICtrlCreateIcon($icl, -61, 184, 36, 16, 16)
  404. $PuntoSwitcher = GUICtrlCreateIcon($icl, -94, 208, 36, 16, 16)
  405. $AmlMaple = GUICtrlCreateIcon($icl, -95, 232, 36, 16, 16)
  406.  
  407. ; Fourth Tab...
  408. GUICtrlCreateTabItem("System")
  409. ;   First Row: +24
  410. Switch _OS()
  411.   Case 1
  412.     $Win = GUICtrlCreateIcon($icl, -17, 16, 36, 16, 16)
  413.   Case 2
  414.     $Win = GUICtrlCreateIcon($icl, -17, 16, 36, 16, 16)
  415.   Case 3
  416.     $Win = GUICtrlCreateIcon($icl, -18, 16, 36, 16, 16)
  417.   Case 4
  418.     $Win = GUICtrlCreateIcon($icl, -18, 16, 36, 16, 16)
  419.   Case 5
  420.     $Win = GUICtrlCreateIcon($icl, -19, 16, 36, 16, 16)
  421.   Case 6
  422.     $Win = GUICtrlCreateIcon($icl, -88, 16, 36, 16, 16)
  423.   Case 7
  424.     $Win = GUICtrlCreateIcon($icl, -20, 16, 36, 16, 16)
  425.   Case Else
  426.     $Win = GUICtrlCreateIcon($icl, -45, 16, 36, 16, 16)
  427. EndSwitch
  428. $DirectX = GUICtrlCreateIcon($icl, -12, 40, 36, 16, 16)
  429. $Visual = GUICtrlCreateIcon($icl, -14, 64, 36, 16, 16)
  430. Switch _OS()
  431.   Case 1 To 3
  432.     $NET4 = GUICtrlCreateIcon($icl, -104, 88, 36, 16, 16)
  433.   Case Else
  434.     $NET4 = GUICtrlCreateIcon($icl, -105, 88, 36, 16, 16)
  435. EndSwitch
  436. $XNA = GUICtrlCreateIcon($icl, -67, 112, 36, 16, 16)
  437. $Java = GUICtrlCreateIcon($icl, -11, 136, 36, 16, 16)
  438. $PhysX = GUICtrlCreateIcon($icl, -13, 160, 36, 16, 16)
  439. $OAL = GUICtrlCreateIcon($icl, -65, 184, 36, 16, 16)
  440. ;   Second Row:
  441. $HTFT = GUICtrlCreateIcon($icl, -52, 16, 60, 16, 16)
  442. $Hosts = GUICtrlCreateIcon($icl, -8, 40, 60, 16, 16)
  443. $XPFix = GUICtrlCreateIcon($icl, -84, 64, 60, 16, 16)
  444. $NetworkFix = GUICtrlCreateIcon($icl, -46, 88, 60, 16, 16)
  445. $PageFile = GUICtrlCreateIcon($icl, -75, 112, 60, 16, 16)
  446. $uxTheme = GUICtrlCreateIcon($icl, -43, 136, 60, 16, 16)
  447. $VolumeMax = GUICtrlCreateIcon($icl, -86, 160, 60, 16, 16)
  448. $ClearTemp = GUICtrlCreateIcon($icl, -85, 184, 60, 16, 16)
  449. ;   Third Row:
  450. $WinStartMenu = GUICtrlCreateIcon($icl, -39, 16, 84, 16, 16)
  451. $WinRAR = GUICtrlCreateIcon($icl, -16, 40, 84, 16, 16)
  452. $AutoRunCleaner = GUICtrlCreateIcon($icl, -68, 64, 84, 16, 16)
  453. $UsbSafelyRemove = GUICtrlCreateIcon($icl, -42, 88, 84, 16, 16)
  454. $UsbDiskEject = GUICtrlCreateIcon($icl, -41, 112, 84, 16, 16)
  455. $TotalCommander = GUICtrlCreateIcon($icl, -55, 136, 84, 16, 16)
  456. $Disable10Updates = GUICtrlCreateIcon($icl, -79, 160, 84, 16, 16)
  457. $DisableDefender = GUICtrlCreateIcon($icl, -112, 184, 84, 16, 16)
  458. ; Fourth Row
  459. $360TSE = GUICtrlCreateIcon($icl, -74, 16, 108, 16, 16)
  460. $Comodo = GUICtrlCreateIcon($icl, -24, 40, 108, 16, 16)
  461. $AVG = GUICtrlCreateIcon($icl, -64, 64, 108, 16, 16)
  462. $UninstallTool = GUICtrlCreateIcon($icl, -100, 88, 108, 16, 16)
  463. $RevoUninstaller = GUICtrlCreateIcon($icl, -59, 112, 108, 16, 16)
  464. $CCleaner = GUICtrlCreateIcon($icl, -113, 136, 108, 16, 16)
  465. $Defraggler = GUICtrlCreateIcon($icl, -114, 160, 108, 16, 16)
  466. $BKPDrivers = GUICtrlCreateIcon($icl, -66, 184, 108, 16, 16)
  467.  
  468. ;**************************************
  469. ;~ Debug tab:
  470. ;**************************************
  471. Global $Debug_OS, $IEIcon, $NetworkIcon, $DesktopIcon, $MPFIcon, $PPosIcon, $CAIcon, $DIcon
  472. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Debug Start: ' & Round(TimerDiff($Timer)) & @CRLF)
  473. If $Debug = 1 Then
  474.     GUICtrlCreateTabItem("Debug")
  475.     ; Detect OS:
  476.     Switch _OS()
  477.         Case 1
  478.             $Win2 = GUICtrlCreateIcon($icl, -17, 16, 36, 16, 16)
  479.             GUICtrlSetTip($Win2, "Windows XP")
  480.         Case 2
  481.             $Win2 = GUICtrlCreateIcon($icl, -17, 16, 36, 16, 16)
  482.             GUICtrlSetTip($Win2, "Windows XP x64 or Server 2003")
  483.         Case 3
  484.             $Win2 = GUICtrlCreateIcon($icl, -18, 16, 36, 16, 16)
  485.             GUICtrlSetTip($Win2, "Windows Vista or Server 2008")
  486.         Case 4
  487.             $Win2 = GUICtrlCreateIcon($icl, -18, 16, 36, 16, 16)
  488.             GUICtrlSetTip($Win2, "Windows 7 or Server 2008R2")
  489.         Case 5
  490.             $Win2 = GUICtrlCreateIcon($icl, -19, 16, 36, 16, 16)
  491.             GUICtrlSetTip($Win2, "Windows 8 or Server 2012")
  492.         Case 6
  493.             $Win2 = GUICtrlCreateIcon($icl, -88, 16, 36, 16, 16)
  494.             GUICtrlSetTip($Win2, "Windows 8.1 or Server 2012R2")
  495.         Case 7
  496.             $Win2 = GUICtrlCreateIcon($icl, -20, 16, 36, 16, 16)
  497.             GUICtrlSetTip($Win2, "Windows 10 or Server 2016")
  498.         Case Else
  499.             $Win2 = GUICtrlCreateIcon($icl, -45, 16, 36, 16, 16)
  500.             GUICtrlSetTip($Win2, "Unknown")
  501.     EndSwitch
  502.     ; Get IE Version:
  503.     If $IE_Edge = 1 Then
  504.         $IEIcon = GUICtrlCreateIcon($icl, -119, 40, 36, 16, 16)
  505.         GUICtrlSetTip($IEIcon, "IE Edge " & _IE())
  506.     Else
  507.         Switch _IE()
  508.             Case 6 to 7
  509.                 $IEIcon = GUICtrlCreateIcon($icl, -118, 40, 36, 16, 16)
  510.                 GUICtrlSetTip($IEIcon, "IE 6-7")
  511.             Case 8
  512.                 $IEIcon = GUICtrlCreateIcon($icl, -115, 40, 36, 16, 16)
  513.                 GUICtrlSetTip($IEIcon, "IE 8")
  514.             Case 9
  515.                 $IEIcon = GUICtrlCreateIcon($icl, -116, 40, 36, 16, 16)
  516.                 GUICtrlSetTip($IEIcon, "IE 9")
  517.             Case 11
  518.                 $IEIcon = GUICtrlCreateIcon($icl, -117, 40, 36, 16, 16)
  519.                 GUICtrlSetTip($IEIcon, "IE 11")
  520.         EndSwitch
  521.     EndIf
  522.     ;
  523.     ; Network Status:
  524.     If _isNetwork() = 1 Then
  525.         $NetworkIcon = GUICtrlCreateIcon($icl, -46, 64, 36, 16, 16)
  526.         GUICtrlSetTip($NetworkIcon, "Network Connected!")
  527.     Else
  528.         $NetworkIcon = GUICtrlCreateIcon($icl, -120, 64, 36, 16, 16)
  529.         GUICtrlSetTip($NetworkIcon, _isNetwork())
  530.     EndIf
  531.     ; Desktop Resolution:
  532.     $DesktopIcon = GUICtrlCreateIcon($icl, -121, 88, 36, 16, 16)
  533.     GUICtrlSetTip($DesktopIcon, @DesktopWidth & " x " & @DesktopHeight)
  534.     ;
  535.     ; Drives:
  536.     If _Drive('D:', 4) = "Removable" Then
  537.         $DIcon = GUICtrlCreateIcon($icl, -125, 112, 36, 16, 16)
  538.         GUICtrlSetTip($DIcon, "D: is Removable")
  539.     EndIf
  540.     If _Drive('D:', 4) = "Fixed" Then
  541.         $DIcon = GUICtrlCreateIcon($icl, -124, 112, 36, 16, 16)
  542.         GUICtrlSetTip($DIcon, "D: is Fixed")
  543.     EndIf
  544.     If _Drive('D:') = 5 Then
  545.         $DIcon = GUICtrlCreateIcon($icl, -123, 112, 36, 16, 16)
  546.         GUICtrlSetTip($DIcon, "D: is CD-ROM")
  547.     EndIf
  548.     ;
  549.     ; Main (Portable) Folder
  550.     $MPFIcon = GUICtrlCreateIcon($icl, -122, 136, 36, 16, 16)
  551.     GUICtrlSetTip($MPFIcon, $Disk)
  552.     ;
  553.     ; Get Program Window position, x and y.
  554.     $PPosIcon = GUICtrlCreateIcon($icl, -77, 160, 36, 16, 16)
  555.     $wmpos = WinGetPos("SilentInstaller")
  556.     GUICtrlSetTip($PPosIcon, 'x: ' & $wmpos[0] & ', y: ' & $wmpos[1])
  557.     ;
  558.     ; Check Compatibility Assistant:
  559.     $CAIcon = GUICtrlCreateIcon($icl, -127, 184, 36, 16, 16)
  560.     RegRead("HKCU\Software\Policies\Microsoft\Windows\AppCompat", "DisablePCA")
  561.     If @error Then
  562.         GUICtrlSetTip($CAIcon, 'Error: ' & @error)
  563.     EndIf
  564. EndIf
  565. ;
  566. If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Debug End: ' & Round(TimerDiff($Timer)) & @CRLF)
  567.  
  568.  
  569. ;**************************************
  570. ;~ Add ToolTips to Icons:
  571. ;**************************************
  572. ; System:
  573. ;   First Row
  574. GUICtrlSetTip($Win, "Activate Windows")
  575. GUICtrlSetTip($DirectX, "DirectX Libraries")
  576. GUICtrlSetTip($Visual, "Visual C++ Redistributable Repack")
  577. GUICtrlSetTip($NET4, ".NET Framework v4 and v4.72 Repack")
  578. GUICtrlSetTip($XNA, "Microsoft XNA Framework")
  579. GUICtrlSetTip($Java, "Java Runtime v8")
  580. GUICtrlSetTip($PhysX, "nVidia PhysX Libraries")
  581. GUICtrlSetTip($OAL, "Game Audio Library (Minecraft)")
  582. GUICtrlSetTip($HTFT, "Disable text from Toolbar Icons")
  583. GUICtrlSetTip($WinRAR, "WinRAR v5.6")
  584. GUICtrlSetTip($uxTheme, "UX Theme Multipatch")
  585. GUICtrlSetTip($VolumeMax, "Set Volume to MAX(100%)")
  586. GUICtrlSetTip($ClearTemp, "Clear ALL Temp folders")
  587. GUICtrlSetTip($Disable10Updates, "Disable Windows 10 Updates")
  588. GUICtrlSetTip($Hosts, "Hosts File")
  589. GUICtrlSetTip($AutoRunCleaner, "AutoRun Cleaner")
  590. GUICtrlSetTip($UsbSafelyRemove, "Usb Safely Remove")
  591. GUICtrlSetTip($UsbDiskEject, "USB Disk Eject")
  592. GUICtrlSetTip($TotalCommander, "Total Commander")
  593. GUICtrlSetTip($XPFix, "Fixes for Windows XP")
  594. GUICtrlSetTip($BKPDrivers, "Backup Drivers")
  595. GUICtrlSetTip($DisableDefender, "Disable Windows Defender")
  596. GUICtrlSetTip($NetworkFix, "Fix Networking")
  597. GUICtrlSetTip($PageFile, "PageFile Setup")
  598. GUICtrlSetTip($SInfo, "Add My Info to System About")
  599. GUICtrlSetTip($CCleaner, "Piriform CCleaner Technician")
  600. GUICtrlSetTip($Defraggler, "Piriform Defraggler Technician")
  601. ;   Third Row:
  602. GUICtrlSetTip($360TSE, "360 Total Security Essintial (Offline)")
  603. GUICtrlSetTip($Comodo, "Comodo Internet Security Free (Offline)")
  604. GUICtrlSetTip($AVG, "AVG Antivirus Free (Offline)")
  605. GUICtrlSetTip($UninstallTool, "CRYSTALIDEA Uninstall Tool")
  606. GUICtrlSetTip($RevoUninstaller, "Revo Uninstaller Pro Portable")
  607. ; Network
  608. GUICtrlSetTip($Firefox, "Mozilla Firefox")
  609. GUICtrlSetTip($Opera, "Opera")
  610. GUICtrlSetTip($Chrome, "Google Chrome")
  611. GUICtrlSetTip($Skype, "Skype v7 and v8")
  612. GUICtrlSetTip($Flashplayer, "Adobe Flash Player")
  613. GUICtrlSetTip($Torrent, "Torrent")
  614. GUICtrlSetTip($AnyDesk, "AnyDesk Remote Desktop")
  615. GUICtrlSetTip($WinStartMenu, "StartIsBack Win8-10")
  616. GUICtrlSetTip($Ammyy, "Ammyy Admin Free")
  617. ; Media
  618. GUICtrlSetTip($ISO, "WinCDEmu")
  619. GUICtrlSetTip($Imagine, "Imagine image viewer")
  620. GUICtrlSetTip($KLite, "K-lite Codecs + Player")
  621. GUICtrlSetTip($LightShot, "LightShot Portable")
  622. GUICtrlSetTip($Fraps, "Fraps")
  623. GUICtrlSetTip($VLC, "VideoLAN (VLC) Player")
  624. GUICtrlSetTip($PotPlayer, "DAUM PotPlayer")
  625. GUICtrlSetTip($KMPlayer, "KMPlayer")
  626. ; Office
  627. GUICtrlSetTip($Akelpad, "Akelpad")
  628. GUICtrlSetTip($STDUViewer, "STDU Viewer")
  629. GUICtrlSetTip($Office2003, "Microsoft Office 2003")
  630. GUICtrlSetTip($Office2007, "Microsoft Office 2007")
  631. GUICtrlSetTip($Office2010, "Microsoft Office 2010")
  632. GUICtrlSetTip($Office2016, "Microsoft Office 2016")
  633. GUICtrlSetTip($OpenOffice, "Open Office 4.1.x 2018")
  634. GUICtrlSetTip($WPSOffice, "WPS Office Free 2018")
  635. GUICtrlSetTip($PuntoSwitcher, "Punto Switcher")
  636. GUICtrlSetTip($AmlMaple, "AmlMaple")
  637.  
  638. ; Show Main Window:
  639. GUISetState(@SW_SHOW, $W_Main)
  640.  
  641.  
  642. ;**************************************
  643. ;~ Main Program Logics
  644. ;**************************************
  645. While 1
  646.   $msg = GUIGetMsg()
  647.   Select
  648.  
  649.     ; First Row:
  650.  
  651.     Case $msg = $Win
  652.       ; Run accordingly OS:
  653.       ; XP, XP x64, Server 2003
  654.       Switch _OS()
  655.         Case 1 To 2
  656.           If FileExists($Disk & "\Aktivators\") Then
  657.             ShellExecuteWait($Disk & "\Aktivators\XP.bat")
  658.           Else
  659.             _7z("Programs\Aktivators.7z", $Disk & "\Aktivators\")
  660.             Sleep(350)
  661.             ShellExecuteWait($Disk & "\Aktivators\XP.bat")
  662.           EndIf
  663.           Sleep(350)
  664.           RegWrite("HKCU\Software\S60Team", "WinXP, Server2003", "REG_SZ", "Activated")
  665.           MsgBox(4096, "Win XP", "Activation completed!", 3)
  666.         ; Vista, Server 2008
  667.         Case 3
  668.           If FileExists($Disk & "\Aktivators\") Then
  669.             ShellExecuteWait($Disk & "\Aktivators\AAct.exe")
  670.           Else
  671.             _7z("Programs\Aktivators.7z", $Disk & "\Aktivators\")
  672.             Sleep(350)
  673.             If @OSArch = "X86" Then
  674.               ShellExecuteWait($Disk & "\Aktivators\AAct.exe")
  675.             Else
  676.               ShellExecuteWait($Disk & "\Aktivators\AAct_x64.exe")
  677.             EndIf
  678.           EndIf
  679.           RegWrite("HKCU\Software\S60Team", "Vista, 2008", "REG_SZ", "Activated")
  680.           Sleep(350)
  681.           MsgBox(4096, "WinVista", "Activation completed!", 3)
  682.         ; 7, Server 2008R2
  683.         Case 4
  684.           If FileExists($Disk & "\Aktivators\") Then
  685.             ShellExecuteWait($Disk & "\Aktivators\Windows Loader.exe")
  686.           Else
  687.             _7z("Programs\Aktivators.7z", $Disk & "\Aktivators\")
  688.             Sleep(350)
  689.             ShellExecuteWait($Disk & "\Aktivators\Windows Loader.exe")
  690.           EndIf
  691.           RegWrite("HKCU\Software\S60Team", "Win7, 2008R2", "REG_SZ", "Activated")
  692.           Sleep(350)
  693.           MsgBox(4096, "Win 7", "Activation completed!", 3)
  694.         ; 8, Server 2012, 8.1, Server 2012R2
  695.         Case 5 To 6
  696.           If FileExists($Disk & "\Aktivators\") Then
  697.             ShellExecuteWait($Disk & "\Aktivators\AAct.exe")
  698.           Else
  699.             _7z("Programs\Aktivators.7z", $Disk & "\Aktivators\")
  700.             Sleep(350)
  701.             If @OSArch = "X86" Then
  702.               ShellExecuteWait($Disk & "\Aktivators\AAct.exe")
  703.             Else
  704.               ShellExecuteWait($Disk & "\Aktivators\AAct_x64.exe")
  705.             EndIf
  706.           EndIf
  707.           If _OS() = 5 Then
  708.             RegWrite("HKCU\Software\S60Team", "Win8, 2012", "REG_SZ", "Activated")
  709.           ElseIf _OS() = 6 Then
  710.             RegWrite("HKCU\Software\S60Team", "Win8.1, 2012R2", "REG_SZ", "Activated")
  711.           EndIf
  712.           Sleep(350)
  713.           MsgBox(4096, "Win 8", "Activation completed!", 3)
  714.         ; 10, Server 2016
  715.         Case 7
  716.           If FileExists($Disk & "\Aktivators\") Then
  717.             ShellExecuteWait($Disk & "\Aktivators\AAct.exe")
  718.           Else
  719.             _7z("Programs\Aktivators.7z", $Disk & "\Aktivators\")
  720.             Sleep(350)
  721.             If @OSArch = "X86" Then
  722.               ShellExecuteWait($Disk & "\Aktivators\AAct.exe")
  723.             Else
  724.               ShellExecuteWait($Disk & "\Aktivators\AAct_x64.exe")
  725.             EndIf
  726.           EndIf
  727.           RegWrite("HKCU\Software\S60Team", "Win10, 2016", "REG_SZ", "Activated")
  728.           Sleep(350)
  729.           MsgBox(4096, "Win 10", "Activation completed!", 3)
  730.         Case Else
  731.           MsgBox(4096, "Error", "OS not detected!", 3)
  732.       EndSwitch
  733.  
  734.     Case $msg = $DirectX
  735.       ShellExecuteWait($exepath & "Programs\DirectX.exe", "/Q /T:" & @TempDir & "\DirectX")
  736.       Sleep(350)
  737.       ShellExecuteWait(@TempDir & "\DirectX\DXSETUP.exe", "/silent")
  738.       Sleep(350)
  739.       DirRemove(@TempDir & "\DirectX\", 1)
  740.       RegWrite("HKCU\Software\S60Team", "DirectX", "REG_SZ", "Installed")
  741.       Sleep(250)
  742.       MsgBox(4096, "DirectX", "Installation completed!", 3)
  743.  
  744.     Case $msg = $Visual
  745.       ShellExecuteWait($exepath & "Programs\Repack\VisualC_AIO.exe", "/ai") ; /v
  746.       RegWrite("HKCU\Software\S60Team", "Visual C++ AIO", "REG_SZ", "Installed")
  747.       Sleep(350)
  748.       MsgBox(4096, "Visual x64", "Installation completed!", 3)
  749.  
  750.     Case $msg = $NET4
  751.       If _OS() <= 3 Then
  752.         ShellExecuteWait($exepath & "Programs\Repack\NET_AIO_XP.exe", "/ai") ; /v
  753.         RegWrite("HKCU\Software\S60Team", ".NET Framework v4", "REG_SZ", "Installed")
  754.       ElseIf _OS() > 3 Then
  755.         ShellExecuteWait($exepath & "Programs\Repack\NET_4.72.exe", "/ai") ; /v
  756.         RegWrite("HKCU\Software\S60Team", ".NET Framework v4.72", "REG_SZ", "Installed")
  757.       Else
  758.         MsgBox(16, "Error!", "Unsupported OS!")
  759.       EndIf
  760.       Sleep(350)
  761.       MsgBox(4096, "NET4", "Installation completed!", 3)
  762.  
  763.     Case $msg = $XNA
  764.       ShellExecuteWait(@ScriptDir & "Programs\xna4.msi", "/qn")
  765.       RegWrite("HKCU\Software\S60Team", "XNA Framework", "REG_SZ", "Installed")
  766.       Sleep(350)
  767.       MsgBox(4096, "XNA", "Installation completed!", 3)
  768.  
  769.     Case $msg = $Java
  770.       If _OS() <= 2 Then
  771.         ;C:\Program Files\Java
  772.         ;c:\Documents and Settings\Admin\Application Data\Sun\Java
  773.         ;c:\Documents and Settings\Admin\Local Settings\Application Data\Sun\Java
  774.         ShellExecuteWait($exepath & "Programs\Java_XP.exe", "/s")
  775.       ElseIf _OS() > 3 Then
  776.         If @OSArch = "X86" Then
  777.           ShellExecuteWait($exepath & "Programs\Java_x86.exe", "/s")
  778.         Else
  779.           ShellExecuteWait($exepath & "Programs\Java_x64.exe", "/s")
  780.         EndIf
  781.       Else
  782.         MsgBox(16, "Error!", "Unsupported OS!")
  783.       EndIf
  784.       RegWrite("HKCU\Software\S60Team", "Java", "REG_SZ", "Installed")
  785.       Sleep(350)
  786.       MsgBox(4096, "Java", "Installation completed!", 3)
  787.  
  788.     Case $msg = $PhysX
  789.       ShellExecuteWait($exepath & "Programs\PhysX.exe", "/s")
  790.       RegWrite("HKCU\Software\S60Team", "PhysX", "REG_SZ", "Installed")
  791.       Sleep(350)
  792.       MsgBox(4096, "PhysX", "Installation completed!", 3)
  793.  
  794.     Case $msg = $ISO
  795.       ShellExecute($exepath & "Programs\WinCDEmu.exe")
  796.       WinActivate("WinCDEmu installation")
  797.       Sleep(350)
  798.       ControlClick("WinCDEmu installation", "Ready to install", "Button1")
  799.       Sleep(350)
  800.       If WinWaitActive("Установка оборудования") Then
  801.         ControlClick("Установка оборудования", "", "Button1")
  802.       ElseIf WinWaitActive("Безопасность Windows") Then
  803.         ControlClick("Безопасность Windows", "", "Button1")
  804.       Else
  805.         ; Do Nothing
  806.       EndIf
  807.       ; Warning! MsgBox is from WinCDEmu!!!
  808.       RegWrite("HKCU\Software\S60Team", "WinCDEmu", "REG_SZ", "Installed")
  809.  
  810.     Case $msg = $OAL
  811.       ShellExecute($exepath & "Programs\oalinst.exe")
  812.       ;Sleep(350)
  813.       ;WinWait("OpenAL Installer")
  814.       ;WinActivate("OpenAL Installer")
  815.       WinWaitActive("OpenAL Installer")
  816.       Sleep(500)
  817.       ControlClick("OpenAL Installer", "", "Button2")
  818.       ; OpenAL has it's own "Completed" MsgBox
  819.       ;Sleep(350)
  820.       ;MsgBox(4096, "OpenAL", "Installation completed!", 3)
  821.       RegWrite("HKCU\Software\S60Team", "OpenAL", "REG_SZ", "Installed")
  822.  
  823.       ; Second Row:
  824.  
  825.     Case $msg = $Firefox
  826.       If _OS() <= 2 Then
  827.         ; 52.9.0 esr
  828.         ;C:\Program Files\Mozilla Firefox\firefox.exe
  829.         ShellExecuteWait($exepath & "Programs\FirefoxXP.exe", "-ms")
  830.       Else
  831.         If @OSArch = "X86" Then
  832.           ShellExecuteWait($exepath & "Programs\Firefox.exe", "-ms")
  833.         Else
  834.           ShellExecuteWait($exepath & "Programs\Firefox64.exe", "-ms")
  835.         EndIf
  836.       EndIf
  837.       RegWrite("HKCU\Software\S60Team", "Firefox", "REG_SZ", "Installed")
  838.       Sleep(350)
  839.       MsgBox(4096, "Firefox", "Installation completed!", 3)
  840.  
  841.     Case $msg = $Opera
  842.       ; Unpack Opera and Run installer.exe
  843.       ;installer.exe /silent /allusers=yes /launchopera=no /pintotaskbar=no /setdefaultbrowser=no /laguage=ru-RU
  844.       If _OS() <= 2 Then
  845.         ;C:\Program Files\Opera\launcher.exe
  846.         _7z("Programs\OperaXP.exe", @TempDir & "\Opera")
  847.         ShellExecuteWait(@TempDir & "\Opera\installer.exe", "/silent /allusers=yes /launchopera=no /pintotaskbar=no /setdefaultbrowser=no /laguage=ru-RU")
  848.         ;ShellExecuteWait($exepath & "Programs\OperaXP.exe")
  849.       Else
  850.         If @OSArch = "X86" Then
  851.           _7z("Programs\OperaXP.exe", @TempDir & "\Opera")
  852.           ShellExecuteWait(@TempDir & "\Opera\installer.exe", "/silent /allusers=yes /launchopera=no /pintotaskbar=no /setdefaultbrowser=no /laguage=ru-RU")
  853.           ;ShellExecuteWait($exepath & "Programs\Opera.exe")
  854.         Else
  855.           _7z("Programs\OperaXP.exe", @TempDir & "\Opera")
  856.           ShellExecuteWait(@TempDir & "\Opera\installer.exe", "/silent /allusers=yes /launchopera=no /pintotaskbar=no /setdefaultbrowser=no /laguage=ru-RU")
  857.           ;ShellExecuteWait($exepath & "Programs\Opera64.exe")
  858.         EndIf
  859.       EndIf
  860.       RegWrite("HKCU\Software\S60Team", "Opera", "REG_SZ", "Installed")
  861.       Sleep(350)
  862.       MsgBox(4096, "Opera", "Installation completed!", 3)
  863.  
  864.     Case $msg = $Chrome
  865.       If _OS() <= 2 Then
  866.         ;C:\Program Files\Google\Chrome\Application\chrome.exe
  867.         ;C:\Program Files (x86)\Google\Chrome\Application\chrome.exe
  868.         ShellExecuteWait($exepath & "Programs\ChromeXP.exe", "--system-level") ; /silent /install
  869.       Else
  870.         If @OSArch = "X86" Then
  871.           ShellExecuteWait($exepath & "Programs\Chrome.msi", "/q /norestart") ; /quiet /norestart
  872.         Else
  873.           ShellExecuteWait($exepath & "Programs\Chrome64.msi", "/q /norestart")
  874.         EndIf
  875.       EndIf
  876.       RegWrite("HKCU\Software\S60Team", "Chrome", "REG_SZ", "Installed")
  877.       Sleep(350)
  878.       MsgBox(4096, "Chrome", "Installation completed!", 3)
  879.  
  880.     Case $msg = $Skype
  881.       If _OS() <= 2 Then
  882.         ;C:\Program Files\Skype\Phone\Skype.exe
  883.         ;C:\Documents and Settings\All Users\Application Data\Skype
  884.         ShellExecuteWait($exepath & "Programs\SkypeSetupFullXP.exe", "/VERYSILENT /SP- /NOCANCEL /NORESTART /SUPPRESSMSGBOXES /NOLAUNCH")
  885.       ElseIf _OS() > 3 Then
  886.         $SKP = MsgBox(3, "Skype", "v7 (Yes) or v8 (No):")
  887.         If $SKP = 6 Then
  888.           ShellExecuteWait($exepath & "Programs\Skype7.exe", "/VERYSILENT /SP- /NOCANCEL /NORESTART /SUPPRESSMSGBOXES /NOLAUNCH")
  889.         ElseIf $SKP = 7 Then
  890.           ShellExecuteWait($exepath & "Programs\Skype8.exe", "/VERYSILENT /SP- /NOCANCEL /NORESTART /SUPPRESSMSGBOXES /NOLAUNCH")
  891.         EndIf
  892.       Else
  893.         MsgBox(4096, "Error", "Your OS not need this!")
  894.       EndIf
  895.       RegWrite("HKCU\Software\S60Team", "Skype", "REG_SZ", "Installed")
  896.       Sleep(350)
  897.       MsgBox(4096, "Skype", "Installation completed!", 3)
  898.  
  899.     Case $msg = $Flashplayer
  900.       ;C:\WINDOWS\System32\Macromed
  901.       ;C:\WINDOWS\System32\Macromed\Flash
  902.       ;C:\Documents and Settings\Admin\Application Data\Macromedia
  903.       ShellExecuteWait($exepath & "Programs\install_flash_player_ax.exe", "-install") ; InternetExplorer
  904.       Sleep(350)
  905.       ShellExecuteWait($exepath & "Programs\install_flash_player.exe", "-install") ; Firefox
  906.       Sleep(350)
  907.       ShellExecuteWait($exepath & "Programs\install_flash_player_ppapi.exe", "-install") ; Chrome and Opera
  908.       RegWrite("HKCU\Software\S60Team", "FlashPlayer", "REG_SZ", "Installed")
  909.       Sleep(350)
  910.       MsgBox(4096, "Flashplayer", "Installation completed!", 3)
  911.  
  912.     Case $msg = $Torrent
  913.       If FileExists($Disk & "\uTorrent\uTorrent.exe") Then
  914.         Run($Disk & "\uTorrent\uTorrent.exe")
  915.       Else
  916.         _7z("Programs\uTorrent3.7z", $Disk)
  917.         FileCreateShortcut($Disk & "\uTorrent\uTorrent.exe", $Desktop & "uTorrent 3.lnk", $Disk & "\uTorrent\")
  918.         RegWrite("HKCU\Software\S60Team", "uTorrent", "REG_SZ", "Installed")
  919.         Sleep(350)
  920.         MsgBox(4096, "Torrent", "Installation completed!", 3)
  921.       EndIf
  922.  
  923.     Case $msg = $KLite
  924.       If _OS() <= 2 Then
  925.         ;C:\Program Files\K-Lite Codec Pack\unins000.exe or
  926.         ;C:\Program Files\K-Lite Codec Pack\Filters
  927.         ShellExecuteWait($exepath & "Programs\K-LiteXP.exe", "/SP- /VERYSILENT")
  928.       Else
  929.         ShellExecuteWait($exepath & "Programs\K-Lite.exe", "/SP- /VERYSILENT")
  930.       EndIf
  931.       RegWrite("HKCU\Software\S60Team", "K-Lite", "REG_SZ", "Installed")
  932.       Sleep(350)
  933.       MsgBox(4096, "KLite", "Installation completed!", 3)
  934.  
  935.     Case $msg = $AnyDesk
  936.       If FileExists($Disk & "\AnyDesk\AnyDesk.exe") Then
  937.         Run($Disk & "\AnyDesk\AnyDesk.exe")
  938.       Else
  939.         ShellExecuteWait($exepath & "Programs\AnyDesk.exe", '--install "' & $Disk & '\AnyDesk" --start-with-win --silent') ; --create-shortcuts
  940.         Sleep(250)
  941.         FileCreateShortcut($Disk & "\AnyDesk\AnyDesk.exe", $Desktop & "Помощь Вовы (AnyDesk).lnk", $Disk & "\AnyDesk")
  942.         RegWrite("HKCU\Software\S60Team", "AnyDesk", "REG_SZ", "Installed")
  943.         Sleep(350)
  944.         MsgBox(4096, "AnyDesk", "Installation completed!", 3)
  945.       EndIf
  946.  
  947.     Case $msg = $WinStartMenu
  948.       If _OS() > 3 Then
  949.         ShellExecuteWait($exepath & "Programs\StartIsBack_AiO_1.0.7__silent.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
  950.         Sleep(350)
  951.         MsgBox(4096, "StartIsBack", "Installation completed!", 3)
  952.       Else
  953.         MsgBox(4096, 'Error', 'Your OS not need this!')
  954.       EndIf
  955.       RegWrite("HKCU\Software\S60Team", "StartIsBack", "REG_SZ", "Installed")
  956.  
  957.       ; Third Row
  958.  
  959.     Case $msg = $HTFT
  960.       If @OSVersion = "WIN_XP" Then
  961.         $MB = MsgBox(3, "ONLY Icons in Toolbar", "Install (Yes) or Uninstall (No):")
  962.         If $MB = 6 Then
  963.           RegWrite("HKCU\Control Panel\Desktop\WindowMetrics", "MinWidth", "REG_SZ", "-255")
  964.         ElseIf $MB = 7 Then
  965.           RegWrite("HKCU\Control Panel\Desktop\WindowMetrics", "MinWidth", "REG_SZ", "-")
  966.         EndIf
  967.       ElseIf @OSVersion = "WIN_VISTA" Then
  968.         $MB = MsgBox(3, "ONLY Icons in Toolbar", "Install (Yes) or Uninstall (No):")
  969.         If $MB = 6 Then
  970.           RegWrite("HKCU\Control Panel\Desktop\WindowMetrics", "MinWidth", "REG_SZ", "56")
  971.         ElseIf $MB = 7 Then
  972.           RegWrite("HKCU\Control Panel\Desktop\WindowMetrics", "MinWidth", "REG_SZ", "-")
  973.         EndIf
  974.       Else
  975.         MsgBox(4096, 'Error', 'Your OS not need this!')
  976.       EndIf
  977.       RegWrite("HKCU\Software\S60Team", "IconsInTaskBar", "REG_SZ", "Installed")
  978.  
  979.     Case $msg = $WinRAR
  980.       ;C:\Program Files\WinRAR\WinRAR.exe
  981.       ShellExecuteWait($exepath & "Programs\WinRAR.v5.60.exe", "/S /IRU")
  982.       RegWrite("HKCU\Software\S60Team", "WinRAR", "REG_SZ", "Installed")
  983.       Sleep(350)
  984.       MsgBox(4096, "WinRAR", "Installation completed!", 3)
  985.  
  986.     Case $msg = $uxTheme
  987.       ShellExecute($exepath & "Programs\Other\UXTheme Multi-Patcher 15.0.exe")
  988.       Sleep(350)
  989.       WinWaitActive("UXTheme Multi-Patcher 15.0 ")
  990.       Sleep(350)
  991.       ControlClick("UXTheme Multi-Patcher 15.0 ", "", "Button2")
  992.       Sleep(350)
  993.       ControlClick("UXTheme Multi-Patcher 15.0 ", "", "Button1")
  994.       Sleep(350)
  995.       WinWaitActive("Finished")
  996.       Sleep(350)
  997.       ControlClick("Finished", "", "Button1")
  998.       RegWrite("HKCU\Software\S60Team", "uxTheme", "REG_SZ", "Installed")
  999.       Sleep(350)
  1000.       MsgBox(4096, "UXTheme", "Installation completed!", 3)
  1001.  
  1002.     Case $msg = $Hosts
  1003.       If _OS() = 7 Then
  1004.         FileCopy($exepath & "Programs\hosts_win10.txt", "C:\Windows\System32\Drivers\etc\hosts", 9)
  1005.       Else
  1006.         FileCopy($exepath & "Programs\hosts.txt", "C:\Windows\System32\Drivers\etc\hosts", 9)
  1007.       EndIf
  1008.       RegWrite("HKCU\Software\S60Team", "Hosts", "REG_SZ", "Installed")
  1009.       Sleep(350)
  1010.       MsgBox(4096, "Hosts", "Installation completed!", 3)
  1011.  
  1012.     Case $msg = $Imagine
  1013.       If FileExists($Disk & "\Imagine Image Viewer\") Then
  1014.         Run($Disk & "\Imagine Image Viewer\Imagine.exe")
  1015.       Else
  1016.         _7z("Programs\Imagine.7z", $Disk)
  1017.         Sleep(1000)
  1018.         FileCreateShortcut($Disk & "\Imagine Image Viewer\Imagine.exe", $Desktop & "Imagine Image Viewer.lnk", $Disk & "\Imagine Image Viewer\")
  1019.         RegWrite("HKCU\Software\S60Team", "Imagine", "REG_SZ", "Installed")
  1020.         Sleep(350)
  1021.         MsgBox(4096, "Imagine", "Installation completed!", 3)
  1022.       EndIf
  1023.  
  1024.     Case $msg = $AutoRunCleaner
  1025.       If FileExists($Disk & "\AutoRunCleaner\") Then
  1026.         Run($Disk & "\AutoRunCleaner\AutoRunCleaner.exe")
  1027.       Else
  1028.         _7z("Programs\AutoRunCleaner.7z", $Disk)
  1029.         Sleep(1000)
  1030.         FileCreateShortcut($Disk & "\AutoRunCleaner\AutoRunCleaner.exe", $Desktop & "AutoRun Cleaner.lnk", $Disk & "\AutoRunCleaner\")
  1031.         RegWrite("HKCU\Software\S60Team", "AutoRunCleaner", "REG_SZ", "Installed")
  1032.         Sleep(350)
  1033.         MsgBox(4096, "AutoRun Cleaner", "Installation completed!", 3)
  1034.       EndIf
  1035.  
  1036.  
  1037.     Case $msg = $UsbSafelyRemove
  1038.       ShellExecuteWait($exepath & "Programs\Other\USR_6.1.5.1274.exe", "/S /R")
  1039.       RegWrite("HKCU\Software\S60Team", "UsbSafelyRemove", "REG_SZ", "Installed")
  1040.       Sleep(350)
  1041.       MsgBox(4096, "UsbSafelyRemove", "Installation completed!", 3)
  1042.  
  1043.     Case $msg = $TotalCommander
  1044.       If FileExists($Disk & "\TotalCommanderPortable9\TotalCommanderPortable.exe") Then
  1045.         Run($Disk & "\TotalCommanderPortable9\TotalCommanderPortable.exe")
  1046.       Else
  1047.         _7z("Programs\TotalCommanderPortable9.7z", $Disk)
  1048.         Sleep(1000)
  1049.         FileCreateShortcut($Disk & "\TotalCommanderPortable9\TotalCommanderPortable.exe", $Desktop & "Total Commander.lnk", $Disk & "\TotalCommanderPortable9\")
  1050.         RegWrite("HKCU\Software\S60Team", "TotalCommander Portable", "REG_SZ", "Installed")
  1051.         Sleep(350)
  1052.         MsgBox(4096, "Total Commander", "Installation completed!", 3)
  1053.       EndIf
  1054.  
  1055.     Case $msg = $XPFix
  1056.       If _OS() <= 2 Then
  1057.         ; Fix USB Media Device
  1058.         ; Install 64Gb RAM Support (PAE), Installer v4.5, EXFAT, IE8
  1059.         If MsgBox(1, "Fix and Update", "Do you want to install Fixes?" &@CRLF& "64Gb Ram Support, ExFat, MediaDevice(MTP)") = 1 Then
  1060.           ShellExecuteWait($exepath & "Programs\XP_Fixes\XP64G_2.1_Beta.exe")
  1061.           Sleep(350)
  1062.           ShellExecuteWait($exepath & "Programs\XP_Fixes\WindowsXP-Installerv4.5.exe", "/quiet /norestart")
  1063.           Sleep(350)
  1064.           ShellExecuteWait($exepath & "Programs\XP_Fixes\WindowsXP-KB955704-x86-RUS-ExFAT.exe", "/quiet /norestart")
  1065.           Sleep(350)
  1066.           ShellExecuteWait($exepath & "Programs\XP_Fixes\wmfdist11.exe", "/quiet /norestart")
  1067.           Sleep(350)
  1068.           ShellExecuteWait($exepath & "Programs\XP_Fixes\umdf.exe", "/quiet /norestart")
  1069.           RegWrite("HKCU\Software\S60Team", "XP_Fixes", "REG_SZ", "Installed")
  1070.         EndIf
  1071.         ;
  1072.         Sleep(100)
  1073.         If MsgBox(1, "IE8", "Do you want to install IE8 ?") = 1 Then
  1074.           If _IE() < 8 Then
  1075.             ShellExecuteWait($exepath & "Programs\XP_Fixes\WindowsXP-IE8.exe", "/quiet /norestart")
  1076.             RegWrite("HKCU\Software\S60Team", "IE8", "REG_SZ", "Installed")
  1077.           Else
  1078.             MsgBox(4096, "Error!", "Your IE is already v8!")
  1079.           EndIf
  1080.         EndIf
  1081.         ;
  1082.         Sleep(100)
  1083.         If MsgBox(1, "RegFix", "Do you want to use RegFile to apply Settings?") = 1 Then
  1084.           ; Folder
  1085.           ; Show Hidden Files and Extensions
  1086.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Hidden", "REG_DWORD", '0x00000001')
  1087.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "HideFileExt", "REG_DWORD", '0x00000000')
  1088.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "ShowSuperHidden", "REG_DWORD", '0x00000001')
  1089.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "TaskbarAnimations", "REG_DWORD", '0x00000000')
  1090.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\StartPage\", "Favorites", "REG_BINARY", 'FF')
  1091.           ; Disable Thumbs.db
  1092.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "DisableThumbnailCache", "REG_DWORD", '0x00000001')
  1093.           ; Show Full File Names in Explorer:
  1094.           RegWrite("HKCU\Control Panel\Desktop\WindowMetrics", "IconTitleWrap", "REG_BINARY", '0')
  1095.           ; Remember Each Folder State
  1096.           RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ClassicViewState", "REG_DWORD", '0x00000001')
  1097.           ; Start
  1098.           ; No Net Crawling
  1099.           RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "NoNetCrawling", "REG_DWORD", '0x00000001')
  1100.           ; No New apps notify
  1101.           RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Start_NotifyNewApps", "REG_DWORD", '0x00000000')
  1102.           ; No IE and Messenger
  1103.           RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Start_ShowSetProgramAccessAndDefaults", "REG_DWORD", '0x00000000')
  1104.           ; Small icons in Start
  1105.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Start_LargeMFUIcons", "REG_DWORD", '0x00000000')
  1106.           ; Hide in Start: Music, Images, Recent Docs, Search, Help, Favourites
  1107.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Start_ShowMyMusic", "REG_DWORD", '0x00000000')
  1108.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Start_ShowMyPics", "REG_DWORD", '0x00000000')
  1109.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Start_ShowRecentDocs", "REG_DWORD", '0x00000000')
  1110.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Start_ShowSearch", "REG_DWORD", '0x00000000')
  1111.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Start_ShowHelp", "REG_DWORD", '0x00000000')
  1112.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "StartMenuFavorites", "REG_DWORD", '0x00000000')
  1113.           ; Set Recent Programs to 0
  1114.           RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\", "Start_MinMFU", "REG_DWORD", '0x00000000')
  1115.           ; Etc:
  1116.           ; Use Temp
  1117.           RegWrite("HKCU\Environment", "TEMP", "REG_EXPAND_SZ", "%SystemRoot%\TEMP")
  1118.           RegWrite("HKCU\Environment", "TMP", "REG_EXPAND_SZ", "%SystemRoot%\TEMP")
  1119.           ; Keyboard Languages En, Ru, Ua:
  1120.           RegWrite("HKCU\Keyboard Layout\Preload", "1", "REG_SZ", '00000409')
  1121.           RegWrite("HKCU\Keyboard Layout\Preload", "2", "REG_SZ", '00000419')
  1122.           RegWrite("HKCU\Keyboard Layout\Preload", "3", "REG_SZ", '00000422')
  1123.           ; Ctrl+Shift (Alt+Shift is 1,1,2)
  1124.           RegWrite("HKCU\Keyboard Layout\Toggle", "Hotkey", "REG_SZ", '2')
  1125.           RegWrite("HKCU\Keyboard Layout\Toggle", "Language Hotkey", "REG_SZ", '2')
  1126.           RegWrite("HKCU\Keyboard Layout\Toggle", "Layout Hotkey", "REG_SZ", '1')
  1127.           ; Not add Link for: (0x1e000000)
  1128.           RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer", "Link", "REG_BINARY", Binary("0x00000000"))
  1129.           ; Don't Warn about downloaded files
  1130.           RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Attachments", "SaveZoneInformation", "REG_DWORD", '0x00000001')
  1131.           ; No Drive Autorun
  1132.           RegWrite("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDriveTypeAutoRun", "REG_DWORD", '0x000000dd')
  1133.           RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Cdrom", "AutoRun", "REG_DWORD", '0x00000000')
  1134.           ; No Error Reporting
  1135.           RegWrite("HKLM\SOFTWARE\Microsoft\PCHealth\ErrorReporting", "DoReport", "REG_DWORD", '0x00000000')
  1136.           RegWrite("HKLM\SOFTWARE\Microsoft\PCHealth\ErrorReporting", "ShowUI", "REG_DWORD", '0x00000000')
  1137.           ; No Search Internet for extension
  1138.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "NoInternetOpenWith", "REG_DWORD", '0x00000001')
  1139.           ; Don't download Themes
  1140.           RegWrite("-HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\DownloadSites")
  1141.           ; Disable Auto-update
  1142.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "AUOptions", "REG_DWORD", '0x00000001')
  1143.           RegWrite("HKLM\\SYSTEM\CurrentControlSet\Services\wuauserv", "Start", "REG_DWORD", '0x00000004')
  1144.           RegWrite("HKLM\SOFTWARE\Microsoft\Security Center\", "UpdatesDisableNotify", "REG_DWORD", '0x00000001')
  1145.           RegWrite("HKLM\SOFTWARE\Microsoft\Security Center\", "FirewallDisableNotify", "REG_DWORD", '0x00000001')
  1146.           RegWrite("HKLM\SOFTWARE\Microsoft\Security Center\", "AntiVirusDisableNotify", "REG_DWORD", '0x00000001')
  1147.           ; No Dr. Watson
  1148.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug", "Auto", "REG_SZ", '0')
  1149.           ; No System Restore
  1150.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore", "DisableSR", "REG_DWORD", '0x00000001')
  1151.           RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\srservice", "Start", "REG_DWORD", '0x00000004')
  1152.           ; Not Search Driver in  Internet
  1153.           RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\DriverSearching", "DontPromptForWindowsUpdate", "REG_DWORD", '0x00000001')
  1154.           RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\DriverSearching", "DontSearchWindowsUpdate", "REG_DWORD", '0x00000001')
  1155.           ; No Remote
  1156.           RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server", "fAllowToGetHelp", "REG_DWORD", '0x00000000')
  1157.           ; Internet Settings
  1158.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "MigrateProxy", "REG_DWORD", '0x00000001')
  1159.           RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings", "PrivacyAdvanced", "REG_DWORD", '0x00000001')
  1160.           ; Unknown (Maybe First start?)
  1161.           RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\sr\Parameters", "FirstRun", "REG_DWORD", '0x00000001')
  1162.           RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\sr\Parameters", "Start", "REG_DWORD", '0x00000004')
  1163.           RegWrite("HKCU\Software\S60Team", "XP_Settings", "REG_SZ", "Installed")
  1164.         EndIf
  1165.         ;
  1166.         Sleep(350)
  1167.         MsgBox(4096, "XP Fixes", "Installation completed!", 3)
  1168.       Else
  1169.         MsgBox(4096, 'Error', "Your OS don't need this!")
  1170.       EndIf
  1171.  
  1172.     Case $msg = $BKPDrivers
  1173.       If FileExists($Disk & "\DoubleDriver\dd.exe") Then
  1174.         Run($Disk & "\DoubleDriver\dd.exe")
  1175.       Else
  1176.         _7z("Programs\DoubleDriver.7z", $Disk)
  1177.         Sleep(1000)
  1178.         FileCreateShortcut($Disk & "\DoubleDriver\dd.exe", $Desktop & "Backup Drivers.lnk", $Disk & "\DoubleDriver\")
  1179.         Sleep(350)
  1180.         ShellExecute($Disk & "\DoubleDriver\dd.exe")
  1181.         RegWrite("HKCU\Software\S60Team", "DoubleDriver", "REG_SZ", "Installed")
  1182.         Sleep(350)
  1183.         MsgBox(4096, "DoubleDriver", "Installation completed!", 3)
  1184.       EndIf
  1185.  
  1186.       ; Fourth Row
  1187.  
  1188.     Case $msg = $360TSE
  1189.       ShellExecute($exepath & "Programs\360TSE_Full.exe")
  1190.       AutoItSetOption('MouseCoordMode', 0)
  1191.       Sleep(350)
  1192.       ;WinWait('360 Total Security')
  1193.       ;WinActivate('360 Total Security')
  1194.       WinWaitActive('360 Total Security')
  1195.       Sleep(250)
  1196.       MouseClick('primary', 104, 409, 1, 0) ; Убрать галочку
  1197.       MouseClick('primary', 276, 371, 1, 0) ; Установка
  1198.       Sleep(350)
  1199.       Do
  1200.         Sleep(1000)
  1201.       Until WinActive('[CLASS:ATL:00513718]')
  1202.       Sleep(350)
  1203.       MouseClick('primary', 276, 377, 1, 0)
  1204.       Sleep(1000)
  1205.       RegWrite("HKCU\Software\S60Team", "360TSE", "REG_SZ", "Installed")
  1206.       MsgBox(4096, "360Safe", "Installation completed!", 3)
  1207.  
  1208.     Case $msg = $Comodo
  1209.       ShellExecuteWait($exepath & "Programs\CIS_Free_Full.exe")
  1210.       RegWrite("HKCU\Software\S60Team", "CIS_Free", "REG_SZ", "Installed")
  1211.       Sleep(350)
  1212.       MsgBox(4096, "Comodo", "Installation completed!", 3)
  1213.  
  1214.     Case $msg = $AVG
  1215.       ShellExecuteWait($exepath & "Programs\AVG_Free_Full.exe")
  1216.       RegWrite("HKCU\Software\S60Team", "AVG_Free", "REG_SZ", "Installed")
  1217.       Sleep(350)
  1218.       MsgBox(4096, "AVG", "Installation completed!", 3)
  1219.  
  1220.     Case $msg = $Akelpad
  1221.       ShellExecuteWait($exepath & "Programs\AkelPad.exe", "/S /TYPE=3")
  1222.       RegWrite("HKCU\Software\S60Team", "AkelPad", "REG_SZ", "Installed")
  1223.       Sleep(350)
  1224.       MsgBox(4096, "Akelpad", "Installation completed!", 3)
  1225.  
  1226.     Case $msg = $Office2003
  1227.       ShellExecuteWait($exepath & "Programs\Office2003.exe", '/S /MST="Default.mst" /TAB')
  1228.       RegWrite("HKCU\Software\S60Team", "Office 2003", "REG_SZ", "Installed")
  1229.       Sleep(350)
  1230.       MsgBox(4096, "Office 2003", "Installation completed!", 3)
  1231.  
  1232.     Case $msg = $Office2007
  1233.       ShellExecuteWait($exepath & "Programs\Office2007.exe", '-aiP -aic')
  1234.       RegWrite("HKCU\Software\S60Team", "Office 2007", "REG_SZ", "Installed")
  1235.       Sleep(350)
  1236.       MsgBox(4096, "Office 2007", "Installation completed!", 3)
  1237.  
  1238.     Case $msg = $Office2010
  1239.       ShellExecuteWait($exepath & "Programs\Office2010.exe", '-aiP -aic')
  1240.       RegWrite("HKCU\Software\S60Team", "Office 2010", "REG_SZ", "Installed")
  1241.       Sleep(350)
  1242.       MsgBox(4096, "Office 2010", "Installation completed!", 3)
  1243.  
  1244.     Case $msg = $Office2016
  1245.       If _OS() > 3 Then
  1246.         ShellExecuteWait($exepath & "Programs\Office2016.exe", '-aiP -aic')
  1247.         RegWrite("HKCU\Software\S60Team", "Office 2016", "REG_SZ", "Installed")
  1248.         Sleep(350)
  1249.         MsgBox(4096, "Office 2016", "Installation completed!", 3)
  1250.       Else
  1251.         MsgBox(4096, "Error", "Your OS not support Office 2016!", 3)
  1252.       EndIf
  1253.  
  1254.     Case $msg = $OpenOffice
  1255.       ;setup.exe /msi /qb INSTALLLOCATION="D:\Program Files (x86)\OpenOffice 4\" ALLUSERS=1 /l*v C:\Temp\OpenOffice_MSI.Log
  1256.       ShellExecuteWait($exepath & "Programs\OpenOffice.exe", "/S")
  1257.       RegWrite("HKCU\Software\S60Team", "OpenOffice", "REG_SZ", "Installed")
  1258.       Sleep(350)
  1259.       MsgBox(4096, "OpenOffice", "Installation completed!", 3)
  1260.  
  1261.     Case $msg = $WPSOffice
  1262.       ShellExecuteWait($exepath & "Programs\WPS_Free.exe", "/S /ACCEPTEULA=1")
  1263.       RegWrite("HKCU\Software\S60Team", "WPS_Office", "REG_SZ", "Installed")
  1264.       Sleep(350)
  1265.       MsgBox(4096, "WPS Office", "Installation completed!", 3)
  1266.  
  1267.     Case $msg = $STDUViewer
  1268.       ShellExecuteWait($exepath & "Programs\stduviewer_repack.exe", "/SP- /VERYSILENT")
  1269.       RegWrite("HKCU\Software\S60Team", "STDU Viewer", "REG_SZ", "Installed")
  1270.       Sleep(350)
  1271.       MsgBox(4096, "STDU Viewer", "Installation completed!", 3)
  1272.  
  1273.     Case $msg = $NetworkFix
  1274.       ; Flush DNS and WinSock
  1275.       $wsf1 = Run($SystemDir & "cmd.exe")
  1276.       Sleep(250)
  1277.       If $wsf1 = 0 Then
  1278.         MsgBox(16, "Error!", @error)
  1279.       Else
  1280.         WinWaitActive("[CLASS:ConsoleWindowClass]")
  1281.         Sleep(200)
  1282.         Send("cd /d " & $SystemDir)
  1283.         Send("{ENTER}")
  1284.         Sleep(200)
  1285.         Send("ipconfig /flushdns")
  1286.         Send("{ENTER}")
  1287.         Sleep(200)
  1288.         Send("netsh winsock reset")
  1289.         Send("{ENTER}")
  1290.         Sleep(200)
  1291.         Send("netsh winsock reset catalog")
  1292.         Send("{ENTER}")
  1293.         Sleep(200)
  1294.         Send("netsh int ip reset reset.log")
  1295.         Send("{ENTER}")
  1296.         Sleep(200)
  1297.         WinClose("[CLASS:ConsoleWindowClass]")
  1298.       EndIf
  1299.       Sleep(350)
  1300.       MsgBox(4096, "Network Fix", "You need to Reboot your PC!", 3)
  1301.  
  1302.     Case $msg = $PageFile
  1303.       ; Set PageFile
  1304.       $set_pagefile = MsgBox(1, "Hello!", "Dou you want to set Pagefile automatically?")
  1305.       If $set_pagefile = 1 Then
  1306.         ; Work With RAM: Set Pagefile if RAM is <4Gb
  1307.         $mem = MemGetStats()
  1308.         $mem2 = StringLen($mem[1])
  1309.         If $mem2 == 8 Then
  1310.           $meme = StringTrimRight($mem[1], 4) ; >= 10Gb
  1311.           $meme2 = ($meme / 2 + $meme)
  1312.         Else
  1313.           $meme = StringTrimRight($mem[1], 3) ; < 10Gb
  1314.           $meme2 = ($meme / 2 + $meme)
  1315.         EndIf
  1316.         ; Set Pagefile:
  1317.         If $meme > 4000 Then
  1318.           ; Delete Swapfile If 4Gb RAM
  1319.           RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "PagingFiles", "REG_MULTI_SZ", '')
  1320.         Else
  1321.           ; Set Swapfile
  1322.           RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "PagingFiles", "REG_MULTI_SZ", 'C:\pagefile.sys ' & $meme2 & ' ' & $meme2)
  1323.         EndIf
  1324.       RegWrite("HKCU\Software\S60Team", "PageFile", "REG_SZ", $meme2)
  1325.       #cs
  1326.       Else
  1327.         $getPFregVal = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "PagingFiles")
  1328.         $rxpS = StringRegExp($getPFregVal, '\d+', 1)
  1329.         MsgBox(4096, "PageFile:", 'Current PageFile is: ' & $rxpS[0] &"mb")
  1330.       #ce
  1331.       EndIf
  1332.  
  1333.     ; LightShot
  1334.     Case $msg = $LightShot
  1335.       If FileExists($Disk & "\LightShot\LightShot.exe") Then
  1336.         Run($Disk & "\LightShot\LightShot.exe")
  1337.       Else
  1338.         FileCopy($exepath & "Programs\Other\LightShot.exe", $Disk & "\LightShot\LightShot.exe", 9)
  1339.         FileCreateShortcut($Disk & "\LightShot\LightShot.exe", $Desktop & "LightShot.lnk", $Disk & "\LightShot\")
  1340.         RegWrite("HKCU\Software\S60Team", "LightShot", "REG_SZ", "Installed")
  1341.         Sleep(350)
  1342.         MsgBox(4096, "LightShot", "Installation completed!", 3)
  1343.       EndIf
  1344.  
  1345.     ; Usb Disk Eject
  1346.     Case $msg = $UsbDiskEject
  1347.       If FileExists($Disk & "\UsbDiskEject\USB_Disk_Eject.exe") Then
  1348.         Run($Disk & "\UsbDiskEject\USB_Disk_Eject.exe")
  1349.       Else
  1350.         FileCopy($exepath & "Programs\Other\USB_Disk_Eject.exe", $Disk & "\USBDiskEject\USB_Disk_Eject.exe", 9)
  1351.         FileCreateShortcut($Disk & "\USBDiskEject\USB_Disk_Eject.exe", $Desktop & "USB Disk Eject.lnk", $Disk & "\USBDiskEject\")
  1352.         ; Create Shortcut onWindowsLoad
  1353.         ; v1: FileCreateShortcut($Disk & "\USBDiskEject\USB_Disk_Eject.exe", $Startup & "USB Disk Eject.lnk", $Disk & "\USBDiskEject\")
  1354.         ; v2: RegWrite($StartupREG, "USBDiskEject", "REG_SZ", $Disk & "\USBDiskEject\USB_Disk_Eject.exe")
  1355.         RegRead($StartupREG, "USBDiskEject")
  1356.         If @error Then
  1357.           RegWrite($StartupREG, "USBDiskEject", "REG_SZ", $Disk & "\USBDiskEject\USB_Disk_Eject.exe")
  1358.         EndIf
  1359.         RegWrite("HKCU\Software\S60Team", "USBDiskEject", "REG_SZ", "Installed")
  1360.         Sleep(350)
  1361.         MsgBox(4096, "UsbDiskEject", "Installation completed!", 3)
  1362.       EndIf
  1363.  
  1364.     Case $msg = $Fraps
  1365.       ; Auto-Install
  1366.       If FileExists("D:\Fraps") Or FileExists(@HomeDrive & "\Fraps") Then
  1367.         $FrapsCheck = Run("D:\Fraps\fraps.exe")
  1368.         If $FrapsCheck = 0 Then
  1369.           Run(@HomeDrive & "\Fraps\fraps.exe")
  1370.         EndIf
  1371.       Else
  1372.         ShellExecute($exepath & "Programs\Other\FRAPS.exe")
  1373.         Sleep(250)
  1374.         WinWaitActive("[CLASS:#32770]")
  1375.         ControlClick("Fraps 3.5.99 - davidkleinvelderman@hotmail.com: License Agreement", "", "Button2")
  1376.         Sleep(250)
  1377.         If _Drive("D:", 4) = "Fixed" Then
  1378.           Send("D:\Fraps")
  1379.         Else
  1380.           Send("C:\Fraps")
  1381.         EndIf
  1382.         Sleep(250)
  1383.         ControlClick("Fraps 3.5.99 - davidkleinvelderman@hotmail.com: Installation Folder", "", "Button2")
  1384.         Sleep(250)
  1385.         ControlClick("Fraps 3.5.99 - davidkleinvelderman@hotmail.com: Start Menu Folder", "", "Button2")
  1386.         Sleep(250)
  1387.         ControlClick("Fraps 3.5.99 - davidkleinvelderman@hotmail.com: Completed", "", "Button2")
  1388.         Sleep(350)
  1389.         RegWrite("HKCU\Software\S60Team", "Fraps", "REG_SZ", "Installed")
  1390.         MsgBox(4096, "Fraps", "Installation completed!", 3)
  1391.       EndIf
  1392.  
  1393.     Case $msg = $VolumeMax
  1394.       ; Fix Volume
  1395.       Switch _OS()
  1396.         Case 1 To 2
  1397.           For $i=1 to 25
  1398.             Send("{VOLUME_UP}")
  1399.           Next
  1400.         Case 3 To 7
  1401.           For $i=1 to 50
  1402.             Send("{VOLUME_UP}")
  1403.           Next
  1404.       EndSwitch
  1405.       Sleep(350)
  1406.       MsgBox(4096, "Volume", "Volume is Maxed out!", 3)
  1407.  
  1408.     Case $msg = $ClearTemp
  1409.       ; Clear TEMP folder (Exit all programs to work):
  1410.       Global $aFldrs[5] = [EnvGet("temp"), @HomeDrive & "\temp", @WindowsDir & "\temp", @WindowsDir & "\prefetch", $UserTemp]
  1411.       Global $i5
  1412.       For $i5 = 0 To UBound($aFldrs) - 1
  1413.         If FileExists($aFldrs[$i5]) Then
  1414.           DirRemove($aFldrs[$i5], 1)
  1415.           Sleep(100)
  1416.           DirCreate($aFldrs[$i5])
  1417.         EndIf
  1418.       Next
  1419.       Sleep(350)
  1420.       MsgBox(4096, "Temp", "All TEMP folders are clear!", 3)
  1421.  
  1422.     Case $msg = $Disable10Updates
  1423.       ; STOP Windows 10 Updates before Installing programs:
  1424.       If _OS() = 7 Then
  1425.         $DISA10 = MsgBox(1, "Updates", "Do you want to disable" &@CRLF& "Windows 10 updates?")
  1426.         If $DISA10 = 1 Then
  1427.           If Not FileExists($Disk & "\StopUpdates10\") Then
  1428.             _7z("Programs\StopUpdates10.7z", $Disk)
  1429.             FileCreateShortcut($Disk & "\StopUpdates10\StopUpdates10.exe", $Desktop & "Stop Updates.lnk", $Disk & "\StopUpdates10\")
  1430.             Sleep(1000)
  1431.             ShellExecute($Disk & "\StopUpdates10\StopUpdates10.exe")
  1432.           Else
  1433.             Sleep(1000)
  1434.             ShellExecute($Disk & "\StopUpdates10\StopUpdates10.exe")
  1435.           EndIf
  1436.           Sleep(350)
  1437.           MsgBox(4096, "StopUpdates10", "Installation completed!", 3)
  1438.         EndIf
  1439.         RegWrite("HKCU\Software\S60Team", "Win10 Update", "REG_SZ", "Disabled")
  1440.         If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Stop Win10 Update: ' & Round(TimerDiff($Timer)) & @CRLF)
  1441.       ElseIf _OS() < 5 Then
  1442.         ; Windows XP, Server 2003, Vista, Windows 7
  1443.         RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "AUOptions", "REG_DWORD", '0x00000001')
  1444.         RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\wuauserv", "Start", "REG_DWORD", '0x00000004')
  1445.         RegWrite("HKCU\Software\S60Team", "Windows Update", "REG_SZ", "Disabled")
  1446.         ;
  1447.         ;HKLM\Software\Policies\Microsoft\Windows\WindowsUpdate\AU, NoAutoUpdate, 1
  1448.         ;HKLM\Software\Policies\Microsoft\Windows\WindowsUpdate, DisableWindowsUpdateAccess, 1
  1449.         ;HKLM\SYSTEM\Internet Communication Management\Internet Communication, DisableWindowsUpdateAccess, 1
  1450.         ;HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update, AUOptions, 1
  1451.         ;
  1452.         ; Disable Update Service:
  1453.         ;sc config wuauserv start= disabled
  1454.         ;net stop wuauserv
  1455.         Sleep(350)
  1456.         MsgBox(4096, "Stop Updates", "Windows Update is Disabled!", 3)
  1457.       Else
  1458.         MsgBox(4096, 'Error', "Your OS don't need this!")
  1459.       EndIf
  1460.  
  1461.     Case $msg = $Ammyy
  1462.       If FileExists($Disk & "\AmmyyAdmin.exe") Then
  1463.         Run($Disk & "\AmmyyAdmin.exe")
  1464.       Else
  1465.         _7z("Programs\AmmyyAdmin.7z", $Disk)
  1466.         ;FileMove($exepath & "Programs\AA_v3.ex_",$Disk & "\AmmyyAdmin.exe",1)
  1467.         FileCreateShortcut($Disk & "\AmmyyAdmin.exe", $Desktop & "Ammyy Admin Free.lnk", $Disk & "\")
  1468.         RegWrite("HKCU\Software\S60Team", "AmmyyAdmin", "REG_SZ", "Installed")
  1469.         Sleep(350)
  1470.         MsgBox(4096, "Ammyy Admin Free", "Installation completed!", 3)
  1471.       EndIf
  1472.  
  1473.     Case $msg = $UninstallTool
  1474.       ShellExecuteWait($exepath & "Programs\Other\Uninstall.Tool.v3.5.7.5610.exe", "/S /I")
  1475.       RegWrite("HKCU\Software\S60Team", "Uninstall Tool", "REG_SZ", "Installed")
  1476.       Sleep(350)
  1477.       MsgBox(4096, "UninstallTool", "Installation completed!", 3)
  1478.  
  1479.     Case $msg = $RevoUninstaller
  1480.       $Revo1 = FileExists($Disk & "\RevoPortable32")
  1481.       $Revo2 = FileExists($Disk & "\RevoPortable64")
  1482.       If $Revo1 Or $Revo2 Then
  1483.         If @OSArch = 'x86' Then
  1484.           Run($Disk & "\RevoPortable32\RevoUninstallerPortable.exe")
  1485.         Else
  1486.           Run($Disk & "\RevoPortable64\RevoUninstallerPortable.exe")
  1487.         EndIf
  1488.       Else
  1489.         _7z("Programs\Other\RevoUninstallerProPortable.7z", $Disk)
  1490.         If @OSArch = 'x86' Then
  1491.           FileCreateShortcut($Disk & "\RevoPortable32\RevoUninstallerPortable.exe", $Desktop & "Revo Uninstaller Portable.lnk", $Disk & "\RevoPortable32")
  1492.           RegWrite("HKCU\Software\S60Team", "RevoUninstaller x86 Portable", "REG_SZ", "Installed")
  1493.         Else
  1494.           FileCreateShortcut($Disk & "\RevoPortable64\RevoUninstallerPortable.exe", $Desktop & "Revo Uninstaller Portable x64.lnk", $Disk & "\RevoPortable64")
  1495.           RegWrite("HKCU\Software\S60Team", "RevoUninstaller x64 Portable", "REG_SZ", "Installed")
  1496.         EndIf
  1497.         Sleep(350)
  1498.         MsgBox(4096, "RevoUninstaller", "Installation completed!", 3)
  1499.       EndIf
  1500.  
  1501.     Case $msg = $PuntoSwitcher
  1502.       ShellExecuteWait($exepath & "Programs\Other\PuntoSwitcher.exe", "/VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-")
  1503.       RegWrite("HKCU\Software\S60Team", "Punto Switcher", "REG_SZ", "Installed")
  1504.       Sleep(350)
  1505.       MsgBox(4096, "PuntoSwitcher", "Installation completed!", 3)
  1506.  
  1507.     Case $msg = $AmlMaple
  1508.       ShellExecuteWait($exepath & "Programs\Other\AmlMaple.exe")
  1509.       RegWrite("HKCU\Software\S60Team", "AmlMaple", "REG_SZ", "Installed")
  1510.       ;Sleep(350)
  1511.       ;MsgBox(4096, "AmlMaple", "Installation completed!", 3)
  1512.  
  1513.     Case $msg = $VLC
  1514.       ShellExecuteWait($exepath & "Programs\Other\vlc-3.0.4-win32.exe", "/S")
  1515.       RegWrite("HKCU\Software\S60Team", "VideoLAN (VLC)", "REG_SZ", "Installed")
  1516.       Sleep(350)
  1517.       MsgBox(4096, "VideoLAN", "Installation completed!", 3)
  1518.  
  1519.     Case $msg = $POTPlayer
  1520.       ShellExecuteWait($exepath & "Programs\Other\PotPlayer.exe", "/S /I")
  1521.       RegWrite("HKCU\Software\S60Team", "PotPlayer", "REG_SZ", "Installed")
  1522.       Sleep(350)
  1523.       MsgBox(4096, "PotPlayer", "Installation completed!", 3)
  1524.  
  1525.     Case $msg = $KMPlayer
  1526.       ShellExecuteWait($exepath & "Programs\Other\KMPlayer.exe", "/S /I")
  1527.       RegWrite("HKCU\Software\S60Team", "KMPlayer", "REG_SZ", "Installed")
  1528.       Sleep(350)
  1529.       MsgBox(4096, "KMPlayer", "Installation completed!", 3)
  1530.  
  1531.     Case $msg = $DisableDefender
  1532.       If _OS() > 2 Then
  1533.         RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows Defender", "DisableAntiSpyware", "REG_DWORD", '0x00000001')
  1534.         RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableBehaviorMonitoring", "REG_DWORD", '0x00000001')
  1535.         RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableOnAccessProtection", "REG_DWORD", '0x00000001')
  1536.         RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableScanOnRealtimeEnable", "REG_DWORD", '0x00000001')
  1537.         RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableIOAVProtection", "REG_DWORD", '0x00000001')
  1538.         RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows Defender\Real-Time Protection", "DisableRealtimeMonitoring", "REG_DWORD", '0x00000001')
  1539.         RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows Defender\UX Configuration", "Notification_Suppress", "REG_DWORD", '0x00000001')
  1540.         RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "SecurityHealth")
  1541.         RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "WindowsDefender")
  1542.       Else
  1543.         MsgBox(4096, 'Error', "Your OS don't need this!")
  1544.       EndIf
  1545.  
  1546.         Case $msg = $CCleaner
  1547.             ShellExecuteWait($exepath & "Programs\CCleaner.exe", "/S /TECH")
  1548.       RegWrite("HKCU\Software\S60Team", "CCleaner Technician", "REG_SZ", "Installed")
  1549.       Sleep(350)
  1550.       MsgBox(4096, "CCleaner", "Installation completed!", 3)
  1551.  
  1552.         Case $msg = $Defraggler
  1553.             ShellExecuteWait($exepath & "Programs\Defraggler.exe", "/S /TECH")
  1554.       RegWrite("HKCU\Software\S60Team", "Defraggler Technician", "REG_SZ", "Installed")
  1555.       Sleep(350)
  1556.       MsgBox(4096, "Defraggler", "Installation completed!", 3)
  1557.  
  1558.     Case $msg = $GUI_EVENT_CLOSE
  1559.     ;Case $msg = -3
  1560.       $MGD = GUIDelete($W_Main)
  1561.       ;
  1562.       If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Begin to Delete: ' & Round(TimerDiff($Timer)) & @CRLF)
  1563.       FileDelete($7za) ; Do i really need to delete 7za.exe?  It's not faster, DELETE!
  1564.       FileDelete($icl)
  1565.       If $Debug = 1 And $ConsoleLog = 1 Then ConsoleWrite('Deleted: ' & Round(TimerDiff($Timer)) & @CRLF)
  1566.       ExitLoop
  1567.   EndSelect
  1568. WEnd
  1569.  
  1570. Exit
  1571. ; All ends...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!