#RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=AutoLogon Manager.ico #AutoIt3Wrapper_Outfile_x64=..\..\Logiciels\AutoLogon Manager.exe #AutoIt3Wrapper_Res_Comment=Autologon Manager #AutoIt3Wrapper_Res_Description=Autologon Manager #AutoIt3Wrapper_Res_Fileversion=1.0.4.12 #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y #AutoIt3Wrapper_Res_ProductName=Autologon Manager #AutoIt3Wrapper_Res_ProductVersion=1.0.0.0 #AutoIt3Wrapper_Res_CompanyName=Tyleo Softwares #AutoIt3Wrapper_Res_LegalCopyright=Tyleo Softwares #AutoIt3Wrapper_Res_LegalTradeMarks=Tyleo Softwares #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include "MetroGUI-UDF\MetroGUI_UDF.au3" #include "TyleoAboutMe.au3" $CurrentVer = FileGetVersion(@AutoItExe) $ProgName = "Autologon Manager " & $CurrentVer #cs Tyleo Software Project Base v1 Created With CNP and DevTools Base Folder All Softwares created with this base are Free and Open Sourced. Join our Guilded Server ! https://www.guilded.gg/i/2DRlM7Mp #ce $NoticeConfirm = _Metro_MsgBox(4,"NOTICE - TYLEO SOFTWARES FOR ADMIN'S","WARNING - THIS SOFTWARE CAN CREATE AND MANAGE AUTOMATIC LOGON. THE USE OF THIS SOFTWARE IS AT YOUR OWN RISK. WE STRONGLY DONT RECOMMEND TO CONFIGURE AN AUTOLOGON ON AN ADMINISTRATOR ACCOUNT, AND EVEN MORE DOMAIN ADMIN ACCOUNT. THIS SOFTWARE ARE PROVIDED WITH THE AS-IS BASIS. SELECT YES/OUI IF YOU UNDERSTAND THE RISK.") if $NoticeConfirm = "No" Then Exit(0) EndIf $Win_Logon = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" $Win_AutoUser = "DefaultUserName" $Win_AutoPass = "DefaultPassword" $Win_AutoDomain = "DefaultDomainName" $Win_AutologonActivation = "AutoAdminLogon" $Win_Enabled = "1" $Win_Disabled = "0" #include #include #include #include #include #Region ### START Koda GUI section ### Form= Global $Form1 = GUICreate("Autologon Manager " & $CurrentVer, 483, 163, 236, 242) GUISetFont(14, 400, 0, "Segoe UI") Global $Label1 = GUICtrlCreateLabel("Username", 8, 8, 94, 29) Global $Label2 = GUICtrlCreateLabel("Password", 8, 48, 94, 29) Global $Label3 = GUICtrlCreateLabel("Domain", 8, 88, 94, 29) Global $AutoUser = GUICtrlCreateInput("", 104, 8, 273, 28) GUICtrlSetFont(-1, 11, 400, 0, "Segoe UI Light") Global $AutoPass = GUICtrlCreateInput("", 104, 48, 273, 28) GUICtrlSetFont(-1, 11, 400, 0, "Segoe UI Light") Global $AutoDomain = GUICtrlCreateInput("", 104, 88, 273, 28) GUICtrlSetFont(-1, 11, 400, 0, "Segoe UI Light") Global $OneClear = GUICtrlCreateButton("๐Ÿงน", 384, 8, 25, 25) GUICtrlSetTip(-1,"Clear Input") GUICtrlSetCursor(-1,0) Global $OneRead = GUICtrlCreateButton("๐Ÿ”ฝ", 416, 8, 25, 25) GUICtrlSetTip(-1,"Get Active Value") GUICtrlSetCursor(-1,0) Global $OneRemove = GUICtrlCreateButton("โŒ", 448, 8, 25, 25) GUICtrlSetTip(-1,"Remove Key") GUICtrlSetCursor(-1,0) Global $TwoClear = GUICtrlCreateButton("๐Ÿงน", 384, 48, 25, 25) GUICtrlSetTip(-1,"Clear Input") GUICtrlSetCursor(-1,0) Global $TwoRead = GUICtrlCreateButton("๐Ÿ”ฝ", 416, 48, 25, 25) GUICtrlSetTip(-1,"Get Active Value") GUICtrlSetCursor(-1,0) Global $TwoRemove = GUICtrlCreateButton("โŒ", 448, 48, 25, 25) GUICtrlSetTip(-1,"Remove Key") GUICtrlSetCursor(-1,0) Global $ThreeClear = GUICtrlCreateButton("๐Ÿงน", 384, 88, 25, 25) GUICtrlSetTip(-1,"Clear Input") GUICtrlSetCursor(-1,0) Global $ThreeRead = GUICtrlCreateButton("๐Ÿ”ฝ", 416, 88, 25, 25) GUICtrlSetTip(-1,"Get Active Value") GUICtrlSetCursor(-1,0) Global $ThreeRemove = GUICtrlCreateButton("โŒ", 448, 88, 25, 25) GUICtrlSetTip(-1,"Remove Key") GUICtrlSetCursor(-1,0) Global $AutologonState = GUICtrlCreateButton("STATE : OFF", 380, 120, 90, 33) GUICtrlSetTip(-1,"Cancel and Exit") GUICtrlSetFont(-1, 8,900) GUICtrlSetBkColor(-1,0xCC0000) GUICtrlSetColor(-1,0xFFFFFF) Global $ApplyEnable = GUICtrlCreateButton("APPLY && ENABLE", 252, 120, 120, 33) GUICtrlSetTip(-1,"Save Configuration and Enable Autologon") GUICtrlSetCursor(-1,0) GUICtrlSetFont(-1, 8,900) Global $AutologonDisable = GUICtrlCreateButton("DISABLE", 8, 120, 120, 33) GUICtrlSetTip(-1,"Disable Autologon") GUICtrlSetCursor(-1,0) GUICtrlSetFont(-1, 8,900) Global $Exit = GUICtrlCreateButton("CANCEL", 130, 120, 120, 33) GUICtrlSetTip(-1,"Cancel and Exit") GUICtrlSetCursor(-1,0) GUICtrlSetFont(-1, 8,900) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### AutologonStateCheck() $OneReg = RegRead($Win_Logon,$Win_AutoUser) GUICtrlSetData($AutoUser,$OneReg) $TwoReg = RegRead($Win_Logon,$Win_AutoPass) GUICtrlSetData($AutoPass,$TwoReg) $ThreeReg = RegRead($Win_Logon,$Win_AutoDomain) GUICtrlSetData($AutoDomain,$ThreeReg) While 1 $nMsg = GUIGetMsg() AutologonStateCheck() Switch $nMsg Case $GUI_EVENT_CLOSE, $Exit Exit Case $OneClear GUICtrlSetData($AutoUser,"") Case $TwoClear GUICtrlSetData($AutoPass,"") Case $ThreeClear GUICtrlSetData($AutoDomain,"") Case $OneRead $OneReg = RegRead($Win_Logon,$Win_AutoUser) GUICtrlSetData($AutoUser,$OneReg) Case $TwoRead $TwoReg = RegRead($Win_Logon,$Win_AutoPass) GUICtrlSetData($AutoPass,$TwoReg) Case $ThreeRead $ThreeReg = RegRead($Win_Logon,$Win_AutoDomain) GUICtrlSetData($AutoDomain,$ThreeReg) Case $OneRemove RegDelete($Win_Logon,$Win_AutoUser) MsgBox(0,"Removed","Key " & $Win_Logon & "\" & $Win_AutoUser & " Removed.", 2) GUICtrlSetData($AutoUser,"") Case $TwoRemove RegDelete($Win_Logon,$Win_AutoPass) MsgBox(0,"Removed","Key " & $Win_Logon & "\" & $Win_AutoPass & " Removed.", 2) GUICtrlSetData($AutoPass,"") Case $ThreeRemove RegDelete($Win_Logon,$Win_AutoDomain) MsgBox(0,"Removed","Key " & $Win_Logon & "\" & $Win_AutoDomain & " Removed.", 2) GUICtrlSetData($AutoDomain,"") Case $AutologonDisable RegWrite($Win_Logon,$Win_AutologonActivation,"REG_SZ","0") Case $ApplyEnable $Apply_AutoUser = GUICtrlRead($AutoUser) $Apply_AutoPass = GUICtrlRead($AutoPass) $Apply_AutoDomain = GUICtrlRead($AutoDomain) if $Apply_AutoUser = "" Then MsgBox(0+16,"No Username Provided","No username provided. You cannot apply Automatic Logon without username.",3) Else RegWrite($Win_Logon,$Win_AutologonActivation,"REG_SZ","1") RegWrite($Win_Logon,$Win_AutoUser,"REG_SZ",$Apply_AutoUser) RegWrite($Win_Logon,$Win_AutoPass,"REG_SZ",$Apply_AutoPass) RegWrite($Win_Logon,$Win_AutoDomain,"REG_SZ",$Apply_AutoDomain) AutologonStateCheck() $RebootAsk = MsgBox(4,"Success","Autologon Applied and Activated." & @CRLF & "Start a try ? (Reboot after 5 seconds)") ; ConsoleWrite($RebootAsk) if $RebootAsk = "6" Then Run("shutdown -r -t 5") Exit(0) EndIf EndIf EndSwitch WEnd Func AutologonStateCheck() $ALState = RegRead($Win_Logon,$Win_AutologonActivation) if $ALState = "1" Then GUICtrlSetData($AutologonState,"STATE : ON") GUICtrlSetBkColor($AutologonState,0x09A600) Else GUICtrlSetData($AutologonState,"STATE : OFF") GUICtrlSetBkColor($AutologonState,0xD50000) EndIf Sleep(40) Return True EndFunc