Sign in to follow this  
Followers 0
KarlosTHG

Metro Inspired Login GUI

15 posts in this topic

#1 ·  Posted (edited)

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
1 person likes this

Share this post


Link to post
Share on other sites



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

#3 ·  Posted (edited)

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

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

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

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

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

First Post Updated!!

Share this post


Link to post
Share on other sites

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

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


Active: IRC UDF, WindowEx UDF
Discontinued: GithubBubbleSort UDF

Share this post


Link to post
Share on other sites

@KarlosTHG

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

Share this post


Link to post
Share on other sites

Getting a corrupt ZIP here too.

Share this post


Link to post
Share on other sites

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

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

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  
Followers 0

  • Similar Content

    • Jibberish
      By Jibberish
      Hi,
      I am automating the testing of a video player. I search a file for ".mp4" and want to create a GUI with radio buttons to select what video to play. The number of videos can change based on the user's library so this must be created automatically.  I have searched for how to accomplish this and there are several posts out there that help a little but I can't figure out the solution. I pulled the offending code from my main script and created the file below to make this easier to read. I am sure one of our experts here can help!
      #include <MsgBoxConstants.au3> #include <StringConstants.au3> #include <array.au3> #include <File.au3> #include <GUIConstantsEx.au3> Local $sMediaFile = "D:\MediaFiles\MediaFiles.txt" Local $iStrReturn = 0 Local $aText Local $aArrayFile Local $iMax = 6 ;Default number of Videos - 1 for the array counter Local $aVideoName[$iMax] = [0] Local $sCheckBox1 Local $iT = 0, $iVideoCount = 0, $iCount Local $ix = 0 Local $iy = 0 Local $idClose1 Const $iL = 10 ; Count from Left for GUI so all buttons line up ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; ; Read a list of video file names and create a GUI with Radio Buttons to select a single video. ; Problem: We don't know how many video names will be in the text file, so we can't hard code Case Statements & their variables ; Put the Video File Names into an Array _FileReadToArray($sMediaFile, $aArrayFile) For $a = 1 To $aArrayFile[0] ; Step through the array looking for .mp4 If StringInStr($aArrayFile[$a], ".mp4") Then $iVideoCount = $iVideoCount + 1 $aText = StringSplit($aArrayFile[$a],"\\") ; This video player reads double backslashes For $a1 = 1 to $aText[0] ; Check that the array is big enough If StringInStr($aText[$a1], ".mp4") Then ;MsgBox(0,"","Video is " & $aText[$a1]) If UBound($aVideoName) = $iVideoCount Then ; Resize the array when $iCount is equal to the element count in the array to prevent subscript error ReDim $aVideoName[$aVideoName[0] + $iMax] EndIf $aVideoName[$iVideoCount] = $aText[$a1]; add data to new index element $aVideoName[0] = $a1 ; update the index count for future reference ; The idea is to create a GUI width to accommodate long video file names $it = StringLen($aVideoName[$iVideoCount]) If $iT > $ix Then $ix = $iT EndIf EndIf Next EndIf Next ; Move backwards through the array deleting blank rows For $iCount = UBound($aVideoName) - 1 To 0 Step -1 If $aVideoName[$iCount] = "" Then _ArrayDelete($aVideoName, $iCount) EndIf Next ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; ; Create the GUI - Names and Radio Button counts will vary - How do I do this? ; ;_ArrayDisplay($aVideoName) ;Local $aVarName[$aVideoName[0]] Local $iRows = UBound($aVideoName, $UBOUND_ROWS) $iRows = $iRows -1 $aVideoName[0] = $iRows ; Prep the GUI to display the FileNames with Radio Buttons - Can only select one at a time. $a = 0 $ix = $ix + 200 $iy = ($aVideoName[0] * 30) + 60 $hGUI = GUICreate("Videos", $ix, $iy) ;$iT = $iT+30 ; Create the variable names for the Case statement - Video count may change so Video Names displayed and GUICtrlCreateRadio count may change. ;~ For $a = 1 to $aVarName[0] ;~ If UBound($aVarName) = $aVarName Then ;~ ; Resize the array when $iCount is equal to the element count in the array to prevent subscript error ;~ ReDim $aVarName[$aVarName[0] + $iMax] ;~ EndIf ;~ Assign("$bVideoName" & $a, $a) ;~ Local $aVarName[$a] = Eval($bVideoName[$a]) ;~ ; $aVarName[$a] = GUICtrlCreateRadio($aVarName[$a], $iL, $iT) ;~ Next $iCount = 1 ;MsgBox(0,"","VideoName[0] is "&$aVideoName[0]) ;_ArrayDisplay($aVideoName) Local $bVideoName1 If $iCount < $aVideoName[0] Then $bVideoName1 = GUICtrlCreateRadio($aVideoName[$iCount], $iL, $iT) GUICtrlSetState($bVideoName1, $GUI_CHECKED) $iT = $iT+30 EndIf $iCount = $iCount + 1 If $iCount <= ($aVideoName[0]) Then Local $bVideoName2 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT) $iT = $iT+30 EndIf $iCount = $iCount + 1 If $iCount <= ($aVideoName[0]) Then Local $bVideoName3 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT) $iT = $iT+30 EndIf $iCount = $iCount + 1 If $iCount <= ($aVideoName[0]) Then Local $bVideoName4 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT) $iT = $iT+30 EndIf $iCount = $iCount + 1 If $iCount <= ($aVideoName[0] -1) Then Local $bVideoName5 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT) $iT = $iT+30 EndIf $iCount = $iCount + 1 If $iCount <= ($aVideoName[0] -1) Then Local $bVideoName6 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT) $iT = $iT+30 EndIf $iCount = $iCount + 1 If $iCount <= ($aVideoName[0] -1) Then Local $bVideoName7 = GUICtrlCreateRadio($aVideoName[$iCount],$iL,$iT) $iT = $iT+30 EndIf $iT = $iT + 30 $idClose1 = GUICtrlCreateButton("Go!", $iL, $iT) GUISetState(@SW_SHOW) ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ; ; Switch Statement ; ;Local $nMsg = "" While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $bVideoName1 Case $bVideoName2 Case $bVideoName3 Case $bVideoName4 Case $bVideoName5 ;Case $bVideoName6 <- Fails because there are only 5 videos - Need variable $bVideoNames ;Case $bVideoName7 <- Fails because there are only 5 videos Case $idClose1 $bVideoName1 = GUICtrlRead($bVideoName1) $bVideoName2 = GUICtrlRead($bVideoName2) $bVideoName3 = GUICtrlRead($bVideoName3) $bVideoName4 = GUICtrlRead($bVideoName4) $bVideoName5 = GUICtrlRead($bVideoName5) ;$bVideoName6 = GUICtrlRead($bVideoName6) ;$bVideoName7 = GUICtrlRead($bVideoName7) ExitLoop EndSwitch WEnd GUIDelete($nMsg) MsgBox(0,"","Case " & $nMsg & " was selected.") ; Always returns 8. ??? This is the "MediaFiles.txt" file I am reading:
      D:\\MediaFiles\\BigBuckBunny.mp4 D:\\MediaFiles\\BigBuckBunny60fps.mp4 D:\\MediaFiles\\Sintel.mp4 D:\\MediaFiles\\sintel-2048-surround.mp4 D:\\MediaFiles\\TearsOfSteel.mp4 D:\\MediaFiles\\tearsofsteel_4K.mp4 I'm sure I have several mistakes (or poor coding methods) in my AutoIt file.
    • Skeletor
      By Skeletor
      Hi All,
      I know many newbies search for this feature.
      I decided to share this piece of code with everyone.
      Basically its a "splash screen" that has a transparent image.
      In a nutshell - Gui with a transparent gif.
      Enjoy...
      Download attachment....
       
      Splash Screen GUI.zip
    • Skeletor
      By Skeletor
      Hi Developers,
       
      While trying to find a way to actually style/skin the GUICtrlCreateTabItem, I read the help file and stated:
      My question to you guys is will this be updated? or am I hoping for something that will never come to pass?
      I've seen scripts between 2007 to 2009 allowing the tabs to be modified
      Reason for my question is I'm trying to make my GUI Tabs look more modern.
      Thanks in advance for reading my post.
       
    • Jibberish
      By Jibberish
      I am trying to get the results of a radio button selection. I have tried implementing sample scripts but to no avail.
      Can someone tell / show me what I am doing wrong?
      #include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> Local $bSelect1 Local $bSelect2 Local $bSelect3 SelectButton() ;The results of SelectButton is not being returned MsgBox(0,"","Select1 is "& $bSelect1 & ". Select2 is "& $bSelect2 & ". Select3 is "& $bSelect3 & ".") Func SelectButton() Local $hGUI = GUICreate("SGX4CP Tests", 300, 300) GUISetState() Local $bSelect1 = GUICtrlCreateRadio("Select 1", 10, 160) Local $bSelect2 = GUICtrlCreateRadio("Select 2", 10, 190) Local $bSelect3 = GUICtrlCreateRadio("Select 3", 10, 220) ; Set TestSelectForever as the default radio button GUICtrlSetState($bSelect1, $GUI_CHECKED) Local $idClose = GUICtrlCreateButton("Start", 120,250) Local $idMsg While 1 $idMsg = GUIGetMsg() Select Case $idMsg = $GUI_EVENT_CLOSE Or $idMsg = $idClose ExitLoop Case $idMsg = $bSelect1 And BitAND(GUICtrlRead($bSelect1), $GUI_CHECKED) = $GUI_CHECKED MsgBox(0,"","Select1") Case $idMsg = $bSelect2 And BitAND(GUICtrlRead($bSelect2), $GUI_CHECKED) = $GUI_CHECKED MsgBox(0,"","Select2") Case $idMsg = $bSelect3 And BitAND(GUICtrlRead($bSelect3), $GUI_CHECKED) = $GUI_CHECKED MsgBox(0,"","Select3") ; GUICtrlRead($hGUI) EndSelect WEnd MsgBox(0,"","Select1 is "& $bSelect1 & ". Select2 is "& $bSelect2 & ". Select3 is "& $bSelect3 & ".") ; Why is this returning numbers? EndFunc  
    • VIP
      By VIP
      Please help create a GUI! Any ideas or guides are welcome!

      Create drag-and-drop GUIs:
      - GUI Min or Explan Main GUI Menu with top button! (Also the button to move drag and drop move)
      - Main GUI Menu: Stay in the center of the screen AND Always on the left or right side of the screen!
      - When you click on one of the menus, you will create or create a GUI: always on the left or right side of the main menu!


       
      SRC:
      #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ColorConstantS.au3> Opt("MustDeclareVars", 1) ;0=no, 1=require pre-declaration Opt("TrayMenuMode", 1) ;0=append, 1=no default menu, 2=no automatic check, 4=menuitemID not return Opt("TrayAutoPause", 0) ;0=no pause, 1=Pause Opt("GUIOnEventMode", 1) ;0=disabled, 1=OnEvent mode enabled Opt("GUIResizeMode", 0) ;0=no resizing, <1024 special resizing #Region ### START Koda GUI section ### Form= Global $Form1 = GUICreate("MAIN_MENU", 117, 481, @DesktopWidth - 117, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit") GUISetBkColor($COLOR_BLUE) ; will change background color Global $Label1 = GUICtrlCreateLabel("<-!->", 0, 0, 116, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) Global $Button0 = GUICtrlCreateButton("Button0", 1, 32, 115, 41, BitOR($BS_CENTER, $BS_VCENTER, $BS_FLAT)) GUICtrlSetOnEvent(-1, "_Button0") Global $Button1 = GUICtrlCreateButton("Button1", 1, 73, 115, 41, BitOR($BS_CENTER, $BS_VCENTER, $BS_FLAT)) GUICtrlSetOnEvent(-1, "_Button1") Global $Button2 = GUICtrlCreateButton("Button2", 1, 119, 115, 41, BitOR($BS_CENTER, $BS_VCENTER, $BS_FLAT)) GUICtrlSetOnEvent(-1, "_Button2") Global $Button3 = GUICtrlCreateButton("Button3", 1, 167, 115, 41, BitOR($BS_CENTER, $BS_VCENTER, $BS_FLAT)) GUICtrlSetOnEvent(-1, "_Button3") Global $Button4 = GUICtrlCreateButton("Button4", 1, 216, 115, 41, BitOR($BS_CENTER, $BS_VCENTER, $BS_FLAT)) GUICtrlSetOnEvent(-1, "_Button4") Global $Button5 = GUICtrlCreateButton("Button5", 1, 259, 115, 41, BitOR($BS_CENTER, $BS_VCENTER, $BS_FLAT)) GUICtrlSetOnEvent(-1, "_Button5") Global $Button6 = GUICtrlCreateButton("Button6", 1, 305, 115, 41, BitOR($BS_CENTER, $BS_VCENTER, $BS_FLAT)) GUICtrlSetOnEvent(-1, "_Button6") Global $Button7 = GUICtrlCreateButton("Button7", 1, 347, 115, 41, BitOR($BS_CENTER, $BS_VCENTER, $BS_FLAT)) GUICtrlSetOnEvent(-1, "_Button7") Global $Button8 = GUICtrlCreateButton("Button8", 1, 396, 115, 41, BitOR($BS_CENTER, $BS_VCENTER, $BS_FLAT)) GUICtrlSetOnEvent(-1, "_Button8") Global $Button9 = GUICtrlCreateButton("Exit", 1, 437, 115, 41, BitOR($BS_CENTER, $BS_VCENTER, $BS_FLAT)) GUICtrlSetOnEvent(-1, "_Button9") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 Sleep(50) WEnd Func _Exit() Exit EndFunc ;==>_Exit Func _CloseGUI() GUIDelete() EndFunc ;==>_CloseGUI Func _Button0() #Region ### START SUB GUI section ### Form= Global $Form2 = GUICreate("SUB_GUI_0", 310, 712, @DesktopWidth - 310 - 150, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) GUISetBkColor($COLOR_RED) ; will change background color Global $Label1 = GUICtrlCreateLabel("SUB GUI MENU 0", 0, 0, 234, 508, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") Global $Button1 = GUICtrlCreateButton("Exit", 240, 456, 67, 49, BitOR($BS_CENTER, $BS_VCENTER)) GUICtrlSetOnEvent(-1, "_CloseGUI") GUISetState(@SW_SHOW) #EndRegion ### START SUB GUI section ### Form= EndFunc ;==>_Button0 Func _Button1() #Region ### START SUB GUI section ### Form= Global $Form2 = GUICreate("SUB_GUI_1", 310, 712, @DesktopWidth - 310 - 150, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) GUISetBkColor($COLOR_RED) ; will change background color Global $Label1 = GUICtrlCreateLabel("SUB GUI MENU 1", 0, 0, 234, 508, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") Global $Button1 = GUICtrlCreateButton("Exit", 240, 456, 67, 49, BitOR($BS_CENTER, $BS_VCENTER)) GUICtrlSetOnEvent(-1, "_CloseGUI") GUISetState(@SW_SHOW) #EndRegion ### START SUB GUI section ### Form= EndFunc ;==>_Button1 Func _Button2() #Region ### START SUB GUI section ### Form= Global $Form2 = GUICreate("SUB_GUI_2", 310, 712, @DesktopWidth - 310 - 150, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) GUISetBkColor($COLOR_RED) ; will change background color Global $Label1 = GUICtrlCreateLabel("SUB GUI MENU 2", 0, 0, 234, 508, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") Global $Button1 = GUICtrlCreateButton("Exit", 240, 456, 67, 49, BitOR($BS_CENTER, $BS_VCENTER)) GUICtrlSetOnEvent(-1, "_CloseGUI") GUISetState(@SW_SHOW) #EndRegion ### START SUB GUI section ### Form= EndFunc ;==>_Button2 Func _Button3() #Region ### START SUB GUI section ### Form= Global $Form2 = GUICreate("SUB_GUI_3", 310, 712, @DesktopWidth - 310 - 150, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) GUISetBkColor($COLOR_RED) ; will change background color Global $Label1 = GUICtrlCreateLabel("SUB GUI MENU 3", 0, 0, 234, 508, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") Global $Button1 = GUICtrlCreateButton("Exit", 240, 456, 67, 49, BitOR($BS_CENTER, $BS_VCENTER)) GUICtrlSetOnEvent(-1, "_CloseGUI") GUISetState(@SW_SHOW) #EndRegion ### START SUB GUI section ### Form= EndFunc ;==>_Button3 Func _Button4() #Region ### START SUB GUI section ### Form= Global $Form2 = GUICreate("SUB_GUI_4", 310, 712, @DesktopWidth - 310 - 150, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) GUISetBkColor($COLOR_RED) ; will change background color Global $Label1 = GUICtrlCreateLabel("SUB GUI MENU 4", 0, 0, 234, 508, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") Global $Button1 = GUICtrlCreateButton("Exit", 240, 456, 67, 49, BitOR($BS_CENTER, $BS_VCENTER)) GUICtrlSetOnEvent(-1, "_CloseGUI") GUISetState(@SW_SHOW) #EndRegion ### START SUB GUI section ### Form= EndFunc ;==>_Button4 Func _Button5() #Region ### START SUB GUI section ### Form= Global $Form2 = GUICreate("SUB_GUI_5", 310, 712, @DesktopWidth - 310 - 150, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) GUISetBkColor($COLOR_RED) ; will change background color Global $Label1 = GUICtrlCreateLabel("SUB GUI MENU 5", 0, 0, 234, 508, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") Global $Button1 = GUICtrlCreateButton("Exit", 240, 456, 67, 49, BitOR($BS_CENTER, $BS_VCENTER)) GUICtrlSetOnEvent(-1, "_CloseGUI") GUISetState(@SW_SHOW) #EndRegion ### START SUB GUI section ### Form= EndFunc ;==>_Button5 Func _Button6() #Region ### START SUB GUI section ### Form= Global $Form2 = GUICreate("SUB_GUI_6", 310, 712, @DesktopWidth - 310 - 150, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) GUISetBkColor($COLOR_RED) ; will change background color Global $Label1 = GUICtrlCreateLabel("SUB GUI MENU 6", 0, 0, 234, 508, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") Global $Button1 = GUICtrlCreateButton("Exit", 240, 456, 67, 49, BitOR($BS_CENTER, $BS_VCENTER)) GUICtrlSetOnEvent(-1, "_CloseGUI") GUISetState(@SW_SHOW) #EndRegion ### START SUB GUI section ### Form= EndFunc ;==>_Button6 Func _Button7() #Region ### START SUB GUI section ### Form= Global $Form2 = GUICreate("SUB_GUI_7", 310, 712, @DesktopWidth - 310 - 150, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) GUISetBkColor($COLOR_RED) ; will change background color Global $Label1 = GUICtrlCreateLabel("SUB GUI MENU 7", 0, 0, 234, 508, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") Global $Button1 = GUICtrlCreateButton("Exit", 240, 456, 67, 49, BitOR($BS_CENTER, $BS_VCENTER)) GUICtrlSetOnEvent(-1, "_CloseGUI") GUISetState(@SW_SHOW) #EndRegion ### START SUB GUI section ### Form= EndFunc ;==>_Button7 Func _Button8() #Region ### START SUB GUI section ### Form= Global $Form2 = GUICreate("SUB_GUI_8", 310, 712, @DesktopWidth - 310 - 150, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) GUISetBkColor($COLOR_RED) ; will change background color Global $Label1 = GUICtrlCreateLabel("SUB GUI MENU 8", 0, 0, 234, 508, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") Global $Button1 = GUICtrlCreateButton("Exit", 240, 456, 67, 49, BitOR($BS_CENTER, $BS_VCENTER)) GUICtrlSetOnEvent(-1, "_CloseGUI") GUISetState(@SW_SHOW) #EndRegion ### START SUB GUI section ### Form= EndFunc ;==>_Button8 Func _Button9() _Exit() ;~ #Region ### START SUB GUI section ### Form= ;~ Global $Form2 = GUICreate("SUB_GUI_9", 310, 712, @DesktopWidth - 310 - 150, -1, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) ; GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit") ;~ Global $Label1 = GUICtrlCreateLabel("SUB GUI MENU 9", 0, 0, 234, 508, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_RIGHTJUST), $GUI_WS_EX_PARENTDRAG) ;~ GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") ;~ Global $Button1 = GUICtrlCreateButton("Exit", 240, 456, 67, 49, BitOR($BS_CENTER, $BS_VCENTER)) ;~ GUICtrlSetOnEvent(-1, "_CloseGUI") ;~ GUISetState(@SW_SHOW) ;~ #EndRegion ### START SUB GUI section ### Form= EndFunc ;==>_Button9