Jump to content
10031992

Simple Login ( Username and Password )

Recommended Posts

10031992

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 :

#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 better

SimplesLogin.au3

Edited by 10031992

-------------------------------------------------------------------------------------------------------------------------------------------- [center][/center][center]Autoit Support Forum in Portuguese | AutoitBrasil.com[/center] [sub]My Script :[/sub]Simples Login for Program

Share this post


Link to post
Share on other sites
hot202

can u make it so it reads the user name and password of a .txt on the internet?

Share this post


Link to post
Share on other sites
hot202

how would u add this to this code?

it uses a login php u upload to a site

; ----------------------------------------------------------------------------
; ----------------------------------------------------------------------------
;
; 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

Share this post


Link to post
Share on other sites
10031992

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 by 10031992

-------------------------------------------------------------------------------------------------------------------------------------------- [center][/center][center]Autoit Support Forum in Portuguese | AutoitBrasil.com[/center] [sub]My Script :[/sub]Simples Login for Program

Share this post


Link to post
Share on other sites
Luigi

This is cool! ^^

(A idéia do programa é bem legal, gostei)


Visit my repository

Share this post


Link to post
Share on other sites
retaly

hy, can u help me? plz, i uploaded the php site and the txt, but what need to do, how that program working well?

Share this post


Link to post
Share on other sites
spudw2k
retaly

.. so how need to use? xD plz write a smal lexample for it.

Share this post


Link to post
Share on other sites
reti

some help here ... !

Share this post


Link to post
Share on other sites
retaly

ifu re stupid, u cant tell good things for ppl, shut up plz..

Share this post


Link to post
Share on other sites
Fhelipe

how to put multi logins?

Share this post


Link to post
Share on other sites
Jos
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 Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Fhelipe
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

Share this post


Link to post
Share on other sites
Jos

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 Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now

×