• GPL
    autoit
_LoginBox.au3
Advanced AutoIt Media Player (or AAMP for short) is a media player created using AutoIt V3. It
Code
  1. Opt("GUICoordMode", " 2")
  2. $ret = _GUICreateLogin("Enter Credentials", "Enter the username and password", -1, -1, -1, -1, -1, 10000)
  4.         MsgBox(0, "Error", "Error Returned: " & $ret & @CRLF & "Error Code: " & @error & @CRLF & "Extended: " & @extended)
  6.         MsgBox(0, "Credentails Returned", "Username: " & $ret[0] & @CRLF & "Password:  " & $ret[1])
  8.  
  9. ;===============================================================================
  10. ; Function Name:   _GUICreateLogin()
  11. ; Description:     Create a basic login box with Username, Password, and a prompt.
  12. ; Syntax:
  13. ; Parameter(s):    $hTitle - The title of the Form
  14. ;                  $hPrompt - The text prompt for the user [Optional] (maximum of 2 lines)
  15. ;                  $bBlank - The password or username can be blank. [optional]
  16. ;                            Default = False (Blanks are not allowed)
  17. ;                  $hWidth - Width of the form [optional] - default = 250
  18. ;                  $hHeight - Height of the form [optional] - default = 130
  19. ;                  $hLeft - X position [optional] - default = centered
  20. ;                  $hTop - Y position [optional] - default = centered
  21. ;                  $Timeout - The timeout of the form [optional - default = 0 (no timeout)
  22. ;                  $ShowError - Prompts are displayed to the user with timeout [optional]
  23. ; Requirement(s):  None
  24. ; Return Value(s): Success - Returns an array of 2 elements where
  25. ;                                        [0] = UserName
  26. ;                                        [1] = Password
  27. ;                  Failure - Sets @Error to 1 and
  28. ;                                 @Extended - 1 = Cancel/Exit Button Pressed
  29. ;                                           - 2 = Timed out
  30. ; Author(s):   Brett Francis (exodus.is.me@hotmail.com)
  31. ; Modification(s): GeoSoft
  32. ; Note(s): If $hPrompt is blank then the GUI height will be reduced by 30
  33. ; Example(s):
  34. ;===============================================================================
  35.  
  36. Func _GUICreateLogin($hTitle, $hPrompt = "", $bBlank = False, $hWidth = -1, $hHeight = -1, $hLeft = -1, $hTop = -1, $timeout = 0, $ShowError = 0)
  37.         If Not $hTitle Then $hTitle = "Login"
  38.         $iGCM = Opt("GUICoordMode", 2);; Get the current value of GUICoordMode and set it to 2
  39.         If StringRegExp($bBlank, "(?i)\s|default|-1") Then $bBlank = False
  40.         If StringRegExp($hWidth, "(?i)\s|default|-1") Then $hWidth = 250
  41.         If StringRegExp($hHeight, "(?i)\s|default|-1") Then $hHeight = 130
  42.         If StringRegExp($hLeft, "(?i)\s|default|-1") Then $hLeft = (@DesktopWidth / 2) - ($hWidth / 2)
  43.         If StringRegExp($hTop, "(?i)\s|default|-1") Then $hTop = (@DesktopHeight / 2) - ($hHeight / 2)
  44.         If Not $hPrompt Then $hHeight -= 30;If $hPrompt is blank then resize the GUI.
  45.         Local $retarr[2] = ["", ""], $Time = 0
  46.  
  47.         Local $gui = GUICreate($hTitle, $hWidth, $hHeight, $hLeft, $hTop)
  48.         GUISetCoord(4, 0)
  49.         If $hPrompt Then Local $Lbl_Prompt = GUICtrlCreateLabel($hPrompt, -1, 4, 201, 30)
  50.         Local $Lbl_User = GUICtrlCreateLabel("Username:", -1, 4, 64, 17);44, 64, 17)
  51.         GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  52.         Local $username = GUICtrlCreateInput('', 8, -1, $hWidth - 81, 21)
  53.         GUICtrlCreateLabel("Password:", -($hWidth - 8), 4, 65, 17)
  54.         GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  55.         Local $password = GUICtrlCreateInput('', 8, -1, $hWidth - 81, 21, 32);, $ES_PASSWORD)
  56.         GUISetCoord(($hWidth / 2) - 85, $hHeight - 34)
  57.         Local $Btn_OK = GUICtrlCreateButton("&OK", -1, -1, 75, 25)
  58.         Local $Btn_Cancel = GUICtrlCreateButton("&Cancel", 20, -1, 75, 25)
  59.         GUICtrlSetState($Btn_OK, 512)
  60.         GUISetState()
  61.         If $timeout Then $Time = TimerInit()
  62.         While 1
  63.                 $Msg = GUIGetMsg()
  64.                 Local $sUser = GUICtrlRead($username)
  65.                 Local $sPass = GUICtrlRead($password)
  66.                 If ($Time And TimerDiff($Time) >= $timeout) And ($sUser = "" And $sPass = "") Then
  67.                         $Status = 2
  68.                         ExitLoop
  69.                 EndIf
  70.                 Select
  71.                         Case $Msg = -3
  72.                                 $Status = 0
  73.                                 ExitLoop
  74.                         Case $Msg = $Btn_OK
  75.                                 If $bBlank And ($sUser = "" Or $sPass = "") Then
  76.                                         $Status = 1
  77.                                         ExitLoop
  78.                                 Else
  79.                                         If $sUser <> "" And $sPass <> "" Then
  80.                                                 $Status = 1
  81.                                                 ExitLoop
  82.                                         Else
  83.                                                 Select
  84.                                                         Case $sUser = "" And $sPass = ""
  85.                                                                 If $ShowError = 1 Then MsgBox(16, "Error!", "Username and Password cannot be blank!")
  86.                                                         Case $sPass = ""
  87.                                                                 If $ShowError = 1 Then MsgBox(16, "Error!", "Password cannot be blank!")
  88.                                                                 GUICtrlSetState($password, 256)
  89.                                                         Case $sUser = ""
  90.                                                                 If $ShowError = 1 Then MsgBox(16, "Error!", "Username cannot be blank!")
  91.                                                                 GUICtrlSetState($username, 256)
  92.                                                 EndSelect
  93.                                         EndIf
  94.                                 EndIf
  95.                         Case $Msg = $Btn_Cancel
  96.                                 $Status = 0
  97.                                 ExitLoop
  98.                         Case $timeout And TimerDiff($Time) >= $timeout; And $timeout
  99.                                 If $bBlank And ($sUser = "" Or $sPass = "") Then
  100.                                         $Status = 2
  101.                                         ExitLoop
  102.                                 Else
  103.                                         ;$time = TimerInit()
  104.                                         Select
  105.                                                 Case $sUser = "" And $sPass = ""
  106.                                                         If $timeout Then $Time = TimerInit()
  107.                                                         If $ShowError = 1 Then MsgBox(16, "Error!", "Username and Password cannot be blank!")
  108.                                                 Case $sPass = ""
  109.                                                         If $timeout Then $Time = TimerInit()
  110.                                                         If $ShowError = 1 Then
  111.                                                                 MsgBox(16, "Error!", "Password cannot be blank!")
  112.                                                                 GUICtrlSetState($password, 256)
  113.                                                         EndIf
  114.                                                 Case $sUser = ""
  115.                                                         $Time = TimerInit()
  116.                                                         If $ShowError = 1 Then
  117.                                                                 MsgBox(16, "Error!", "Username cannot be blank!")
  118.                                                                 GUICtrlSetState($username, 256)
  119.                                                         EndIf
  120.                                                         ;Case ($Timeout AND TimerDiff($time) >= $timeout) AND ($sUser = "" OR $sPass = "")
  121.                                                         ;$status = 2
  122.                                                         ;ExitLoop
  123.                                                 Case Else
  124.                                                         If $sUser <> "" And $sPass <> "" Then
  125.                                                                 $Status = 3
  126.                                                                 ;If $Timeout AND TimerDiff($time) >= $timeout Then $Status = 2
  127.                                                                 ExitLoop
  128.                                                         EndIf
  129.                                         EndSelect
  130.                                 EndIf
  131.                 EndSelect
  132.         WEnd
  133.         Local $eMsg = ""
  134.         Switch $Status
  135.                 Case 0, 2
  136.                         $err = 1;0
  137.                         $ext = 1;Cancel/Exit Button Pressed
  138.                         $eMsg = "Cancel/Exit Button Pressed"
  139.                         If $Status = 2 Then $ext = 2;Timed Out
  140.                         If $ext = 2 Then $eMsg = "Timed Out"
  141.                 Case Else;1, 3
  142.                         $retarr[0] = $sUser
  143.                         $retarr[1] = $sPass
  144.                         $err = 0;1
  145.                         $ext = 0
  146.                         If $Status = 3 Then $ext = 1;Username Fields Not Blank, Timeout reached
  147.         EndSwitch
  148.         GUIDelete($gui)
  149.         Opt("GUICoordMode", $iGCM);Reset the GUICoordMode to what it started as.
  150.         If $eMsg Then Return SetError($err, $ext, $eMsg)
  151.         Return $retarr
  152. EndFunc   ;==>_GUICreateLogin
  153.  

All content is provided "as is" without warranties or conditions of any kind. Signa5 and it's owners cannot be held responsible for any damages, whether it be direct, special, incidental, consequenatial or other damages (including loss of profit, loss of data), arising out of the use, inability to use, or the results of use of our service. Use of the service is entirely at your own risk. © 2008-2009 Brett Francis & Signa5.