Untitled
unknown
autohotkey
2 years ago
12 kB
1
Indexable
#cs
[CWAutCompFileInfo]
Company=dinhtai92dn
Copyright=@2015
Description=Tool Fast Config VPS
Version=1.0
ProductName=FastConfigVPS
ProductVersion=1.0
#ce
#RequireAdmin
#NoTrayIcon
#include <InetConstants.au3>
#include <GuiConstantsEx.au3>
#include <EditConstants.au3>
#include <AutoItConstants.au3>
HotKeySet("{ESC}", "_Exit")
Func _Exit()
Exit
EndFunc
$hGUI = GUICreate("FastConfigVPS", 200, 370, -1, -1)
$HTabMain = GUICtrlCreateTab(1, 1, 198, 315)
$hTab1 = GUICtrlCreateTabItem("Main")
$UAC = GUICtrlCreateCheckbox("Disable UAC", 10, 40, 150, 27)
GUICtrlSetState(-1, $GUI_CHECKED)
$IEESC = GUICtrlCreateCheckbox("TurnOff IE ESC", 10, 70, 150, 27)
GUICtrlSetState(-1, $GUI_CHECKED)
$WINUPDATE = GUICtrlCreateCheckbox("Disable Windows Update", 10, 100, 150, 27)
GUICtrlSetState(-1, $GUI_CHECKED)
$TRAYICON = GUICtrlCreateCheckbox("Show All System Tray Icon", 10, 130, 150, 27)
GUICtrlSetState(-1, $GUI_CHECKED)
$SmallIcon = GUICtrlCreateCheckbox("Taskbar Small Icons", 10, 160, 150, 27)
GUICtrlSetState(-1, $GUI_CHECKED)
$Firewall = GUICtrlCreateCheckbox("Turn Off Firewall", 10, 190, 150, 27)
GUICtrlSetState(-1, $GUI_CHECKED)
$WPassChange = GUICtrlCreateCheckbox("Change Windows Password", 10, 220, 150, 27)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateLabel("NewPassword: " , 10, 250, 150, 15)
GUICtrlSetFont(-1, 11)
$WPassword = GUICtrlCreateInput("",10,270,180,27)
GUICtrlSetFont(-1, 13)
$hTab2 = GUICtrlCreateTabItem("Installing software")
$MOZ = GUICtrlCreateCheckbox("MOZ_NO_REMOTE = 1", 10, 40, 150, 27)
$Chrome = GUICtrlCreateCheckbox("Google Chrome", 10, 70, 150, 27)
$FF = GUICtrlCreateCheckbox("Firefox", 10, 100, 150, 27)
$Bit = GUICtrlCreateCheckbox("Bitvise SSH", 10, 130, 150, 27)
$Proxifier = GUICtrlCreateCheckbox("Proxifier", 10, 160, 150, 27)
$Hitleap = GUICtrlCreateCheckbox("Hitleap", 10, 190, 150, 27)
$FlashPlayer = GUICtrlCreateCheckbox("Flash Player", 10, 220, 150, 27)
$Winrar = GUICtrlCreateCheckbox("Winrar", 10, 250, 150, 27)
$Net4 = GUICtrlCreateCheckbox(".NET Framework 4", 10, 280, 150, 27)
GUICtrlCreateTabItem("")
$ButtonRun = GUICtrlCreateButton("Config", 50, 315, 100, 30, 0)
GUICtrlSetFont(-1, 13)
$ButtonFacebook = GUICtrlCreateButton("Powered by dinhtai92dn", 10, 345, 180, 20, 0)
GUICtrlSetFont(-1, 9)
GUISetState(@SW_SHOW)
Global $iUAC = 1, $iIEESC = 1, $iWINUPDATE = 1, $iWPassChange = 1, $iTRAYICON = 1, $iSmallIcon = 1, $iFirewall = 1, $iMOZ = 0, $iChrome = 0, $iFF = 0, $iBit = 0, $iProxifier = 0, $iHitleap = 0, $iFlashPlayer = 0, $iWinrar = 0, $iNet4 = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $UAC
$iUAC = _IsChecked($hGUI, $UAC)
Case $IEESC
$iIEESC = _IsChecked($hGUI, $IEESC)
Case $WINUPDATE
$iWINUPDATE = _IsChecked($hGUI, $WINUPDATE)
Case $WPassChange
$iWPassChange = _IsChecked($hGUI, $WPassChange)
Case $TRAYICON
$iTRAYICON = _IsChecked($hGUI, $TRAYICON)
Case $SmallIcon
$iSmallIcon = _IsChecked($hGUI, $SmallIcon)
Case $Firewall
$iFirewall = _IsChecked($hGUI, $Firewall)
Case $MOZ
$iMOZ = _IsChecked($hGUI, $MOZ)
Case $Chrome
$iChrome = _IsChecked($hGUI, $Chrome)
Case $FF
$iFF = _IsChecked($hGUI, $FF)
Case $Bit
$iBit = _IsChecked($hGUI, $Bit)
Case $Proxifier
$iProxifier = _IsChecked($hGUI, $Proxifier)
Case $Hitleap
$iHitleap = _IsChecked($hGUI, $Hitleap)
Case $FlashPlayer
$iFlashPlayer = _IsChecked($hGUI, $FlashPlayer)
Case $Winrar
$iWinrar = _IsChecked($hGUI, $Winrar)
Case $Net4
$iNet4 = _IsChecked($hGUI, $Net4)
Case $ButtonRun
$sMessage_stt = ""
SplashTextOn("Processing status", $sMessage_stt, 300, 350, -1, -1, $DLG_TEXTLEFT + $DLG_MOVEABLE, "")
If $iUAC = 1 Then
RegWrite("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", "REG_DWORD", 0)
$sMessage_stt = $sMessage_stt & "Disable UAC -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iIEESC = 1 Then
RegWrite("HKLM64\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A7-37EF-4b3f-8CFC-4F3A74704073}", "IsInstalled", "REG_DWORD", 0)
RegWrite("HKLM64\SOFTWARE\Microsoft\Active Setup\Installed Components\{A509B1A8-37EF-4b3f-8CFC-4F3A74704073}", "IsInstalled", "REG_DWORD", 0)
$sMessage_stt = $sMessage_stt & "TurnOff IE ESC -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iWINUPDATE = 1 Then
RegWrite("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update", "AUOptions", "REG_DWORD", 1)
$sMessage_stt = $sMessage_stt & "Disable Windows Update -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iTRAYICON = 1 Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", 0)
$sMessage_stt = $sMessage_stt & "Show All System Tray Icon -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iSmallIcon = 1 Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", 1)
$sMessage_stt = $sMessage_stt & "Taskbar Small Icons -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iFirewall = 1 Then
Run(@ComSpec & " /C NetSh Advfirewall set allprofiles state off")
$sMessage_stt = $sMessage_stt & "Turn Off Firewall -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iWPassChange = 1 Then
$passs = GUICtrlRead($WPassword)
If $passs <> "" Then
WinChangePass()
$sMessage_stt = $sMessage_stt & "Change Windows Password -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
Else
MsgBox(0, "Error", "Please check NewPassword")
EndIf
EndIf
If $iMOZ = 1 Then
RegWrite("HKLM64\SYSTEM\ControlSet001\Control\Session Manager\Environment", "MOZ_NO_REMOTE", "REG_SZ", 1)
$sMessage_stt = $sMessage_stt & "MOZ_NO_REMOTE -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iChrome = 1 Then
$hDownloadChrome = InetGet("https://dl.google.com/tag/s/appguid%3D%7B8A69D345-D564-463C-AFF1-A69D9E530F96%7D%26iid%3D%7B6895D2F5-C00B-C0C3-5A9F-9F5A2D9AE003%7D%26lang%3Den%26browser%3D4%26usagestats%3D0%26appname%3DGoogle%2520Chrome%26needsadmin%3Dprefers%26installdataindex%3Ddefaultbrowser/update2/installers/ChromeSetup.exe", @TempDir & "\ChromeSetup.exe", $INET_FORCERELOAD)
RunWait(@TempDir & "\ChromeSetup.exe /silent /install")
$sMessage_stt = $sMessage_stt & "Google Chrome -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iFF = 1 Then
$hDownloadFF = InetGet("https://download-installer.cdn.mozilla.net/pub/firefox/releases/40.0/win32/en-US/Firefox%20Setup%2040.0.exe", @TempDir & "\FirefoxSetup.exe", $INET_FORCERELOAD)
RunWait(@TempDir & "\FirefoxSetup.exe -ms")
$sMessage_stt = $sMessage_stt & "Firefox -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iBit = 1 Then
$hDownloadBit = InetGet("http://dl.bitvise.com/BvSshClient-Inst.exe", @TempDir & "\BitviseSSH.exe", $INET_FORCERELOAD)
Run(@TempDir & "\BitviseSSH.exe")
WinWaitActive("Bitvise SSH Client 6.31 Installer")
ControlClick("Bitvise SSH Client 6.31 Installer","I agree to accept all the terms of this License Agreement","[CLASS:Button; INSTANCE:1]")
Sleep(300)
ControlClick("Bitvise SSH Client 6.31 Installer","Install","[CLASS:Button; INSTANCE:5]")
WinWaitActive("Installation Completed")
ControlClick("Installation Completed","OK","[CLASS:Button; INSTANCE:1]")
Sleep(300)
ProcessClose("BvSsh.exe")
$sMessage_stt = $sMessage_stt & "BvSshClient SSH -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iProxifier = 1 Then
$hDownloadProxifier = InetGet("https://www.dropbox.com/s/rfw7mnqo45q73mr/ProxifierSetup.exe?dl=1", @TempDir & "\Proxifier.exe", $INET_FORCERELOAD)
Run(@TempDir & "\Proxifier.exe")
WinWaitActive("Setup - Proxifier")
ControlClick("Setup - Proxifier", "&Next >", "[CLASS:TNewButton; INSTANCE:1]")
Sleep(100)
ControlClick("Setup - Proxifier", "I &accept the agreement", "[CLASS:TNewRadioButton; INSTANCE:1]")
Sleep(100)
ControlClick("Setup - Proxifier", "&Next >", "[CLASS:TNewButton; INSTANCE:2]")
Sleep(100)
ControlClick("Setup - Proxifier", "&Next >", "[CLASS:TNewButton; INSTANCE:3]")
Sleep(100)
ControlClick("Setup - Proxifier", "&Next >", "[CLASS:TNewButton; INSTANCE:4]")
Sleep(100)
ControlClick("Setup - Proxifier", "&Next >", "[CLASS:TNewButton; INSTANCE:4]")
Sleep(100)
ControlClick("Setup - Proxifier", "&Install", "[CLASS:TNewButton; INSTANCE:4]")
While 1
If ControlCommand("Setup - Proxifier", "&Finish", "[CLASS:TNewButton; INSTANCE:4]", "IsVisible", "") Then
ControlClick("Setup - Proxifier", "&Finish", "[CLASS:TNewButton; INSTANCE:4]")
ExitLoop
Else
Sleep(500)
EndIf
WEnd
$sMessage_stt = $sMessage_stt & "Proxifier -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iHitleap = 1 Then
$hDownloadHitleap = InetGet("https://hitleap.com/viewer/latest", @TempDir & "\Hitleap_setup.msi", $INET_FORCERELOAD)
RunWait('msiexec /i ' & @TempDir & '\Hitleap_setup.msi /quiet /qn')
$sMessage_stt = $sMessage_stt & "Hitleap -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iFlashPlayer = 1 Then
$hDownloadFlashPlayer = InetGet("https://fpdownload.macromedia.com/get/flashplayer/current/licensing/win/install_flash_player_18_plugin.exe", @TempDir & "\install_flash_player_18_plugin.exe", $INET_FORCERELOAD)
RunWait(@TempDir & "\install_flash_player_18_plugin.exe -install")
$sMessage_stt = $sMessage_stt & "Flash Player -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iWinrar = 1 Then
$hDownloadWinrar = InetGet("http://www.rarlab.com/rar/winrar-x64-53b2.exe", @TempDir & "\winrar-x64-53b2.exe", $INET_FORCERELOAD)
RunWait(@TempDir & "\winrar-x64-53b2.exe /S")
$sMessage_stt = $sMessage_stt & "Winrar -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
If $iNet4 = 1 Then
$hDownloadNet4 = InetGet("http://download.microsoft.com/download/9/5/A/95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE/dotNetFx40_Full_x86_x64.exe", @TempDir & "\dotNetFx40_Full_x86_x64.exe", $INET_FORCERELOAD)
RunWait(@TempDir & "\dotNetFx40_Full_x86_x64.exe /q /norestart")
$sMessage_stt = $sMessage_stt & ".NET Framework 4 -> Done" & @CRLF
ControlSetText("Processing status", "", "Static1", $sMessage_stt)
EndIf
ProcessClose("explorer.exe")
Sleep(400)
;EnvUpdate()
Run("explorer.exe")
SplashOff()
MsgBox(68, "success", "Success..!",5)
Case $ButtonFacebook
Shellexecute("https://www.facebook.com/manlonely4ev")
EndSwitch
WEnd
Func WinChangePass()
Local $strComputer, $CPU, $objUser,$adminLocal
$strComputer = "."
$CPU = ObjGet("WinNT://" & $strComputer & ",Computer")
$objUser = $CPU.GetObject("User", @UserName)
$objUser.SetPassword ($passs)
$objUser.SetInfo
EndFunc
Func _IsChecked($sTitle, $iCtrlID)
Return ControlCommand($sTitle, "", $iCtrlID, "IsChecked")
EndFunc
Editor is loading...