;===============================================================================================
;Last Modified on 2/26/2003 at 1:31:15 PM by DFlaming
;===============================================================================================

;======================================================================
;Created by Dean F.
;This script is designed to create a login box for a user to type in
;their username, password, and domain. It then returns these three
;values as variables that the rest of the script(s) can use.
;
;To use this script, remove the "$= $FORM.MsgBox" line at the end of
;the script and add whatever you need (i.e. USE statement or whatever)
;after the ENDFUNCTION line.
;
;You must have KIXFORMS.DLL registered on any system which is going to
;run this script. KIXFORMS.DLL can be found at the web site
;http://www.kixforms.freeuk.com
;======================================================================
;Break ON
SetConsole("Hide")

; Form Basics
$Form						= CreateObject("Kixtart.Form")
$Form.Caption					= "User Login"
$Form.ScaleHeight				= 238
$Form.ScaleWidth				= 304
$Form.FontName					= "Arial"
$Form.FontSize					= 9
$Form.Center

; Banner Details
$FrameBanner 					= $Form.PictureBox
$FrameBanner.BackColor			= $Form.RGB(255,255,255)
$FrameBanner.Height 			= 70
$FrameBanner.Left				= 10
$FrameBanner.Top				= 10
$FrameBanner.Width				= 285

; Banner Picture
$PictureBanner					= $FrameBanner.Image
$PictureBanner.Picture			= "%WINDIR%\System32\shell32.dll;18"
$PictureBanner.Height			= 60
$PictureBanner.Left				= 5
$PictureBanner.Top				= 5
$PictureBanner.Width			= 60

; Frame Details
$FrameDetails					= $Form.Frame("Login Information")
$FrameDetails.Height 			= 135
$FrameDetails.Left 				= 8
$FrameDetails.Top 				= 95
$FrameDetails.Width 			= 285
 
; Username Box
$TextBoxUsername				= $FrameDetails.TextBox
$TextBoxUsername.Height			= 19
$TextBoxUsername.Left			= 104
$TextBoxUsername.Top			= 24
$TextBoxUsername.Text			= @USERID
$TextBoxUsername.Width			= 161

$LabelBoxUsername				= $FrameDetails.Label
$LabelBoxUsername.Caption		= "Username:"
$LabelBoxUsername.Height			= $TextBoxUsername.Height
$LabelBoxUsername.Width			= 75
$LabelBoxUsername.Left			= $TextBoxUsername.Left - $LabelBoxUsername.Width
$LabelBoxUsername.Top			= $TextBoxUsername.Top

; Password Box
$TextBoxPassword				= $FrameDetails.TextBox
$TextBoxPassword.Height			= 19
$TextBoxPassword.Left			= 104
$TextBoxPassword.PasswordChar 	= "*"
$TextBoxPassword.Top			= 48
$TextBoxPassword.Width			= 161

$LabelBoxPassword				= $FrameDetails.Label("Password:")
$LabelBoxPassword.Width			= 75
$LabelBoxPassword.Left			= $TextBoxPassword.Left - $LabelBoxPassword.Width
$LabelBoxPassword.Top			= $TextBoxPassword.Top

; Domain Name Box
$TextBoxDomain					= $FrameDetails.TextBox
$TextBoxDomain.Height			= 19
$TextBoxDomain.Left				= 104
$TextBoxDomain.Top				= 72
$TextBoxDomain.Text				= @LDOMAIN
$TextBoxDomain.Width			= 161

$LabelBoxDomain				= $FrameDetails.Label
$LabelBoxDomain.Caption			= "Domain:"
$LabelBoxDomain.Height			= $TextBoxDomain.Height
$LabelBoxDomain.Width			= 75
$LabelBoxDomain.Left			= $TextBoxDomain.Left - $LabelBoxDomain.Width
$LabelBoxDomain.Top				= $TextBoxDomain.Top

; Banner Text and Picture
$FrameBanner.FontSize			= 20
$FrameBanner.FontName			= "lucida"
$FrameBanner.ForeColor			= 0
$FrameBanner.FontBold			= 1
$FrameBanner.PrintXY(70,0,"Network Login")
$FrameBanner.FontSize			= 14
$FrameBanner.ForeColor			= $Form.RGB(0,100,100)
$FrameBanner.PrintXY(71,28,"Hello @FULLNAME")
$FrameBanner.FontBold			= 0
$FrameBanner.FontSize			= 8
$FrameBanner.ForeColor			= $Form.RGB(0,50,200)
$FrameBanner.PrintXY(71,50,"Type in your Login ID and Password")
$FrameBanner.FontSize			= 10

; Login Button
$CmdUserLogin					= $FrameDetails.CommandButton("Login")
$CmdUserLogin.Default			= 1 ; True
$CmdUserLogin.FontName			= "Arial"
$CmdUserLogin.FontSize			= 10
$CmdUserLogin.FontBold			= 1
$CmdUserLogin.Left				= 105
$CmdUserLogin.Top				= 103
$CmdUserLogin.Width				= 78
$CmdUserLogin.Height			= 19
$CmdUserLogin.OnClick			= "CmdUserLogin_Click()"

; Exit Button
$CmdExit	 					= $FrameDetails.CommandButton("Exit")
$CmdExit.FontName				= "Arial"
$CmdExit.FontSize				= 10
$CmdExit.FontBold				= 1
$CmdExit.Top					= 103
$CmdExit.Width					= 80
$CmdExit.Height				= 19
$CmdExit.Left					= 188
$CmdExit.OnClick				= "quit()"

; Get Lengths
$TextBoxUsername.SelLength		= Len($TextBoxUsername.Text)
$TextBoxPassword.SelLength		= Len($TextBoxPassword.Text)
$TextBoxDomain.SelLength			= Len($TextBoxDomain.Text)

; Set Strings
Dim $StringUsername
Dim $StringPassword
Dim $StringDomain

; Execute Form
$Form.Show
$TextBoxUsername.SetFocus

While $Form.Visible
 $=Execute($Form.DoEvents)
Loop

;Functions
Function CmdUserLogin_Click()

	If $TextBoxUsername.Text = ""
		$= $Form.MsgBox("You must specify a username before clicking LOGIN.", "Invalid Username")
		$TextBoxUsername.Text = $StringUsername
		Exit Sub
	Else
		$StringUsername = $TextBoxUsername.Text
	EndIf

	If $TextBoxPassword.Text = ""
		$= $Form.MsgBox("You must specify a password before clicking LOGIN.", "Invalid Password")
		$TextBoxPassword.Text = $StringPassword
		Exit Sub
	Else
		$StringPassword = $TextBoxPassword.Text
	EndIf

	If $TextBoxDomain.Text = ""
		$= $Form.MsgBox("You must specify a domain before clicking LOGIN.", "Invalid Domain")
		$TextBoxDomain.Text = $StringDomain
		Exit Sub
	Else
		$StringDomain = $TextBoxDomain.Text
	EndIf

	$Form.Hide
	$= $FORM.MsgBox("Your username is: $StringUserName
Your Password is: $StringPassword
Your Domain is: $StringDomain", "TEST Box Return OF VALUES ENTERED")
EndFunction