10031992 Posted June 26, 2009 Share Posted June 26, 2009 (edited) To whom was the request of my login script is How many sent me PM asking for my login script to program then i decided post My Script : expandcollapse popup#include <ButtonConstants.au3> #include <GUIConstantsEx.au3>; #include <EditConstants.au3> ProgressOn("Load Program", "Open Program", "0%"); Just to let more beautiful For $i = 10 To 100 Step 10 Sleep(1000) ProgressSet($i, $i & "%") Next ProgressSet(100, "Full Load", "Complete") Sleep(500) ProgressOff() $Form1 = GUICreate("Login", 400, 250, -1, -1); begining of Login $PASSWORD = GUICtrlCreateInput("", 65, 167, 220, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL)) $ButtonOk = GUICtrlCreateButton("&OK", 200, 220, 75, 25, 0) $ButtonCancel = GUICtrlCreateButton("&Cancel", 280, 220, 75, 25, 0) $passwordlabel = GUICtrlCreateLabel("Password:", 8, 172, 50, 17) $usernamelabel = GUICtrlCreateLabel("Username:", 8, 143, 52, 17) $USERNAME = GUICtrlCreateInput("", 65, 144, 220, 21) GUICtrlCreateGroup('',10,2,380,100) GUICtrlCreateLabel('Terms of use of this Software',30,10,340,18) GUICtrlSetColor(-1, 0x0012FF) GUICtrlSetFont(-1,12,400) GUICtrlCreateLabel('To use this software to be Registered in Forum',30,28,340,18) GUICtrlSetFont(-1,12,400) GUICtrlCreateLabel('',30,46,340,18) GUICtrlSetFont(-1,12,400) GUICtrlCreateLabel('To open the program',30,64,340,18) GUICtrlSetFont(-1,12,400) GUICtrlCreateLabel('Team gOHc Thank you for your choice',30,82,340,18) GUICtrlSetFont(-1,12,400) GUICtrlCreateGroup('',-99,-99,1,1) GUICtrlSetBkColor(-1,0x000000) GUISetState(@SW_SHOW) While 1 $MSG = GUIGetMsg() Switch $MSG Case $ButtonOk If VerifyLogin(GUICtrlRead($USERNAME),GUICtrlRead($PASSWORD)) = 1 Then GUIDelete($Form1) MsgBox(-1,"Logado com Sucesso","Login Succ..") RunP() Else MsgBox(-1,"Error"," Username ou Senha está incorreto, Tente denovo") EndIf Case -3 Exit Case $ButtonCancel Exit EndSwitch WEnd Func VerifyLogin($USERNAME,$PASSWORD) If $USERNAME = "your user here" And $PASSWORD = "your pass here" Then Return 1 Else Return 0 EndIf EndFunc; End login Func Runp() ;Your Code begining here EndFunc Func onautoitexit() Exit EndFunc ;==>onautoitexit Use so that you feel betterSimplesLogin.au3 Edited July 28, 2009 by 10031992 -------------------------------------------------------------------------------------------------------------------------------------------- [center][/center][center]Autoit Support Forum in Portuguese | AutoitBrasil.com[/center] [sub]My Script :[/sub]Simples Login for Program Link to comment Share on other sites More sharing options...
hot202 Posted August 7, 2009 Share Posted August 7, 2009 can u make it so it reads the user name and password of a .txt on the internet? Link to comment Share on other sites More sharing options...
hot202 Posted August 8, 2009 Share Posted August 8, 2009 how would u add this to this code? it uses a login php u upload to a site expandcollapse popup; ---------------------------------------------------------------------------- ; ---------------------------------------------------------------------------- ; ; Author: ; Malu05 aka. Mads Hagbart Lund <mads@madx.dk> ; ; Script Function: ; Login Script ; ; Notes: ; ; ---------------------------------------------------------------------------- ; ---------------------------------------------------------------------------- ;;================================================================================ ;;INCLUDES ;;================================================================================ #include <INet.au3> #include <GUIConstantsEx.au3> #include <EditConstants.au3> ;;================================================================================ ;;VARIABEL DEFINITION ;;================================================================================ $WebFileLoc = "http://www.madx.dk/files/login.php" ;Put the link to the login file here. ;;================================================================================ ;;GUI CREATION ;;================================================================================ $Login = GUICreate("Login",220,100) ; //Create the login window $User = GUICtrlCreateInput("Username",10,10) ; //Create the Username Input $Pass = GUICtrlCreateInput("Password",10,40,-1,-1,$ES_PASSWORD) ; //Create the Password Input $OKbutton = GUICtrlCreateButton("Login",110,70,100) ; //Create the Login Button $Exit = GUICtrlCreateButton("Exit",10,70,100) ; //Create the Exit Button GUISetState() ; //Display the GUI ;;================================================================================ ;;LOGIN LOOP ;;================================================================================ While 1 ; //Initialize loop $msg = GUIGetMsg() ; //Recive Input Select Case $msg = $GUI_EVENT_CLOSE or $msg = $Exit ; //If the Exit or Close button is clicked, close the app. MsgBox(0, "Terminate", "Adios") ; //Say goodbye Exit ; //Exit the Application Case $msg = $OKbutton ; //If the Login button is clicked goto the login function _login() EndSelect WEnd ;;================================================================================ ;;_login() ;;================================================================================ func _login() $UsernameInput = GUICtrlRead($User) ; //Get the username from the Input $PasswordInput = GUICtrlRead($Pass) ; //Get the password from the Input if $UsernameInput = "" or $PasswordInput = "" Then ; //Check if the user forgot to put in username and/or password_ MsgBox(0,"ERROR","Please Enter a Username and Password") ; -> Then Print this error Else $WEBdata = _INetGetSource($WebFileLoc &'?user=' & $UsernameInput & '&pass=' & $PasswordInput) ; //Get the data from the PHP file if $WEBdata = "02" Then ; //Check for Error outputs_ MsgBox(0,"Error","Unable to Login" & @lf & "Username and or Password was incorrect") ;->Display error output ElseIf $WEBdata ="0102" Then MsgBox(0,"Error","Unable to Login" & @lf & "Password was incorrect") ;->Display error output Else msgbox(0,"Welcome","Welcome" & @lf & "data = " & StringTrimRight($WEBdata,2)) ; //Login Sucessfull. Post data. EndIf EndIf EndFunc ;--> _login()LoginSystem.zip Link to comment Share on other sites More sharing options...
10031992 Posted August 14, 2009 Author Share Posted August 14, 2009 (edited) can u make it so it reads the user name and password of a .txt on the internet? Yes, I modified my that the use, but more Exemple: http://yoursite.com/login.txt File .txt usuario|pass1 usuario2|pass2 ..... Func VerifyLogin($USERNAME,$PASSWORD) local $x = 1 Do inetget("http://yoursite.com/login.txt",@systemdir & "/login.txt") $login = filereadline(@systemdir & "/login.txt",$x) $string = stringsplit($login,"|") if $string[1] = $username and $string[2] = $password then return 1 exitloop Else $x = $x + 1 Endif if $login = "" then return 0 exitloop endif until $x = $x + 1 EndFunc Edited August 14, 2009 by 10031992 -------------------------------------------------------------------------------------------------------------------------------------------- [center][/center][center]Autoit Support Forum in Portuguese | AutoitBrasil.com[/center] [sub]My Script :[/sub]Simples Login for Program Link to comment Share on other sites More sharing options...
Luigi Posted March 20, 2011 Share Posted March 20, 2011 This is cool! ^^ (A idéia do programa é bem legal, gostei) Visit my repository Link to comment Share on other sites More sharing options...
retaly Posted December 9, 2011 Share Posted December 9, 2011 hy, can u help me? plz, i uploaded the php site and the txt, but what need to do, how that program working well? Link to comment Share on other sites More sharing options...
spudw2k Posted December 9, 2011 Share Posted December 9, 2011 Oh boy, revived an old topic and one that happens to be a pet peeve of mine. Spoiler Things I've Made: Always On Top Tool ◊ AU History ◊ Deck of Cards ◊ HideIt ◊ ICU ◊ Icon Freezer ◊ Ipod Ejector ◊ Junos Configuration Explorer ◊ Link Downloader ◊ MD5 Folder Enumerator ◊ PassGen ◊ Ping Tool ◊ Quick NIC ◊ Read OCR ◊ RemoteIT ◊ SchTasksGui ◊ SpyCam ◊ System Scan Report Tool ◊ System UpTime ◊ Transparency Machine ◊ VMWare ESX BuilderMisc Code Snippets: ADODB Example ◊ CheckHover ◊ Detect SafeMode ◊ DynEnumArray ◊ GetNetStatData ◊ HashArray ◊ IsBetweenDates ◊ Local Admins ◊ Make Choice ◊ Recursive File List ◊ Remove Sizebox Style ◊ Retrieve PNPDeviceID ◊ Retreive SysListView32 Contents ◊ Set IE Homepage ◊ Tickle Expired Password ◊ Transpose ArrayProjects: Drive Space Usage GUI ◊ LEDkIT ◊ Plasma_kIt ◊ Scan Engine Builder ◊ SpeeDBurner ◊ SubnetCalcCool Stuff: AutoItObject UDF ◊ Extract Icon From Proc ◊ GuiCtrlFontRotate ◊ Hex Edit Funcs ◊ Run binary ◊ Service_UDF Link to comment Share on other sites More sharing options...
retaly Posted December 10, 2011 Share Posted December 10, 2011 .. so how need to use? xD plz write a smal lexample for it. Link to comment Share on other sites More sharing options...
reti Posted December 11, 2011 Share Posted December 11, 2011 some help here ... ! Link to comment Share on other sites More sharing options...
retaly Posted December 11, 2011 Share Posted December 11, 2011 ifu re stupid, u cant tell good things for ppl, shut up plz.. Link to comment Share on other sites More sharing options...
Fhelipe Posted April 19, 2017 Share Posted April 19, 2017 how to put multi logins? Link to comment Share on other sites More sharing options...
Developers Jos Posted April 19, 2017 Developers Share Posted April 19, 2017 3 hours ago, Fhelipe said: how to put multi logins? Is this an actual question that you expect an answer for? Maybe you could start with explaining what exactly you want to do first? Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Fhelipe Posted April 19, 2017 Share Posted April 19, 2017 3 minutes ago, Jos said: Is this an actual question that you expect an answer for? Maybe you could start with explaining what exactly you want to do first? Jos I want to make a package for an application but I will distribute then I want the login system, as they are for more than one person wanted to put more logins Link to comment Share on other sites More sharing options...
Developers Jos Posted April 19, 2017 Developers Share Posted April 19, 2017 Still not much to go on: How do you define these userids and Passwords for the script? Why is the question posted in this thread as this shows a giu with a USerid&Password prompt so what is your problem implementing it based on this script example? Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. 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