Jump to content
Sign in to follow this  
KarlosTHG

Metro Inspired Login GUI

Recommended Posts

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
Posted Image

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

Share this post


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


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites
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! :oops:

Br,

UEZ

Edited by UEZ

Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites
Melba23

KarlosTHG,

I think AlmarM is referring to this CUEBANNER code: :oops:

#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


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


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


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


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


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites
FaridAgl

Nice job, try this out:

#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

Share this post


Link to post
Share on other sites
KarlosTHG

First Post Updated!!

Share this post


Link to post
Share on other sites
UEZ

Try this.

LoginGUI.au3

#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


Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


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


My UDFs are generally for me. If they aren't updated for a while, it means I'm not using them myself. As soon as I start using them again, they'll get updated.

My Projects
Cisco FinesseGithubIRC UDFWindowEx UDF

 

Share this post


Link to post
Share on other sites
card

@KarlosTHG

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

Share this post


Link to post
Share on other sites
barkeeper

Getting a corrupt ZIP here too.

Share this post


Link to post
Share on other sites
UEZ

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

Br,

UEZ


Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites
Iceman682

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?

Share this post


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

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
Sign in to follow this  

  • Similar Content

    • Pricehacker
      By Pricehacker
      Hello again!
      I have tried searching for quite some time now but couldn´t find a single working way to change the class of your GUI that doesn´t include changing it manually after its compilation.
      First or "AutoIt v3 GUI" is a pretty boring name tbh and i would like to spice it up a bit, also, and more importantly, I would like to identify my windows by something other than its title as it will change depending on some factors and im using two different programs independently as multi threading isn't supported.
      Any help is appreciated! Thank you!
    • xtcislove
      By xtcislove
      Hello, 
      i have a Problem with  _WinAPI_SetLayeredWindowAttributes, everything is working as excepted if u are on Windows 7.

      But if u are on Windows 10 the transparent background of a control is not clickable anymore. 

      Could someone help?

      Please see example below, put cmd.jpg into the same folder as Example.au3

      Please see trigger.jpg to see which sections are not clickable in Windows 10 (the red dots, the green dots are clickable) on Windows 7 the red ones and green ones are clickable.
       
      The same problem occurs if i use 
       
       
      Example.au3


    • WilliamasKumeliukas
      By WilliamasKumeliukas
      Hello everyones reading this post,
      I'm struggling at resizing properly my radio buttons to fit long text inside without affecting others radio buttons and also adjust position of them relative to the string.
      I tried with _StringSize UDF but I guess im too tired to figure out how to use it correctly..
      I also tried: _Control_SetWidth2Text I found on this forum, it work aslong im not maximizing GUI (radio text is gone when I maximize and maximize is a must)
       
      here is the code example, I hope someone can figure out (sorry if guictrlsetpos is not included in the example, I know thats probably the way to go but I wanted to make sure there is nothing better before use it)
      Thank you
       
      Br,
      ~WilliamasKumeliukas
       
      #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <Array.au3> #include <StringConstants.au3> #include <FileConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #include <EditConstants.au3> #include <GUIListBox.au3> #include <ButtonConstants.au3> #include <ProgressConstants.au3> #include <ColorConstants.au3> #include <AutoitConstants.au3> #include <Misc.au3> #include <WinAPIReg.au3> #include <WinAPI.au3> #Region Opt's Opt("GUIResizeMode", 802) #EndRegion Opt's Global $q = "INTRO LINE" & @CRLF & @CRLF & "description of everything until user press start." Global $file = @TempDir & "\test.p" destroy() Global $msg, $score = 0, $rate, $com, $total = 0, $cfile, $cq, $i = 0, $time = 0, $min = 0, $sec = 0, $hour = 0, $qf, $ii = 0 Main() Func Main() Global $iGUIInitSize = 550 #Region GUI Opt("GUICloseOnEsc", 1) Global $gui = GUICreate("example", 1124, 550,-1 ,-1, BitOR($WS_MAXIMIZEBOX , $WS_MINIMIZEBOX)) Global $gui_size = WinGetClientSize($gui) Global $iFontSize = Int(2 * (.25 + (8 * $gui_size[0] / $iGUIInitSize))) / 2 Global $options = GUICtrlCreateMenu("&Options") Global $guide = GUICtrlCreateMenuItem("Guide", $options) Global $restart = GUICtrlCreateMenuItem("Restart", $options) Global $about = GUICtrlCreateMenuItem("About", $options) Global $exit = GUICtrlCreateMenuItem("Exit", $options) Global $extra = GUICtrlCreateMenu("Extras") Global $creator = GUICtrlCreateMenu("CQB", $extra ) Global $new = GUICtrlCreateMenuItem("custom QP", $creator) Global $load = GUICtrlCreateMenuItem("CQ", $creator ) Global $timer = GUICtrlCreateLabel("", 752, 472, 294, 30, $WS_BORDER) GUICtrlSetResizing(-1, BitOR($GUI_DOCKHCENTER, $GUI_DOCKVCENTER) ) GUICtrlSetFont(-1, $iFontSize) GUICtrlSetState($timer, $GUI_HIDE) Global $info = GUICtrlCreateLabel( $q, 200, 20, 700, 200, $SS_CENTER ) GUICtrlSetResizing(-1, BitOR($GUI_DOCKHCENTER, $GUI_DOCKVCENTER) ) $fi = GUICtrlSetFont($info, $iFontSize) Global $a = GUICtrlCreateRadio("A)", 100, 210, $WS_EX_CLIENTEDGE) $fa = GUICtrlSetFont($a, 15) GUICtrlSetResizing(-1, BitOR($GUI_DOCKHCENTER, $GUI_DOCKVCENTER) ) GUICtrlSetState($a, 16) Global $b = GUICtrlCreateRadio("B)", 100, 310 , $WS_EX_CLIENTEDGE) $fb = GUICtrlSetFont($b, 15) GUICtrlSetResizing(-1, BitOR($GUI_DOCKHCENTER, $GUI_DOCKVCENTER) ) GUICtrlSetState($b, 16) Global $c = GUICtrlCreateRadio("C)", 750, 210 , $WS_EX_CLIENTEDGE) $fc = GUICtrlSetFont($c, 15) GUICtrlSetResizing(-1, BitOR($GUI_DOCKHCENTER, $GUI_DOCKVCENTER) ) GUICtrlSetState($c, 16) Global $d = GUICtrlCreateRadio( "D) ", 750, 310, $WS_EX_CLIENTEDGE) $fd = GUICtrlSetFont($d, 15) GUICtrlSetResizing (-1, BitOR($GUI_DOCKHCENTER, $GUI_DOCKVCENTER) ) GUICtrlSetState($d, 16) Global $sign = GUICtrlCreateLabel( $file, 420, 480, -1, -1, BitOR ( $SS_CENTER, $WS_BORDER ) ) GUICtrlSetResizing ( -1, BitOR ( $GUI_DOCKHCENTER, $GUI_DOCKVCENTER ) ) GUICtrlSetFont($sign, 12) Global $yb = GUICtrlCreateRadio("True", 200, 420, 200, 50, $BS_PUSHLIKE) GUICtrlSetResizing(-1, BitOR($GUI_DOCKHCENTER, $GUI_DOCKVCENTER,$GUI_DOCKSIZE)) GUICtrlSetFont($yb, 15) GUICtrlSetState($yb, 32) Global $nb = GUICtrlCreateRadio("False", 700, 420, 200, 50, $BS_PUSHLIKE) GUICtrlSetResizing(-1, BitOR($GUI_DOCKHCENTER, $GUI_DOCKVCENTER, $GUI_DOCKSIZE)) GUICtrlSetFont($nb, 15) GUICtrlSetState($nb, 32) Global $start = GUICtrlCreateButton("Start", 20, 20, 100, 50, $SS_CENTER, $WS_EX_CLIENTEDGE) GUICtrlSetResizing(-1, BitOR($GUI_DOCKHCENTER, $GUI_DOCKVCENTER)) GUICtrlSetFont($start, 12) Global $valid = GUICtrlCreateButton("Confirm", 20, 20, 100, 50, $SS_CENTER, $WS_EX_CLIENTEDGE) GUICtrlSetResizing(-1, BitOR($GUI_DOCKHCENTER, $GUI_DOCKVCENTER)) GUICtrlSetFont($valid, 12) GUICtrlSetState($valid, 32) GUISetState(@SW_SHOW) #EndRegion GUI While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Switch MsgBox(4096 + 4, "Warning", "Are you sure to exit?") Case 6 AdlibUnRegister("timer") If Not $qf = "" Then FileClose($file) EndIf Exit Case 7 ContinueLoop EndSwitch Case $start ;AdlibRegister("timer") ;Global $qf = StringSplit(StringStripWS(FileRead($file), 6), @CRLF, 0) ;qloop($file) GUICtrlSetData($a, "A) This long string is an example as string that I want to fit in 4 radio buttons because sometimes it can be that long.") GUICtrlSetData($b, "B) This long string is an example as string that I want to fit in 4 radio buttons because sometimes it can be that long.") GUICtrlSetData($c, "C) This long string is an example as string that I want to fit in 4 radio buttons because sometimes it can be that long.") GUICtrlSetData($d, "D) This long string is an example as string that I want to fit in 4 radio buttons because sometimes it can be that long.") Case $restart MsgBox(4096, "Warning", 'Normally, your suposed to start something before restarting it.') ContinueLoop Case $new ;GUISetState(@SW_HIDE, $gui) ;_CustomNew() ContinueLoop Case $load ;_CustomLoad() Case $about ;_About() EndSwitch WEnd EndFunc ;Main() Func timer() If $time = 0 Then Global $time = TimerInit() Global $diff = TimerDiff($time) Global $sec = Int(Mod($diff / 1000, 60)) Global $min = Int(Mod($diff / 60000, 60)) Global $hour = Int($diff / 3600000) If $sec < 10 Then $sec = "0" & $sec If $min < 10 Then $min = "0" & $min If $hour < 10 Then $hour = "0" & $hour GUICtrlSetData($timer, "Temps: " & $hour & ":" & $min & ":" & $sec) EndFunc ;==>timer Func destroy() If FileExists($file) Then FileDelete($file) EndIf DirCreate(@TempDir & "\About") FileInstall("C:\test.txt", $file) EndFunc ;==>destroy  
    • xtcislove
      By xtcislove
      Hello,

      im searching like 6 hours and i didnt found the right solution.

      Im trying to build a treeview from a directory and its subfolders etc.

      This function give me right treeview, but i cant color each item seperated.

       
      #include <GuiTreeView.au3> $hGui = GUICreate("Demo1", 600, 400) $hTreeView = _GUICtrlTreeView_Create($hGui, 10, 10, 580, 380) GUISetState() _GUICtrlTreeView_BeginUpdate($hTreeView) ListFiles_ToTreeView(@ScriptDir, 0) _GUICtrlTreeView_EndUpdate($hTreeView) Do Until GUIGetMsg() = -3 Func ListFiles_ToTreeView($sSourceFolder, $hItem) Local $sFile ; Force a trailing \ If StringRight($sSourceFolder, 1) <> "\" Then $sSourceFolder &= "\" ; Start the search Local $hSearch = FileFindFirstFile($sSourceFolder & "*.*") ; If no files found then return If $hSearch = -1 Then Return ; This is where we break the recursive loop <<<<<<<<<<<<<<<<<<<<<<<<<< ; Now run through the contents of the folder While 1 ; Get next match $sFile = FileFindNextFile($hSearch) ; If no more files then close search handle and return If @error Then ExitLoop ; This is where we break the recursive loop <<<<<<<<<<<<<<<<<<<<<<<<<< ; Check if a folder If @extended Then ; If so then call the function recursively ListFiles_ToTreeView($sSourceFolder & $sFile, _GUICtrlTreeView_AddChild($hTreeView, $hItem, $sFile)) Else ; If a file than write path and name _GUICtrlTreeView_AddChild($hTreeView, $hItem, $sFile) EndIf WEnd ; Close search handle FileClose($hSearch) EndFunc ;==>ListFiles_ToTreeView
      So i am searching for the exact same function just with
      GUICtrlCreateTreeViewItem
      instead of 
      _GUICtrlTreeView_AddChild
       
      Ps: i have a folder structure where i like to color each item green if a file only exist once and red if it exist more than once.

      Could someone help?
       
      Solution:

       
       
    • Pricehacker
      By Pricehacker
      Title pretty much says it all. Im wondering what button the "primary mouse button" is, and while im here i would also like to know what the "secondary mouse button" is. I´m guessing its the left and right mouse buttons but i could not confirm this.
      Thank you!
×