Metro Inspired Login GUI

[KarlosTHG]

Hi Guys!!

I want to share this Login GUI that I'm working on for my last project... I hope you like it!

Some Features:

• Metro Style Inspiration.
• It adjust itself to any screen resolution.
• With the use of all the screen the software get all the attention of the client
• Input PlaceHolders
• Cute Design

But.... I also want you to help me please to solve some problems:

• How to avoid the flicker in the intro animation (maybe GDI text... but i don't know how yet)
• Why the GUICtrlSetStyle( $inputPass,0x0020+0x0001, 0) is not working, it is supposed to change the style to password but it doesn't, the only way i have found is to set the style al the time of the input creation but that is not the idea... as you can see, because the placeholder effect would be lost...
• Any other feedback.

Download Here: sample.zip

Thanks for your help!! and thanks to MrCreatoR for his awesome GUICtrlOnHover UDF

Update:

• Now using GUICtrlSendMsg(-1, $EM_SETCUEBANNER, True, "Password"), thanks to AlmarM, Melba23 and D4RKON3
• Everything is in English now
• Some fixes here and there
• Some code clean-up

Now! Who is up for making the animation flickerless!!!

Edited April 4, 2012 by KarlosTHG

[AlmarM]

Looks great, awesome design!

Why the GUICtrlSetStyle( $inputPass,0x0020+0x0001, 0) is not working, it is supposed to change the style to password but it doesn't, the only way i have found is to set the style al the time of the input creation but that is not the idea... as you can see, because the placeholder effect would be lost...

I had the same problem once.. Last week I think I saw a solution somewhere in the Example Scripts forum.

I'll try to find it, check back this comment later.

[UEZ]

Try in line 113:

$inputPass = GUICtrlCreateInput("Contraseña...", $wdleft+($wsizew/2)-(300/2)+50, $wdtop+430+7, 300-50, 30, 0x0021);password...

Nice looking GUI!

Br,

UEZ

Edited April 4, 2012 by UEZ

[Melba23]

KarlosTHG,

I think AlmarM is referring to this CUEBANNER code:

#include <GUIConstantsEX.au3>
#include <EditConstants.au3>

$hGUO = GUICreate("Test", 500, 500)

$CInput = GUICtrlCreateInput("", 10, 10, 200, 20, $ES_PASSWORD)
GUICtrlSendMsg(-1, $EM_SETCUEBANNER, True, "Password")

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

;Does not work for edit controls with $ES_MULTILINE style.
;In XP, the banner disappears when the edit has focus (cursor in edit)
;In Vista/7 the banner can optionally still appear when the edit has focus (cursor in edit)
;(third parameter = True/False)

M23

[AlmarM]

Actualy, I was looking for a script in which you could change between the password style, since his login screen only needs to draw password characters whenever it has focus.

I could only find this for the moment:

[AlmarM]

I'm sorry to post another post, but I'm having problems with editing my posts. View here.

The cuebanner is awesome and might even work better then switching between styles.

[FaridAgl]

Nice job, try this out:

expandcollapse popup

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include "GUICtrlOnHover.au3"
Opt("GUIOnEventMode", 1)
$appTitle = "SoftTitle"
$appSubTitle = "KLSoftware - KLSoftwareco@gmail.com"
;dialog size
$wsizew = 800 + 224 - 334;you can use any size and the content will adapt unless there is no room left, as far as I have tested...
$wsizeh = 600 + 168 - 200
$wdleft = (@DesktopWidth - $wsizew) / 2
$wdtop = (@DesktopHeight - $wsizeh) / 2
HotKeySet("{ESC}", "close")
$gui = GUICreate("fullscreencover", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP)
GUISetBkColor(0X101010)

;018cc1
GUICtrlCreatePic("guigrey.bmp", $wdleft + 10, $wdtop + 10, $wsizew - 20, $wsizeh - 20)
GUICtrlSetState(-1, $GUI_DISABLE)
$title = GUICtrlCreateLabel($appTitle, -430, $wdtop + 15, 370, 150)
GUICtrlSetFont(-1, 84, Default, Default, "Segoe UI Light", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$title2 = GUICtrlCreateLabel($appSubTitle, -430, $wdtop + 140, 297, 30)
GUICtrlSetFont(-1, 14, Default, Default, "Segoe UI Light", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$fechames = GUICtrlCreateLabel("Enero", $wdleft + $wsizew - 155, $wdtop + 30, 100, 30, 0x0002);+0x1000)
GUICtrlSetFont(-1, 14, Default, Default, "Segoe UI Light", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$fechadia = GUICtrlCreateLabel("1", $wdleft + $wsizew - 50, $wdtop + 14, 40, 50);+0x1000)
GUICtrlSetFont(-1, 24, Default, Default, "Segoe UI Light", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$lbhora = GUICtrlCreateLabel(@HOUR & ":" & @MIN, $wdleft + $wsizew - 135, $wdtop + 50, 100, 50, 0x0002);+0x1000)
GUICtrlSetFont(-1, 24, Default, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$lbhoraampm = GUICtrlCreateLabel("p", $wdleft + $wsizew - 30, $wdtop + 50, 35, 40);,0x1000)
GUICtrlSetFont(-1, 14, Default, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$lbhoraampmfix = GUICtrlCreateLabel("m", $wdleft + $wsizew - 30, $wdtop + 70, 35, 40);+0x1000)
GUICtrlSetFont(-1, 12, Default, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
UpdateTime()
AdlibRegister("UpdateTime", 1000)
GUICtrlCreatePic("guilockpad.bmp", $wdleft + ($wsizew / 2) - (120 / 2), $wdtop + 200, 120, 160)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreatePic("guiinput.bmp", $wdleft + ($wsizew / 2) - (332 / 2), $wdtop + 380, 332, 45)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreatePic("guiuser.bmp", $wdleft + ($wsizew / 2) - (332 / 2) + 10, $wdtop + 380 + 10, 30, 30)
GUICtrlSetState(-1, $GUI_DISABLE)
$inputUser = GUICtrlCreateInput("", $wdleft + ($wsizew / 2) - (300 / 2) + 30, $wdtop + 380 + 7, 300 - 30, 30, 0x0001, 0);user...
GUICtrlSetFont(-1, 17, 800, Default, "Segoe UI Bold", 5)
GUICtrlSendMsg(-1, $EM_SETCUEBANNER, False, 'Username')
GUICtrlCreatePic("guiinput.bmp", $wdleft + ($wsizew / 2) - (332 / 2), $wdtop + 430, 332, 45)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreatePic("guikey.bmp", $wdleft + ($wsizew / 2) - (332 / 2) + 10, $wdtop + 430 + 10, 50, 23)
GUICtrlSetState(-1, $GUI_DISABLE)
$inputPass = GUICtrlCreateInput("", $wdleft + ($wsizew / 2) - (300 / 2) + 50, $wdtop + 430 + 7, 300 - 50, 30, 0x0001 + $ES_PASSWORD, 0);password...
GUICtrlSetFont(-1, 17, 800, Default, "Segoe UI", 5)
GUICtrlSendMsg(-1, $EM_SETCUEBANNER, False, 'Password')
$ButtonNextimg = GUICtrlCreatePic("guiblueb1.bmp", $wdleft + ($wsizew / 2) + 20, $wdtop + 500, 144, 51)
GUICtrlSetState(-1, $GUI_DISABLE)
$ButtonNext = GUICtrlCreateLabel("Entrar", $wdleft + ($wsizew / 2) + 20, $wdtop + 500, 144, 51, 0x0001); enter the system
GUICtrlSetFont(-1, 24, 800, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrl_OnHoverRegister(-1, "_Hover_Proc", "_Leave_Hover_Proc", "PrimaryDown_Proc")
$ButtonExitimg = GUICtrlCreatePic("guiredb1.bmp", $wdleft + ($wsizew / 2) - 184 + 20, $wdtop + 500, 144, 51)
GUICtrlSetState(-1, $GUI_DISABLE)
$ButtonExit = GUICtrlCreateLabel("Salir", $wdleft + ($wsizew / 2) - 184 + 20, $wdtop + 500, 144, 51, 0x0001); enter the system
GUICtrlSetFont(-1, 24, 800, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GUICtrl_OnHoverRegister(-1, "_Hover_Proc", "_Leave_Hover_Proc", "PrimaryDown_Proc")
GUISetState(@SW_SHOW)
Sleep(500)
For $lp = -430 To 80 Step 8
GUICtrlSetPos($title, $wdleft + $lp)
Next
For $lp = 80 To 20 Step -4
GUICtrlSetPos($title, $wdleft + $lp)
Sleep(10)
Next
Sleep(500)
For $lp = -430 To 80 Step 8
GUICtrlSetPos($title2, $wdleft + $lp)
Next
For $lp = 80 To 25 Step -4
GUICtrlSetPos($title2, $wdleft + $lp)
Sleep(10)
Next
While 1
Sleep(1000)
WEnd
Func _Hover_Proc($iCtrlID)
Switch $iCtrlID
  Case $ButtonNext
   GUICtrlSetImage($ButtonNextimg, "guiblueb2.bmp")
  Case $ButtonExit
   GUICtrlSetImage($ButtonExitimg, "guiredb2.bmp")
EndSwitch
EndFunc   ;==>_Hover_Proc
Func _Leave_Hover_Proc($iCtrlID)
Switch $iCtrlID
  Case $ButtonNext
   GUICtrlSetImage($ButtonNextimg, "guiblueb1.bmp")
  Case $ButtonExit
   GUICtrlSetImage($ButtonExitimg, "guiredb1.bmp")
EndSwitch
EndFunc   ;==>_Leave_Hover_Proc
Func PrimaryDown_Proc($iCtrlID)
Switch $iCtrlID
  Case $ButtonNext
   GUICtrlSetImage($ButtonNextimg, "guiblueb1.bmp")
   MsgBox(0, "Listo", "Bienvenido al sistema")
  Case $ButtonExit
   GUICtrlSetImage($ButtonExitimg, "guiredb1.bmp")
   Exit
EndSwitch
EndFunc   ;==>PrimaryDown_Proc
Func UpdateTime()
Local $hora = @HOUR
Local $ampm = "a"
If $hora > 12 Then
  $hora = "0" & $hora - 12
  $ampm = "p"
EndIf
If $hora = "00" Then $hora = 12
If GUICtrlRead($lbhora) <> $hora & ":" & @MIN Then
  GUICtrlSetData($lbhora, $hora & ":" & @MIN)
  GUICtrlSetData($lbhoraampm, $ampm)
EndIf
Local $month
Switch @MON
  Case 1
   $month = "Enero";january
  Case 2
   $month = "Febrero";february
  Case 3
   $month = "Marzo"
  Case 4
   $month = "Abril"
  Case 5
   $month = "Mayo"
  Case 6
   $month = "Junio"
  Case 7
   $month = "Julio"
  Case 8
   $month = "Agosto"
  Case 9
   $month = "Septiembre"
  Case 10
   $month = "Octubre"
  Case 11
   $month = "Noviembre"
  Case 12
   $month = "Diciembre"
EndSwitch
If GUICtrlRead($fechames) <> $month Then
  GUICtrlSetData($fechames, $month)
EndIf
If GUICtrlRead($fechadia) <> @MDAY Then
  GUICtrlSetData($fechadia, @MDAY)
EndIf
EndFunc   ;==>UpdateTime
Func close()
Exit
EndFunc   ;==>close

[KarlosTHG]

First Post Updated!!

[UEZ]

Try this.

LoginGUI.au3

expandcollapse popup

#region INCLUDES
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include "GUICtrlOnHover.au3"
#endregion INCLUDES

#region RUNTIME OPTIONS
Opt("GUIOnEventMode", 1)
HotKeySet("{ESC}", "close")
#endregion RUNTIME OPTIONS

#region GLOBAL VARIABLES
Global $appTitle = "SoftTitle"
Global $appSubTitle = "Awesome Subtitle - Awesome@mail.com"

;month names strings
Global $monthNames[13]
$monthNames[1] = "January"
$monthNames[2] = "February"
$monthNames[3] = "March"
$monthNames[4] = "April"
$monthNames[5] = "May"
$monthNames[6] = "June"
$monthNames[7] = "July"
$monthNames[8] = "August"
$monthNames[9] = "September"
$monthNames[10] = "October"
$monthNames[11] = "November"
$monthNames[12] = "December"

;username and password strings
Global $usernametxt = "Username...";"Usuario..."
Global $passwordtxt = "Password...";"Contraseña..."


;enter and exit strings
Global $nexttxt = "Enter";"Entrar"
Global $exittxt = "Exit";"Salir"

;dialog size, this is the gray area.
Global $wsizew = 800 + 224 - 334;you can use any size and the content will adapt unless there is no room left, as far as I have tested...
Global $wsizeh = 600 + 168 - 200

;New [0,0] coordinates, the top left corner of the gray area.
$wdleft = (@DesktopWidth - $wsizew) / 2
$wdtop = (@DesktopHeight - $wsizeh) / 2
#endregion GLOBAL VARIABLES

#region GUI
$gui = GUICreate($appTitle, @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP)
GUISetBkColor(0x101010)


;Dialog Background
GUICtrlCreatePic("guigrey.bmp", $wdleft + 10, $wdtop + 10, $wsizew - 20, $wsizeh - 20)
GUICtrlSetState(-1, $GUI_DISABLE)

;Date and Clock
$datemonth = GUICtrlCreateLabel("Enero", $wdleft + $wsizew - 155, $wdtop + 30, 100, 30, 0x0002);+0x1000)
GUICtrlSetFont(-1, 14, Default, Default, "Segoe UI Light", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$dateday = GUICtrlCreateLabel("1", $wdleft + $wsizew - 50, $wdtop + 14, 40, 50);+0x1000)
GUICtrlSetFont(-1, 24, Default, Default, "Segoe UI Light", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$lbhour = GUICtrlCreateLabel("", $wdleft + $wsizew - 135, $wdtop + 50, 100, 50, 0x0002);+0x1000)
GUICtrlSetFont(-1, 24, Default, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$lbhourampm = GUICtrlCreateLabel("a", $wdleft + $wsizew - 30, $wdtop + 50, 35, 40);,0x1000)
GUICtrlSetFont(-1, 14, Default, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$lbhourampmfix = GUICtrlCreateLabel("m", $wdleft + $wsizew - 30, $wdtop + 70, 35, 40);+0x1000)
GUICtrlSetFont(-1, 12, Default, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

UpdateTime()
AdlibRegister("UpdateTime", 1000)


;lockpad picture
GUICtrlCreatePic("guilockpad.bmp", $wdleft + ($wsizew / 2) - (120 / 2), $wdtop + 200, 120, 160)
GUICtrlSetState(-1, $GUI_DISABLE)


;Username Input
GUICtrlCreatePic("guiinput.bmp", $wdleft + ($wsizew / 2) - (332 / 2), $wdtop + 380, 332, 45)
GUICtrlSetState(-1, $GUI_DISABLE)

GUICtrlCreatePic("guiuser.bmp", $wdleft + ($wsizew / 2) - (332 / 2) + 10, $wdtop + 380 + 10, 30, 30)
GUICtrlSetState(-1, $GUI_DISABLE)

$inputUsername = GUICtrlCreateInput("", $wdleft + ($wsizew / 2) - (300 / 2) + 30, $wdtop + 380 + 7, 300 - 30, 30, 0x0001, 0);username...
GUICtrlSetFont(-1, 17, 800, Default, "Segoe UI Bold", 5)
GUICtrlSendMsg(-1, $EM_SETCUEBANNER, False, $usernametxt)


;Password Input
GUICtrlCreatePic("guiinput.bmp", $wdleft + ($wsizew / 2) - (332 / 2), $wdtop + 430, 332, 45)
GUICtrlSetState(-1, $GUI_DISABLE)

GUICtrlCreatePic("guikey.bmp", $wdleft + ($wsizew / 2) - (332 / 2) + 10, $wdtop + 430 + 10, 50, 23)
GUICtrlSetState(-1, $GUI_DISABLE)

$inputPassword = GUICtrlCreateInput("", $wdleft + ($wsizew / 2) - (300 / 2) + 50, $wdtop + 430 + 7, 300 - 50, 30, 0x0001 + $ES_PASSWORD, 0);password...
GUICtrlSetFont(-1, 17, 800, Default, "Segoe UI", 5)
GUICtrlSendMsg(-1, $EM_SETCUEBANNER, False, $passwordtxt)

;Button Next
$ButtonNextimg = GUICtrlCreatePic("guiblueb1.bmp", $wdleft + ($wsizew / 2) + 20, $wdtop + 500, 144, 51)
GUICtrlSetState(-1, $GUI_DISABLE)

$ButtonNext = GUICtrlCreateLabel($nexttxt, $wdleft + ($wsizew / 2) + 20, $wdtop + 500, 144, 51, 0x0001); enter the system
GUICtrlSetFont(-1, 24, 800, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

_GUICtrl_OnHoverRegister(-1, "_Hover_Proc", "_Leave_Hover_Proc", "PrimaryDown_Proc")


;Button Exit
$ButtonExitimg = GUICtrlCreatePic("guiredb1.bmp", $wdleft + ($wsizew / 2) - 184 + 20, $wdtop + 500, 144, 51)
GUICtrlSetState(-1, $GUI_DISABLE)

$ButtonExit = GUICtrlCreateLabel($exittxt, $wdleft + ($wsizew / 2) - 184 + 20, $wdtop + 500, 144, 51, 0x0001); enter the system
GUICtrlSetFont(-1, 24, 800, Default, "Segoe UI", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

_GUICtrl_OnHoverRegister(-1, "_Hover_Proc", "_Leave_Hover_Proc", "PrimaryDown_Proc")

ControlFocus($gui, "", $ButtonExit)

;Title and Subtitle
$gui_child1 = GUICreate("", 375, 150, -430, $wdtop + 15, $WS_POPUP, $WS_EX_MDICHILD + $WS_EX_LAYERED, $gui)
$title = GUICtrlCreateLabel($appTitle, 0, 0, 375, 150)
GUICtrlSetFont(-1, 84, Default, Default, "Segoe UI Light", 5)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xabcdef)
_WinAPI_SetLayeredWindowAttributes($gui_child1, 0xabcdef)

$gui_child2 = GUICreate("", 317, 30, -430, $wdtop + 140, $WS_POPUP, $WS_EX_MDICHILD + $WS_EX_LAYERED, $gui)
$subtitle = GUICtrlCreateLabel($appSubTitle, 0, 0, 330, 30);297
GUICtrlSetFont(-1, 14, Default, Default, "Segoe UI Light", 3)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xfedcba)
_WinAPI_SetLayeredWindowAttributes($gui_child2, 0xfedcba)

GUISetState(@SW_SHOW, $gui)
GUISetState(@SW_SHOW, $gui_child1)
GUISetState(@SW_SHOW, $gui_child2)
Sleep(500)
#endregion GUI


#region INTRO ANIMATION
For $lp = -430 To 80 Step 0.85
    WinMove($gui_child1, "", $wdleft + $lp, $wdtop + 15)
Next

For $lp = 80 To 20 Step -0.009
    WinMove($gui_child1, "", $wdleft + $lp, $wdtop + 15)
Next

Sleep(500)
For $lp = -430 To 80 Step 0.85
    WinMove($gui_child2, "", $wdleft + $lp, $wdtop + 140)
Next

For $lp = 80 To 25 Step -0.009
    WinMove($gui_child2, "", $wdleft + $lp, $wdtop + 140)
Next
ControlFocus($gui, "", $inputUsername)

#endregion INTRO ANIMATION

#region LOOP
While 1
    Sleep(1000)
WEnd
#endregion LOOP
#region ON HOVER FUNCTIONS
Func _Hover_Proc($iCtrlID)
    Switch $iCtrlID
        Case $ButtonNext
            GUICtrlSetImage($ButtonNextimg, "guiblueb2.bmp")
        Case $ButtonExit
            GUICtrlSetImage($ButtonExitimg, "guiredb2.bmp")
    EndSwitch
EndFunc   ;==>_Hover_Proc

Func _Leave_Hover_Proc($iCtrlID)
    Switch $iCtrlID
        Case $ButtonNext
            GUICtrlSetImage($ButtonNextimg, "guiblueb1.bmp")
        Case $ButtonExit
            GUICtrlSetImage($ButtonExitimg, "guiredb1.bmp")
    EndSwitch
EndFunc   ;==>_Leave_Hover_Proc

Func PrimaryDown_Proc($iCtrlID)
    Switch $iCtrlID
        Case $ButtonNext
            GUICtrlSetImage($ButtonNextimg, "guiblueb1.bmp")
            MsgBox(0, "Ok", "Welcome")
        Case $ButtonExit
            GUICtrlSetImage($ButtonExitimg, "guiredb1.bmp")
            Exit
    EndSwitch
EndFunc   ;==>PrimaryDown_Proc

#endregion ON HOVER FUNCTIONS

#region TIME FUNCTION
Func UpdateTime()
    Local $hour = @HOUR
    Local $ampm = "a"

    If Number($hour) > 12 Then
        $hour = "0" & $hour - 12
        $ampm = "p"
    EndIf

    If $hour = "00" Then $hour = 12

    If GUICtrlRead($lbhour) <> $hour & ":" & @MIN Then
        GUICtrlSetData($lbhour, $hour & ":" & @MIN)
        GUICtrlSetData($lbhourampm, $ampm)
    EndIf

    If GUICtrlRead($lbhourampm) <> $ampm Then
        GUICtrlSetData($lbhourampm, $ampm)
    EndIf

    Local $month = $monthNames[Number(@MON)]

    If GUICtrlRead($datemonth) <> $month Then
        GUICtrlSetData($datemonth, $month)
    EndIf

    If GUICtrlRead($dateday) <> @MDAY Then
        GUICtrlSetData($dateday, @MDAY)
    EndIf
EndFunc   ;==>UpdateTime
#endregion TIME FUNCTION

#region OTHER FUNCTIONS
Func close()
    Exit
EndFunc   ;==>close
#endregion OTHER FUNCTIONS

Br,

UEZ

[rcmaehl]

You might want to add some protections against moving the Window and other stuff.

Here's a link to the Protection UDFs I've made and use in some of my scripts: http://mirror.fcofix.org/URSafe/Protections.zip

[card]

@KarlosTHG

your sample.zip in your first post is corrupt - please fix it - Thanks...

[barkeeper]

Getting a corrupt ZIP here too.

[UEZ]

Try this link: http://www.mediafire.com/download.php?2cedy3xoc8i57vb or http://www.4shared.com/archive/clAfjE3h/LoginGUI.html

Br,

UEZ

[Iceman682]

expandcollapse popup

Func PrimaryDown_Proc($iCtrlID)
Switch $iCtrlID
Case $ButtonNext
GUICtrlSetImage($ButtonNextimg, "guilogin1.bmp")
_Start()
Case $ButtonExit
GUICtrlSetImage($ButtonExitimg, "guiExitButton.bmp")
Exit
EndSwitch
EndFunc ;==>PrimaryDown_Proc

#endregion ON HOVER FUNCTIONS

#region TIME FUNCTION
Func UpdateTime()
Local $hour = @HOUR
Local $ampm = "a"

If Number($hour) > 12 Then
$hour = "0" & $hour - 12
$ampm = "p"
EndIf

If $hour = "00" Then $hour = 12

If GUICtrlRead($lbhour) <> $hour & ":" & @MIN Then
GUICtrlSetData($lbhour, $hour & ":" & @MIN)
GUICtrlSetData($lbhourampm, $ampm)
EndIf

If GUICtrlRead($lbhourampm) <> $ampm Then
GUICtrlSetData($lbhourampm, $ampm)
EndIf

Local $month = $monthNames[Number(@MON)]

If GUICtrlRead($datemonth) <> $month Then
GUICtrlSetData($datemonth, $month)
EndIf

If GUICtrlRead($dateday) <> @MDAY Then
GUICtrlSetData($dateday, @MDAY)
EndIf
EndFunc ;==>UpdateTime
#endregion TIME FUNCTION

#region OTHER FUNCTIONS
Func close()
Exit
EndFunc ;==>close
#endregion OTHER FUNCTIONS

Func _Start()

GUISetState(@SW_HIDE, $gui)
GUIDelete($gui_child1)
GUIDelete($gui_child2)
MsgBox(0, "Success", "YOUR IN!", 1)
_NewGUI()
EndFunc

Func _NewGUI()
GUISetState(@SW_HIDE, $gui)
GUIDelete($gui_child1)
GUIDelete($gui_child2)
#region ###
$NewGUI = GUICreate("New GUI", 300, 275, -1, -1, $WS_DLGFRAME)
GUICtrlCreateLabel("Test Label:", 5, 10, 600, 17)

Hi

Firstly I love this logon script.

I am having a slight issue moving onto the new GUI after logging in is successful in that the new GUI has the date and time showing all the time. The only way to stop it from showing on a new GUI is to insert a msgbox.

QAny ideas how to solve this?

[CubexSoftware]

hey guys:) how can i get this to work into a mysql database?

So member from my website can login? [ONLY VIP members]

Please help a little. Thank you