Rex Posted September 22, 2005 Share Posted September 22, 2005 Not sure if any one needs this script, but hey i post it anyway One thing i missed in Scite was a function to create a NewScript with the default .au3 last name, so i wrote this simpel script to add the "service" into Scite expandcollapse popup;=============================================================================== ; ; Program Name: Creat a new AutoIT script ; Description: Opens a small gui with a input field, witch alows the ; user to type in the name for the new script. ; ; Requirement(s): SciTE ; Return Value(s): None ; Author(s): Rex [rexprivat AT hotmail DOT com] ; ; Note: ; Script checks the reg to get the install path of ; AutoIT and then adds \SciTe\SciTE.exe the the read value ; If AutoIT is't installed the script won't work :-( ;=============================================================================== ; #include <GUIConstants.au3> #include <file.au3> GUICreate(" Creat A new AutoIT v3 Script", 320,130, @DesktopWidth/2-160, @DesktopHeight/2-45, -1); Creates the gui $Var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir") Dim $Path = '"' & $Var & '\SciTe\SciTE.exe"' Dim $quates = '"' Global $txt, $Var, $Error, $szDrive, $szDir, $szFName, $szExt GUICtrlCreateLabel ("Please type name of the new script", 10, 5, 500) ; GUICtrlCreateLabel ('This creates a new AutoIT 3 script, with file save dialog and "run script after creation"', 10, 90, 310, 90) ; $file = GUICtrlCreateInput ( "", 10, 25, 300, 20) GUICtrlSetState(-1, $GUI_FOCUS) $OK = GUICtrlCreateButton ("&Creat script", 10, 55, 80, 25, $BS_DEFPUSHBUTTON) $del = GUICtrlCreateButton ("C&lear",100, 55, 50, 25) $Exit = GUICtrlCreateButton ("&Exit", 160, 55, 50, 25) $RunScript = GUICtrlCreateCheckbox ("Auto Run Script", 220, 55, 100); GUICtrlSetTip(-1, "Opens the newly createt script in SciTE.") GUICtrlSetState(-1, $GUI_CHECKED) GUISetState (@SW_SHOW) While 1 $msg = GUIGetMsg() dim $txt = GUICtrlRead($file); Reads the inputfield Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $OK If $txt = "" Then; Checks for empty field, if field is empty we throw a msg MsgBox(16, "WUPS", "You MUST type a filename") $Error = 1 EndIf If $txt <> "" Then save() EndIf Case $msg = $del GUICtrlsetData( $file, "") Case $msg = $Exit Exit EndSelect Wend Func _Exit() Exit EndFunc Func Save() $Read = FileReadLine($var & "\SciTe\SciTE.recent", 1) _PathSplit($Read, $szDrive, $szDir, $szFName, $szExt) $var1 = FileSaveDialog( "Choose a name.", $szDrive & $szDir, "Scripts (*.au3)", 18, $Txt) ; option 3 = dialog remains until valid path/file selected If FileExists($Var1 & ".Au3") then MsgBox(16, "File Exist", "Please Rename Script") GUICtrlsetData( $file, "") ElseIf @error Then MsgBox(4096,"","Save cancelled.") Else FileWrite($Var1 & ".au3", "#include <GUIConstants.au3>; Includes GUIConstants.au3 to script)" & @CRLF) FileWrite($Var1 & ".au3", "; Script start" & @CRLF) $Run = GUICtrlRead($RunScript) If $Run = $GUI_CHECKED Then Run($Path & " " & $quates & $Var1 & ".au3" & $quates); Opens the new script in SciTE. _Exit() Else _Exit() EndIf EndIf EndFunc A have added the folowing lines to the au3.properties # 34 Create a new empty script command.34.$(file.patterns.au3)="$(SciteDefaultHome)\NewScript\NewScript.exe" /StdOut command.subsystem.34.$(file.patterns.au3)=1 command.name.34.$(file.patterns.au3)=NewScript command.shortcut.34.$(file.patterns.au3)=Alt+Shift+N command.save.before.34.$(file.patterns.au3)=2 command.replace.selection.34.$(file.patterns.au3)=1 command.quiet.34.$(file.patterns.au3)=1 my script is placed in @ProgramfilesDir\AutoIt3\SciTe\NewScript Link to comment Share on other sites More sharing options...
Rex Posted October 30, 2005 Author Share Posted October 30, 2005 Script updated expandcollapse popup;=============================================================================== ; ; Program Name: Creat a new AutoIT script ; Description: Opens a small gui with a input field, witch alows the ; user to type in the name for the new script. ; ; Requirement(s): SciTE ; Return Value(s): None ; Author(s): //>Rex<\\ [rexprivat AT hotmail DOT com] ; ; Note: ; Script checks the reg to get the install path of ; AutoIT and then adds \SciTe\SciTE.exe the the read value ; If AutoIT is't installed the script won't work :-( ;=============================================================================== ; Updated 30-10-05 ; Now Writes a ini file to @WorkingDir, with last save path #cs Include this line into the au3 properties # 34 Create a new empty script command.34.$(file.patterns.au3)="$(SciteDefaultHome)\NewScript\NewScript.exe" /StdOut command.subsystem.34.$(file.patterns.au3)=1 command.name.34.$(file.patterns.au3)=NewScript command.shortcut.34.$(file.patterns.au3)=Alt+Shift+N command.save.before.34.$(file.patterns.au3)=2 command.replace.selection.34.$(file.patterns.au3)=1 command.quiet.34.$(file.patterns.au3)=1 #CE #include <GUIConstants.au3> #include <file.au3> GUICreate(" Creat A new AutoIT v3 Script", 320,130, @DesktopWidth/2-160, @DesktopHeight/2-45, -1); Creates the gui $Var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir"); Reads install path of AutoIT Dim $Path = '"' & $Var & '\SciTe\SciTE.exe"'; The path of SciTE Dim $quates = '"' Global $txt, $Var, $Error, $szDrive, $szDir, $szFName, $szExt GUICtrlCreateLabel ("Please type name of the new script", 10, 5, 500) ; GUICtrlCreateLabel ('This creates a new AutoIT 3 script, with file save dialog and' & @CRLF & ' "run script after creation"', 10, 90, 310, 90) ; $file = GUICtrlCreateInput ( "", 10, 25, 300, 20) GUICtrlSetState(-1, $GUI_FOCUS) $OK = GUICtrlCreateButton ("&Creat script", 10, 55, 80, 25, $BS_DEFPUSHBUTTON) $del = GUICtrlCreateButton ("C&lear",100, 55, 50, 25) $Exit = GUICtrlCreateButton ("&Exit", 160, 55, 50, 25) $RunScript = GUICtrlCreateCheckbox ("Auto Run Script", 220, 55, 100); GUICtrlSetTip(-1, "Opens the newly createt script in SciTE.") GUICtrlSetState(-1, $GUI_CHECKED) GUISetState (@SW_SHOW) While 1 $msg = GUIGetMsg() dim $txt = GUICtrlRead($file); Reads the inputfield Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $OK If $txt = "" Then; Checks for empty field, if field is empty we throw a msg MsgBox(16, "WUPS", "You MUST type a filename") $Error = 1 EndIf If $txt <> "" Then save() EndIf Case $msg = $del GUICtrlsetData( $file, "") Case $msg = $Exit Exit EndSelect Wend Func _Exit() Exit EndFunc Func Save() $Read = IniRead(@WorkingDir & "\Newscript.ini", "Saveto", "Path", @MyDocumentsDir) _PathSplit($Read, $szDrive, $szDir, $szFName, $szExt) $var1 = FileSaveDialog( "Choose a name.", $szDrive & $szDir, "Scripts (*.au3)", 18, $Txt) ; option 3 = dialog remains until valid path/file selected If @error = 1 Then MsgBox(64,"","Save cancelled.") ElseIf FileExists($Var1 & ".Au3") then MsgBox(16, "File Exist", "Please Rename Script") GUICtrlsetData( $file, "") Else FileWrite($Var1 & ".au3", "; Generated by NewScript 3.5" & @CRLF) FileWrite($Var1 & ".au3", "#include <GUIConstants.au3>; Includes GUIConstants.au3 to script" & @CRLF) FileWrite($Var1 & ".au3", "; Script start" & @CRLF) IniWrite(@WorkingDir & "\Newscript.ini", "Saveto", "Path", $szDrive & $szDir) $Run = GUICtrlRead($RunScript) If $Run = $GUI_CHECKED Then Run($Path & " " & $quates & $Var1 & ".au3" & $quates); Opens the new script in SciTE. _Exit() Else _Exit() EndIf EndIf EndFunc Link to comment Share on other sites More sharing options...
markusss Posted October 31, 2005 Share Posted October 31, 2005 Hey! Nice work, but you don't really need a script to do that... Just posting some stuff you might wanna add to make it helpful: -Let the script add a comment like this at the beginning of the script: ; ---------------------------------------------------------------------------- ; Author: (let the person enter his name into an inputbox) ; Email: (let the person enter his email address into an inputbox) ; Version: (0.1 in most cases) ; AutoItVer: (let it add the current autoit version, isn't that stored somewhere?) ; AutoItForum: (leave this blank, but create the line) ; Script Function: ; (let the user enter a comment into an editbox) ; ; Changelog: ; Modified by: (username) v0.1 - (current date), first version ; ; ---------------------------------------------------------------------------- -Then you could make the script store the Authorsname and Email address in the registry, so the user won't have to enter it again Work on it, if you get that stuff implemented, it's gonna be a helpful tool Felix N. Link to comment Share on other sites More sharing options...
Rex Posted October 31, 2005 Author Share Posted October 31, 2005 (edited) Hey!Nice work, but you don't really need a script to do that...Just posting some stuff you might wanna add to make it helpful:-Let the script add a comment like this at the beginning of the script:; ---------------------------------------------------------------------------- ; Author: (let the person enter his name into an inputbox) ; Email: (let the person enter his email address into an inputbox) ; Version: (0.1 in most cases) ; AutoItVer: (let it add the current autoit version, isn't that stored somewhere?) ; AutoItForum: (leave this blank, but create the line) ; Script Function: ; (let the user enter a comment into an editbox) ; ; Changelog: ; Modified by: (username) v0.1 - (current date), first version ; ; -----------------------------------------------------------------------------Then you could make the script store the Authorsname and Email address in the registry, so the user won't have to enter it againWork on it, if you get that stuff implemented, it's gonna be a helpful toolFelix N.Ass requestedScript updated :EDIT2This is getting really helpful now!The only bug i found:CODEFileWrite($FileSave & ".au3", "; AutoitVer: " & $ReadScriptVer & @CRLF)That is supposed to be like this:CODEFileWrite($FileSave & ".au3", "; AutoitVer: " & $ReadAutoITVer & @CRLF)Bug fixed expandcollapse popup; ---------------------------------------------------------------------------- ; ---------------------------------------------------------------------------- ; Author: //>Rex<\\ ; Email: Rexprivat AT Hotmail DOT com ; Version: 4.0 ; AutoItVer: 3.1.1.84 (But don't uses any of the beta Feauteres) ; AutoItForum: ; Script Function: ; Auto creates a new AutoIT v3 (*.au3) script. ; And allows the user to add som comments to the top;-) ; Changelog: ; 30-10-05 >> Added function to store last save path in a ini file writen to @ScriptDir ; 31-10-05 >> Added A comment gui, witch allows user to add some comments to top of the script ; 31-10-05 >> Added Now writes Author Name + Mail to inifile ; ---------------------------------------------------------------------------- #cs Include this line into the au3 properties # 34 Create a new empty script command.34.$(file.patterns.au3)="$(SciteDefaultHome)\NewScript\NewScript.exe" /StdOut command.subsystem.34.$(file.patterns.au3)=1 command.name.34.$(file.patterns.au3)=NewScript command.shortcut.34.$(file.patterns.au3)=Alt+Shift+N command.save.before.34.$(file.patterns.au3)=2 command.replace.selection.34.$(file.patterns.au3)=1 command.quiet.34.$(file.patterns.au3)=1 #CE #include <GUIConstants.au3> #include <file.au3> #include <Date.au3> ; Start var's $RegRead = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir"); Reads install path of AutoIT $Version = "4.0" Dim $AutoITVer = FileGetVersion($RegRead & "\AutoIT3.exe") Dim $Path = '"' & $RegRead & '\SciTe\SciTE.exe"'; The path of SciTE Dim $quates = '"' Global $txt, $RegRead, $Error, $szDrive, $szDir, $szFName, $szExt, $FileSave, $fileName, $ReadComCheck #region Main Gui Windows $Main = GUICreate(" New AutoIT v3 script " & $Version, 320, 128, (@DesktopWidth - 320) / 2, (@DesktopHeight - 128) / 2); Main GUI GUICtrlCreateLabel("Please type the name of the new script", 10, 10, 250, 20) $fileName = GUICtrlCreateInput("", 10, 30, 300, 20) GUICtrlSetState(-1, $GUI_FOCUS); Sets focus to the inputfield $OK = GUICtrlCreateButton("Creat Script", 10, 60, 70, 20, $BS_DEFPUSHBUTTON); Sets button to default push button $del = GUICtrlCreateButton("Clear", 90, 60, 50, 20) $Exit = GUICtrlCreateButton("Exit", 150, 60, 50, 20) $RunScript = GUICtrlCreateCheckbox("Auto run Script", 210, 50, 100, 20) GUICtrlSetTip(-1, "Opens the newly createt script in SciTE.") GUICtrlSetState(-1, $GUI_CHECKED) $AddCom = GUICtrlCreateCheckbox("Add comments", 210, 70, 100, 20) GUICtrlSetTip(-1, "Shows comment gui and adds comments to the the newly createt script.") GUICtrlCreateLabel("This will create a new AutoIT v3 script. If checkbox(s) ticked, it will add user comments and / or open the script in SciTE", 10, 90, 300, 30) GUISetState(@SW_SHOW) #endregion Main Gui Windows #region Child Gui Window, Add Comments Window $Comments = GUICreate(" Comments", 320, 313, (@DesktopWidth - 320) / 2, (@DesktopHeight - 135) / 2, $WS_CAPTION, -1, $Main); Child GUI GUICtrlCreateLabel("Author name", 10, 10, 210, 20) $Author = GUICtrlCreateInput("", 10, 30, 290, 20) GUICtrlCreateLabel("Email", 10, 60, 150, 20) $Mail = GUICtrlCreateInput("", 10, 80, 290, 20) GUICtrlCreateLabel("Script Version", 10, 110, 150, 20) $ScriptVer = GUICtrlCreateInput("", 10, 130, 130, 20) GUICtrlCreateLabel("AutoIT Version", 170, 110, 140, 20) $AutoIT_Version = GUICtrlCreateInput($AutoITVer, 170, 130, 130, 20) GUICtrlCreateLabel("AutoIT Forum", 10, 160, 170, 20) $Forum = GUICtrlCreateInput("", 10, 180, 290, 20) GUICtrlCreateLabel("Script Function", 10, 210, 170, 20) $Function = GUICtrlCreateEdit("", 10, 230, 290, 70) GUISetState(@SW_HIDE) #endregion Child Gui Window, Add Comments Window WinActivate($Main, ""); Activates the Main gui window While 1 $msg = GUIGetMsg() Dim $txt = GUICtrlRead($fileName); Read FileName inputfield Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $OK If $txt = "" Then; Checks for empty field, if field is empty we throw a msg MsgBox(16, "WUPS", "You MUST type a filename") $Error = 1 EndIf If $txt <> "" Then Save() EndIf Case $msg = $del GUICtrlSetData($fileName, "") Case $msg = $Exit Exit Case $msg = $AddCom $ReadComCheck = GUICtrlRead($AddCom) If $ReadComCheck = $GUI_UNCHECKED Then GUISetState(@SW_HIDE, $Comments) WinMove($Main, "", (@DesktopWidth - 320) / 2, (@DesktopHeight - 128) / 2) ;MouseMove((@DesktopWidth+150)/2, (@DesktopHeight+70)/2); Moves mouse curser (to folow the add comment checkbox) GUICtrlSetState($fileName, $GUI_FOCUS) Else GUISetState(@SW_SHOW, $Comments) WinMove($Main, "", (@DesktopWidth - 320) / 2, (@DesktopHeight - 441) / 2) ;MouseMove((@DesktopWidth+150)/2, (@DesktopHeight-240)/2); Moves mouse curser (to folow the add comment checkbox) GUICtrlSetState($Author, $GUI_FOCUS) $IniReadAut = IniRead(@ScriptDir & "\Newscript.ini", "Author", "Name", "") $iniReadMail = IniRead(@ScriptDir & "\Newscript.ini", "Author", "Mail", "") GUICtrlSetData($Author, $IniReadAut) GUICtrlSetData($Mail, $iniReadMail) EndIf EndSelect WEnd Func _Exit() Exit EndFunc ;==>_Exit Func Save() If FileExists(@ScriptDir & "\Newscript.ini") Then $ReadINI = IniRead(@ScriptDir & "\Newscript.ini", "Saveto", "Path", @MyDocumentsDir) _PathSplit ($ReadINI, $szDrive, $szDir, $szFName, $szExt) $FileSave = FileSaveDialog( "Choose a name.", $szDrive & $szDir, "Scripts (*.au3)", 18, $txt) Else $FileSave = FileSaveDialog( "Choose a name.", @MyDocumentsDir, "Scripts (*.au3)", 18, $txt) _PathSplit ($FileSave & ".au3", $szDrive, $szDir, $szFName, $szExt) EndIf ; option 3 = dialog remains until valid path/file selected If @error = 1 Then MsgBox(64, "", "Save cancelled.") ElseIf FileExists($FileSave & ".Au3") Then MsgBox(16, "File Exist", "Please Rename Script") GUICtrlSetData($fileName, "") ElseIf $ReadComCheck = $GUI_CHECKED Then _AddComments() Else FileWrite($FileSave & ".au3", "; Generated by NewScript 4.0" & @CRLF) FileWrite($FileSave & ".au3", "#include <GUIConstants.au3>; Includes GUIConstants.au3 to script" & @CRLF) FileWrite($FileSave & ".au3", "; Script start" & @CRLF) IniWrite(@ScriptDir & "\Newscript.ini", "Saveto", "Path", $szDrive & $szDir) $Run = GUICtrlRead($RunScript) If $Run = $GUI_CHECKED Then Run($Path & " " & $quates & $FileSave & ".au3" & $quates); Opens the new script in SciTE. _Exit() Else _Exit() EndIf EndIf EndFunc ;==>Save Func _AddComments() ; Read the controls $ReadAuthor = GUICtrlRead($Author) $ReadMail = GUICtrlRead($Mail) $ReadScriptVer = GUICtrlRead($ScriptVer) $ReadAutoITVer = GUICtrlRead($AutoIT_Version) $ReadForum = GUICtrlRead($Forum) $ReadFunction = GUICtrlRead($Function) ; Writes lines $ReplaceCR = StringReplace($ReadFunction, @CRLF, @CRLF & "; ") FileWrite($FileSave & ".au3", "; Generated by NewScript 4.0" & @CRLF) FileWrite($FileSave & ".au3", ";----------------------------------------------------------------------------" & @CRLF) FileWrite($FileSave & ".au3", "; Created: " & _Now() & @CRLF) FileWrite($FileSave & ".au3", "; Author: " & $ReadAuthor & @CRLF) FileWrite($FileSave & ".au3", "; Mail: " & $ReadMail & @CRLF) FileWrite($FileSave & ".au3", "; Version: " & $ReadScriptVer & @CRLF) FileWrite($FileSave & ".au3", "; AutoitVer: " & $ReadAutoITVer & @CRLF) FileWrite($FileSave & ".au3", "; AutoItForum: " & $ReadForum & @CRLF) FileWrite($FileSave & ".au3", "; Script Function:" & @CRLF) FileWrite($FileSave & ".au3", "; " & $ReplaceCR & @CRLF) FileWrite($FileSave & ".au3", "; Changelog:" & @CRLF) ;FileWrite($FileSave & ".au3", "; Modified by: v0.1 - , first version" & @CRLF) FileWrite($FileSave & ".au3", ";" & @CRLF) FileWrite($FileSave & ".au3", "; ----------------------------------------------------------------------------" & @CRLF) FileWrite($FileSave & ".au3", "#include <GUIConstants.au3>; Includes GUIConstants.au3 to script" & @CRLF) FileWrite($FileSave & ".au3", "; Script start" & @CRLF) IniWrite(@ScriptDir & "\Newscript.ini", "Saveto", "Path", $szDrive & $szDir) IniWrite(@ScriptDir & "\Newscript.ini", "Author", "Name", $ReadAuthor) IniWrite(@ScriptDir & "\Newscript.ini", "Author", "Mail", $ReadMail) $Run = GUICtrlRead($RunScript) If $Run = $GUI_CHECKED Then Run($Path & " " & $quates & $FileSave & ".au3" & $quates); Opens the new script in SciTE. _Exit() EndIf EndFunc ;==>_AddComments:EDITFixed save path/Rex Edited November 1, 2005 by Rex Link to comment Share on other sites More sharing options...
markusss Posted November 1, 2005 Share Posted November 1, 2005 (edited) This is getting really helpful now! The only bug i found:FileWrite($FileSave & ".au3", "; AutoitVer: " & $ReadScriptVer & @CRLF) That is supposed to be like this:FileWrite($FileSave & ".au3", "; AutoitVer: " & $ReadAutoITVer & @CRLF) I think after a little more betatesting you might wanna post this in the developers/ideas forum so they can add it to SciTe, but don't be depressed if they don't add it, sometimes the devs are kinda strange (no offense^^) Keep it up Felix Edited November 1, 2005 by Felix N. Link to comment Share on other sites More sharing options...
Rex Posted November 12, 2005 Author Share Posted November 12, 2005 Script updated ones again. Now adds some opt's to the new script.. FileWrite($FileSave & ".au3", "; Opt's Start > --------------------------------------------------------------" & @CRLF) FileWrite($FileSave & ".au3", '; Opt("RunErrorsFatal", 1) ;1=fatal, 0=silent set @error' & @CRLF) FileWrite($FileSave & ".au3", '; Opt("GUIOnEventMode", 0) ;0=disabled, 1=OnEvent mode enabled' & @CRLF) FileWrite($FileSave & ".au3", '; Opt("GUICloseOnESC", 1) ;1=ESC closes, 0=ESC won' & "'t close" & @CRLF) FileWrite($FileSave & ".au3", '; Opt("TrayIconDebug", 0) ;0=no info, 1=debug line info' & @CRLF) FileWrite($FileSave & ".au3", '; Opt("TrayMenuMode",0) ;0=append, 1=no default menu, 2=no automatic check, 4=menuitemID not return' & @CRLF) FileWrite($FileSave & ".au3", '; Opt("TrayOnEventMode",0) ;0=disable, 1=enable' & @CRLF) FileWrite($FileSave & ".au3", '; Opt("TrayIconHide", 0) ;0=show, 1=hide tray icon' & @CRLF) FileWrite($FileSave & ".au3", '; Opt("TrayAutoPause",1) ;0=no pause, 1=Pause' & @CRLF) FileWrite($FileSave & ".au3", "; Opt's End > ----------------------------------------------------------------" & @CRLF) Hopes that some one finde this script usefulNewScript.rar Link to comment Share on other sites More sharing options...
MHz Posted November 12, 2005 Share Posted November 12, 2005 *Hint*Scite Abbreviations.You can store any presets like your are showing in Abbreviations.Type options and press the spacebar within Scite will give you all the AutoIt options.I now start with a blank script and Abbreviations caters for any preset that I choose to add.Your new script idea could be a good idea for test scripts. Create them in @Tempdir and they are removed easily on cleanup. That idea could help to keep my desktop clean. I will need to think some more on that idea...as it could be useful. Link to comment Share on other sites More sharing options...
Rex Posted November 12, 2005 Author Share Posted November 12, 2005 *Hint*Scite Abbreviations.You can store any presets like your are showing in Abbreviations.Type options and press the spacebar within Scite will give you all the AutoIt options.I know I only included the most used opt's (for my part anyway)And by doing it this way i allways have the opt's when i creats a new script, and all i have to do is to un comment the ones i need But Abb..'s works to/Rex Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now