Misha Posted April 13, 2006 Posted April 13, 2006 I am haveing dip problems :\ I cant make it exit....and the Right/Picker/Left/Shield functions dont work . Ill just post all the code of my soft. expandcollapse popup#include <GuiConstants.au3> TrayTip( "MishScript", "Hello, " & @UserName & @CRLF & "Welcome to The MishScript" & @CRLF & @CRLF & "Please note to stop all press 0" & @CRLF & "Enjoy.", 8, 16) Dim $Slide Dim $I, $AutoPicker Dim $RightClicker Dim $LeftClicker Dim $ShieldClicker Opt ("SendKeyDelay", 1 ) Opt ("WinTitleMatchMode", 1 ) Opt ("SendKeyDownDelay", 50 ) Opt ("MouseClickDownDelay", 1) Opt ("GUIOnEventMode", 1) HotKeySet( "{NUMPAD0}", "Stop") GuiSetOnEvent ( $GUI_EVENT_CLOSE , "ExitMish") ;-------------------------MAIN GUI---------------------------- ;AutoPicker Tab Gui GuiCreate( "AutoPicker" ,350,200) $TabCreate=GUICtrlCreateTab ( 10 , 10 ,340 ,190 ,0x0008) $AutoPickTabCreate=GuiCtrlCreateTabItem ( "AutoPicker" ) $SliderCreate4=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2) GUICtrlCreateLabel( "Slide it" , 60 , 40 , 75, 25) $AutoPickerButton = GUICtrlCreateButton("Start Picking", 60, 117,75,23) GUISetState() GUICtrlSetLimit( $SliderCreate4,1000,1) GUICtrlSetData($SliderCreate4,1) $Slide=GuiCtrlRead($SliderCreate4) GuiCtrlSetOnEvent( $SliderCreate4 , "AutoSlider") $Label = GUICtrlCreateLabel ( $Slide , 60, 60 , 75 , 25) GuiCtrlSetOnEvent( $AutoPickerButton, "AutoPicker") ;RightClicker Tab Gui GuiCtrlCreateTabItem( "RightClicker" ) $SliderCreate1=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2) GUICtrlSetLimit(-1,1000, 25) GUICtrlSetData($SliderCreate1,25) GUICtrlCreateLabel( "Slide it" , 60 , 40 , 75, 25) $CheckBoxCreate = GuiCtrlCreateCheckBox( "AutoPicker",60,94) $RightClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23) GuiSetState() $Slide1 = GuiCtrlRead($SliderCreate1) $Label1 = GUICtrlCreateLabel ( $Slide1 , 60, 60 , 75 , 25) GuiCtrlSetOnEvent ( $Slidercreate1 , "AutoSlider1") $CheckBoxRead = GuiCtrlRead($CheckBoxCreate) GuiCtrlSetOnEvent( $RightClickerButton , "RightClicker") ;LeftClicker Tab Gui GuiCtrlCreateTabItem( "LeftClicker" ) $SliderCreate2=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2) GUICtrlSetLimit(-1,1000, 25) GUICtrlSetData($SliderCreate1,25) GUICtrlCreateLabel( "Slide it" , 60 , 40 , 75, 25) $CheckBoxCreate1 = GuiCtrlCreateCheckBox( "AutoPicker",60,94) $LeftClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23) GuiSetState() $Slide2 = GuiCtrlRead($SliderCreate2) $Label2 = GUICtrlCreateLabel ( $Slide2 , 60, 60 , 75 , 25) GuiCtrlSetOnEvent ( $Slidercreate2 , "AutoSlider2") $CheckBoxRead1 = GuiCtrlRead($CheckBoxCreate1) GuiCtrlSetOnEvent ($LeftClickerButton, "LeftClicker") ;ShieldClicker Tab Gui GuiCtrlCreateTabItem( "ShieldClicker" ) $SliderCreate3=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2) GUICtrlSetLimit(-1,1000, 25) GUICtrlCreateLabel( "Slide it" , 60 , 40 , 75, 25) $CheckBoxCreate2 = GuiCtrlCreateCheckBox( "AutoPicker",60,94) $EditShieldClickerCreate = GuiCtrlCreateInput("After How many skills", 160,65,80,20) $EditShieldClickerButton = GUICtrlCreateInput("Shield Skill Button", 160,90,80,20) $EditShieldClickerFirstButton = GUICtrlCreateInput("Attack Skill Button", 160,115,80,20) $ShieldClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23) GuiSetState() $EditShieldClickerReadEvery = GuiCtrlRead( $EditShieldClickerCreate ) $EditShieldClickerReadButton = GuiCtrlRead ( $EditShieldClickerButton ) $EditShieldClickerReadFirstButton = GuiCtrlRead ( $EditShieldClickerFirstButton ) $Slide3 = GuiCtrlRead($SliderCreate3) $Label3 = GUICtrlCreateLabel ( $Slide3 , 60, 60 , 75 , 25) GuiCtrlSetOnEvent ( $Slidercreate3 , "AutoSlider3") $CheckBoxRead1 = GuiCtrlRead($CheckBoxCreate2) GuiCtrlSetOnEvent ( $ShieldClickerButton, "ShieldClicker") GuiCtrlCreateTabItem ("") ;------------------------Functions of User---------------------- Func Stop () If $AutoPicker = 1 Then TrayTip( "Stop", "AutoPicker Stopped.", 4, 4) $AutoPicker = 0 WinActivate ("Classname=Shell_TrayWnd") While (1=1) Sleep( 1000 ) Wend ElseIf $RightClicker = 1 Then TrayTip( "Stop", "RightClicker Stopped.", 4, 4) $RightClicker = 0 WinActivate ("Classname=Shell_TrayWnd") While (1=1) Sleep( 1000 ) Wend Else if $LeftClicker = 1 Then TrayTip( "Stop", "LeftClicker Stopped.", 4, 4) $LeftClicker = 0 WinActivate ("Classname=Shell_TrayWnd") While (1=1) Sleep( 1000 ) Wend Else if $ShieldClicker = 1 Then TrayTip( "Stop", "ShieldClicker Stopped.", 4, 4) $ShieldClicker = 0 WinActivate ("Classname=Shell_TrayWnd") While (1=1) Sleep( 1000 ) Wend Else TrayTip( "Stop", "Functions Stopped.", 4, 4) WinActivate ("Classname=Shell_TrayWnd") While (1=1) Sleep( 1000 ) Wend EndIf EndIf EndIf EndFunc Func ExitPicker () GuiCtrlSetData( $AutoPickerButton, "Start Picking") GuiCtrlSetOnEvent( $AutoPickerButton, "AutoPicker") EndFunc Func ExitRight () GuiCtrlSetData( $RightClickerButton , "Start Clicking") GuiCtrlSetOnEvent( $RightClickerButton, "RightClicker") EndFunc Func ExitLeft () GuiCtrlSetData ( $LeftClickerButton , "Start Clicking") GuiCtrlSetOnEvent ( $LeftClickerButton , "LeftClicker") EndFunc Func ExitShield () GuiCtrlSetData ( $ShieldClickerButton , "Start Clicking") GuiCtrlSetOnEvent ( $ShieldClickerButton , "ShieldClicker") EndFunc Func AutoSlider () $SliderInfo1=GuiCtrlRead( $SliderCreate4) GuiCtrlSetData( $Label, $SliderInfo1) EndFunc Func AutoSlider1 () $SliderInfo=GuiCtrlRead( $SliderCreate1) GuiCtrlSetData( $Label1, $SliderInfo) EndFunc Func AutoSlider2 () $SliderInfo2=GuiCtrlRead( $SliderCreate2) GuiCtrlSetData( $Label2, $SliderInfo2) EndFunc Func AutoSlider3 () $SliderInfo3=GuiCtrlRead( $SliderCreate3) GuiCtrlSetData( $Label3, $SliderInfo3) EndFunc ;-----------------------Functions of the GUI----------------------- Func AutoPicker () GuiCtrlSetData( $AutoPickerButton, "Stop Picking") $PickerEvent=GuiCtrlSetOnEvent( $AutoPickerButton, "ExitPicker") $AutoPicker = 1 While $PickerEvent <> 1 sleep($Slide) WinActivate ("Classname=Shell_TrayWnd") Send(" ",1) WinActivate ("Classname=Shell_TrayWnd") Send("{BACKSPACE}") WEnd EndFunc Func RightClicker () GuiCtrlSetData( $RightClickerButton , "Stop Clicking") $RightEvent=GuiCtrlSetOnEvent( $RightClickerButton, "ExitRight") if $CheckBoxRead = 1 Then $RightClicker = 1 While $RightEvent <> 1 MouseClick( "Right") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slide1) MouseUp( "Right") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slide) Send( " ", 1) WEnd Else $RightClicker = 1 While $RightEvent <> 1 MouseClick ("Right") Sleep($Slide1) MouseUp("Right") Wend Endif EndFunc Func LeftClicker () GuiCtrlSetDatA( $LeftClickerButton , "Stop Clicking") $LeftEvent=GuiCtrlSetOnEvent( $LeftClickerButton, "ExitLeft") If $CheckBoxRead1 = 1 Then $LeftClicker = 1 While $LeftEvent <> 1 MouseClick( "Left") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slide2) MouseUp( "Left") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slide) Send( " ", 1) WEnd Else $LeftClicker = 1 While $LeftEvent <> 1 MouseClick ("Left") Sleep($Slide1) MouseUp("Left") Wend Endif EndFunc Func ShieldClicker () GuiCtrlSetData( $ShieldClickerButton , "Stop Clicking") $ShieldEvent=GuiCtrlSetOnEvent( $ShieldClickerButton, "ExitShield") if $CheckBoxRead2 = 1 Then $ShieldClicker = 1 While $ShieldEvent <> 1 For $I = 1 to $EditShieldClickerReadEvery MouseClick ("Right") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slider3) MouseUp ("Right") Sleep($Slide) Send (" ", 1) Next MouseClick("right") Sleep($Slider3) WinActivate("Classname=Shell_TrayWnd") MouseUp("Right") WinActivate("Classname=Shell_TrayWnd") Sleep($Slider) Send( " ", 1) WinActivate("Classname=Shalle_TrayWnd") Send( $EditShieldClickerReadButton, 1) WinActivate("Classname=Shalle_TrayWnd") MouseClick("right") WinActivate("Classname=Shell_TrayWnd") MouseUp("Right") WinActivate("Classname=Shell_TrayWnd") Send( $EditShieldClickerFirstButton, 1) WEnd Else $ShieldClicker = 1 While 1 For $I = 1 to $EditShieldClickerReadEvery MouseClick ("Right") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slider3) MouseUp ("Right") Next MouseClick("right") Sleep($Slider3) WinActivate("Classname=Shell_TrayWnd") MouseUp("Right") WinActivate("Classname=Shell_TrayWnd")Send( $EditShieldClickerReadButton, 1) WinActivate("Classname=Shalle_TrayWnd") MouseClick("right") WinActivate("Classname=Shell_TrayWnd") MouseUp("Right") WinActivate("Classname=Shell_TrayWnd") Send( $EditShieldClickerFirstButton, 1) WEnd EndIf EndFunc ;---------------------Main While ---------------- Func ExitMish () Exit EndFunc While 1 Sleep (1) Wend
Daniel W. Posted April 13, 2006 Posted April 13, 2006 Do you really need this: Opt("GUIOnEventMode",1) ? Try to write your Script with Select...Case...EndSelect if you need. And then at the End While 1 $msg = GuiGetMsg() If $msg =$GUI_EVENT_CLOSE Then Exitloop WEnd --------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]
Valuater Posted April 13, 2006 Posted April 13, 2006 this is better... not perfect expandcollapse popup#include <GuiConstants.au3> TrayTip( "MishScript", "Hello, " & @UserName & @CRLF & "Welcome to The MishScript" & @CRLF & @CRLF & "Please note to stop all press 0" & @CRLF & "Enjoy.", 8, 16) Dim $Slide Dim $I, $AutoPicker Dim $RightClicker Dim $LeftClicker Dim $ShieldClicker Dim $Slide, $slider3, $Slider, $CheckBoxRead2 Opt ("SendKeyDelay", 1 ) Opt ("WinTitleMatchMode", 1 ) Opt ("SendKeyDownDelay", 50 ) Opt ("MouseClickDownDelay", 1) Opt ("GUIOnEventMode", 1) HotKeySet( "{NUMPAD0}", "Stop") ;-------------------------MAIN GUI---------------------------- ;AutoPicker Tab Gui GuiCreate( "AutoPicker" ,350,200) $TabCreate=GUICtrlCreateTab ( 10 , 10 ,340 ,190 ,0x0008) $AutoPickTabCreate=GuiCtrlCreateTabItem ( "AutoPicker" ) $SliderCreate4=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2) GUICtrlCreateLabel( "Slide it" , 60 , 40 , 75, 25) $AutoPickerButton = GUICtrlCreateButton("Start Picking", 60, 117,75,23) GUICtrlSetLimit( $SliderCreate4,1000,1) GUICtrlSetData($SliderCreate4,1) $Slide=GuiCtrlRead($SliderCreate4) GuiCtrlSetOnEvent( $SliderCreate4 , "AutoSlider") $Label = GUICtrlCreateLabel ( $Slide , 60, 60 , 75 , 25) GuiCtrlSetOnEvent( $AutoPickerButton, "AutoPicker") ;RightClicker Tab Gui GuiCtrlCreateTabItem( "RightClicker" ) $SliderCreate1=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2) GUICtrlSetLimit(-1,1000, 25) GUICtrlSetData($SliderCreate1,25) GUICtrlCreateLabel( "Slide it" , 60 , 40 , 75, 25) $CheckBoxCreate = GuiCtrlCreateCheckBox( "AutoPicker",60,94) $RightClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23) $Slide1 = GuiCtrlRead($SliderCreate1) $Label1 = GUICtrlCreateLabel ( $Slide1 , 60, 60 , 75 , 25) GuiCtrlSetOnEvent ( $Slidercreate1 , "AutoSlider1") $CheckBoxRead = GuiCtrlRead($CheckBoxCreate) GuiCtrlSetOnEvent( $RightClickerButton , "RightClicker") ;LeftClicker Tab Gui GuiCtrlCreateTabItem( "LeftClicker" ) $SliderCreate2=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2) GUICtrlSetLimit(-1,1000, 25) GUICtrlSetData($SliderCreate1,25) GUICtrlCreateLabel( "Slide it" , 60 , 40 , 75, 25) $CheckBoxCreate1 = GuiCtrlCreateCheckBox( "AutoPicker",60,94) $LeftClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23) $Slide2 = GuiCtrlRead($SliderCreate2) $Label2 = GUICtrlCreateLabel ( $Slide2 , 60, 60 , 75 , 25) GuiCtrlSetOnEvent ( $Slidercreate2 , "AutoSlider2") $CheckBoxRead1 = GuiCtrlRead($CheckBoxCreate1) GuiCtrlSetOnEvent ($LeftClickerButton, "LeftClicker") ;ShieldClicker Tab Gui GuiCtrlCreateTabItem( "ShieldClicker" ) $SliderCreate3=GUICtrlCreateSlider( 15 , 40 , 40 , 100,2) GUICtrlSetLimit(-1,1000, 25) GUICtrlCreateLabel( "Slide it" , 60 , 40 , 75, 25) $CheckBoxCreate2 = GuiCtrlCreateCheckBox( "AutoPicker",60,94) $EditShieldClickerCreate = GuiCtrlCreateInput("After How many skills", 160,65,80,20) $EditShieldClickerButton = GUICtrlCreateInput("Shield Skill Button", 160,90,80,20) $EditShieldClickerFirstButton = GUICtrlCreateInput("Attack Skill Button", 160,115,80,20) $ShieldClickerButton = GuiCtrlCreateButton("Start Clicking",60,117,75,23) $EditShieldClickerReadEvery = GuiCtrlRead( $EditShieldClickerCreate ) $EditShieldClickerReadButton = GuiCtrlRead ( $EditShieldClickerButton ) $EditShieldClickerReadFirstButton = GuiCtrlRead ( $EditShieldClickerFirstButton ) $Slide3 = GuiCtrlRead($SliderCreate3) $Label3 = GUICtrlCreateLabel ( $Slide3 , 60, 60 , 75 , 25) GuiCtrlSetOnEvent ( $Slidercreate3 , "AutoSlider3") $CheckBoxRead1 = GuiCtrlRead($CheckBoxCreate2) GuiCtrlSetOnEvent ( $ShieldClickerButton, "ShieldClicker") GuiCtrlCreateTabItem ("") ;------------------------Functions of User---------------------- GUISetState() GuiSetOnEvent ( $GUI_EVENT_CLOSE , "ExitMish") While 1 sleep(10) WEnd Func Stop () If $AutoPicker = 1 Then TrayTip( "Stop", "AutoPicker Stopped.", 4, 4) $AutoPicker = 0 WinActivate ("Classname=Shell_TrayWnd") While (1=1) Sleep( 1000 ) Wend ElseIf $RightClicker = 1 Then TrayTip( "Stop", "RightClicker Stopped.", 4, 4) $RightClicker = 0 WinActivate ("Classname=Shell_TrayWnd") While (1=1) Sleep( 1000 ) Wend Else if $LeftClicker = 1 Then TrayTip( "Stop", "LeftClicker Stopped.", 4, 4) $LeftClicker = 0 WinActivate ("Classname=Shell_TrayWnd") While (1=1) Sleep( 1000 ) Wend Else if $ShieldClicker = 1 Then TrayTip( "Stop", "ShieldClicker Stopped.", 4, 4) $ShieldClicker = 0 WinActivate ("Classname=Shell_TrayWnd") While (1=1) Sleep( 1000 ) Wend Else TrayTip( "Stop", "Functions Stopped.", 4, 4) WinActivate ("Classname=Shell_TrayWnd") While (1=1) Sleep( 1000 ) Wend EndIf EndIf EndIf EndFunc Func ExitPicker () GuiCtrlSetData( $AutoPickerButton, "Start Picking") GuiCtrlSetOnEvent( $AutoPickerButton, "AutoPicker") EndFunc Func ExitRight () GuiCtrlSetData( $RightClickerButton , "Start Clicking") GuiCtrlSetOnEvent( $RightClickerButton, "RightClicker") EndFunc Func ExitLeft () GuiCtrlSetData ( $LeftClickerButton , "Start Clicking") GuiCtrlSetOnEvent ( $LeftClickerButton , "LeftClicker") EndFunc Func ExitShield () GuiCtrlSetData ( $ShieldClickerButton , "Start Clicking") GuiCtrlSetOnEvent ( $ShieldClickerButton , "ShieldClicker") EndFunc Func AutoSlider () $SliderInfo1=GuiCtrlRead( $SliderCreate4) GuiCtrlSetData( $Label, $SliderInfo1) EndFunc Func AutoSlider1 () $SliderInfo=GuiCtrlRead( $SliderCreate1) GuiCtrlSetData( $Label1, $SliderInfo) EndFunc Func AutoSlider2 () $SliderInfo2=GuiCtrlRead( $SliderCreate2) GuiCtrlSetData( $Label2, $SliderInfo2) EndFunc Func AutoSlider3 () $SliderInfo3=GuiCtrlRead( $SliderCreate3) GuiCtrlSetData( $Label3, $SliderInfo3) EndFunc ;-----------------------Functions of the GUI----------------------- Func AutoPicker () GuiCtrlSetData( $AutoPickerButton, "Stop Picking") $PickerEvent=GuiCtrlSetOnEvent( $AutoPickerButton, "ExitPicker") $AutoPicker = 1 While $PickerEvent <> 1 sleep($Slide) WinActivate ("Classname=Shell_TrayWnd") Send(" ",1) WinActivate ("Classname=Shell_TrayWnd") Send("{BACKSPACE}") WEnd EndFunc Func RightClicker () GuiCtrlSetData( $RightClickerButton , "Stop Clicking") $RightEvent=GuiCtrlSetOnEvent( $RightClickerButton, "ExitRight") if $CheckBoxRead = 1 Then $RightClicker = 1 While $RightEvent <> 1 MouseClick( "Right") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slide1) MouseUp( "Right") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slide) Send( " ", 1) WEnd Else $RightClicker = 1 While $RightEvent <> 1 MouseClick ("Right") Sleep($Slide1) MouseUp("Right") Wend Endif EndFunc Func LeftClicker () GuiCtrlSetDatA( $LeftClickerButton , "Stop Clicking") $LeftEvent=GuiCtrlSetOnEvent( $LeftClickerButton, "ExitLeft") If $CheckBoxRead1 = 1 Then $LeftClicker = 1 While $LeftEvent <> 1 MouseClick( "Left") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slide2) MouseUp( "Left") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slide) Send( " ", 1) WEnd Else $LeftClicker = 1 While $LeftEvent <> 1 MouseClick ("Left") Sleep($Slide1) MouseUp("Left") Wend Endif EndFunc Func ShieldClicker () GuiCtrlSetData( $ShieldClickerButton , "Stop Clicking") $ShieldEvent=GuiCtrlSetOnEvent( $ShieldClickerButton, "ExitShield") if $CheckBoxRead2 = 1 Then $ShieldClicker = 1 While $ShieldEvent <> 1 For $I = 1 to $EditShieldClickerReadEvery MouseClick ("Right") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slider3) MouseUp ("Right") Sleep($Slide) Send (" ", 1) Next MouseClick("right") Sleep($Slider3) WinActivate("Classname=Shell_TrayWnd") MouseUp("Right") WinActivate("Classname=Shell_TrayWnd") Sleep($Slider) Send( " ", 1) WinActivate("Classname=Shalle_TrayWnd") Send( $EditShieldClickerReadButton, 1) WinActivate("Classname=Shalle_TrayWnd") MouseClick("right") WinActivate("Classname=Shell_TrayWnd") MouseUp("Right") WinActivate("Classname=Shell_TrayWnd") Send( $EditShieldClickerFirstButton, 1) WEnd Else $ShieldClicker = 1 While 1 For $I = 1 to $EditShieldClickerReadEvery MouseClick ("Right") WinActivate ("Classname=Shell_TrayWnd") Sleep($Slider3) MouseUp ("Right") Next MouseClick("right") Sleep($Slider3) WinActivate("Classname=Shell_TrayWnd") MouseUp("Right") WinActivate("Classname=Shell_TrayWnd") Send( $EditShieldClickerReadButton, 1) WinActivate("Classname=Shalle_TrayWnd") MouseClick("right") WinActivate("Classname=Shell_TrayWnd") MouseUp("Right") WinActivate("Classname=Shell_TrayWnd") Send( $EditShieldClickerFirstButton, 1) WEnd EndIf EndFunc ;---------------------Main While ---------------- Func ExitMish () Exit EndFunc 8)
Misha Posted April 13, 2006 Author Posted April 13, 2006 Thanks that worked but my whiles of functions autopicker/rightclicker/leftclicker/shieldclicker dont work can anyone else help on that?
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