DarbAsia Posted November 30, 2017 Share Posted November 30, 2017 Hello!, i want to connect these two scripts together so i can use the program only if i had the passcode of it: login 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 seound script: New Text Document.txt Link to comment Share on other sites More sharing options...
DarbAsia Posted November 30, 2017 Author Share Posted November 30, 2017 Hello!, i want to connect these two scripts together so i can use the program only if i had the passcode of it: login script: expand popup 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 seound script: New Text Document.txt Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted November 30, 2017 Moderators Share Posted November 30, 2017 DarbAsia, Welcome to the AutoIt forums but please do not double-post in future. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
DarbAsia Posted November 30, 2017 Author Share Posted November 30, 2017 4 minutes ago, Melba23 said: DarbAsia, Welcome to the AutoIt forums but please do not double-post in future. M23 I appreciate your support!, thanks for letting me know! Link to comment Share on other sites More sharing options...
Skysnake Posted December 1, 2017 Share Posted December 1, 2017 that is 6000 lines of code. Is it possible to show something shorter that explains your purpose? Skysnake Why is the snake in the sky? Link to comment Share on other sites More sharing options...
DarbAsia Posted December 1, 2017 Author Share Posted December 1, 2017 2 hours ago, Skysnake said: that is 6000 lines of code. Is it possible to show something shorter that explains your purpose? this is a onekey ghost i just wanted to add password to the program if someone tries to open it Link to comment Share on other sites More sharing options...
Skysnake Posted December 2, 2017 Share Posted December 2, 2017 Is this what you are after? https://www.autoitscript.com/wiki/AutoIt_Snippets#PasswordCrypt Skysnake Why is the snake in the sky? Link to comment Share on other sites More sharing options...
Earthshine Posted December 2, 2017 Share Posted December 2, 2017 (edited) Hmmmm Edited December 2, 2017 by Earthshine My resources are limited. You must ask the right questions 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