Jump to content

clock in gui

realkiller

By realkiller,
in AutoIt General Help and Support

 Share

Recommended Posts

realkiller Universalist

realkiller

Posted
Posted (edited)

i wanna make a digital clock beneath the date how can i accomplisch this?

#include <GUIConstants.au3>
#include <Date.au3>
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Passwords >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$password = "password.txt"
$loginClairAV_U = FileReadLine ($password ,21)
$loginClairAV_P = FileReadLine ($password ,22)
$ClairifyU = FileReadLine ($password ,13)
$ClairifyP = FileReadLine ($password ,14)
$RollercoasterU = FileReadLine ($password ,6)
$RollercoasterP = FileReadLine ($password ,7)
$supportcenterU = FileReadLine ($password ,2)
$supportcenterP = FileReadLine ($password ,3)
$AvayaU = FileReadLine ($password ,17)
$AvayaP = FileReadLine ($password ,18)
$LotusP = FileReadLine ($password ,10)
$isisU = FileReadLine ($password ,28)
$isisP = FileReadLine ($password ,29)
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Passwords >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
GUICreate("24 Help", "833", "25", "", "",$WS_POPUPWINDOW,$WS_EX_TOPMOST) 
Opt("GUICoordMode",2)
GUISetHelp("notepad");<--- will run notepad if F1 is typed
$Button_7 = GUICtrlCreateButton ("< ISIS >",  -1, 3, 90)
$Button_2 = GUICtrlCreateButton ( "< Rollercoaster >",  0, -1)
$Button_3 = GUICtrlCreateButton ( "< Support Center >",  0, -1, 93)
$Button_4 = GUICtrlCreateButton ( "< C-Spire >",  0, -1)
GUICtrlCreateDate (@YEAR&"/"&@MON&"/"&@MDAY,  7, -1, 185)
$Button_5 = GUICtrlCreateButton ( "< Avaya >",  7, -1, 90)
$Button_6 = GUICtrlCreateButton ( "< Lotus >",  0, -1)
$Button_1 = GUICtrlCreateButton ( "< Clairify >",  0, -1)
GUISetState () 
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Clairify Begin >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Case $msg = $Button_1
run("C:\Program Files\Internet Explorer\IEXPLORE.EXE https://iapp.upc.biz/Citrix/UPCApplications/auth/login.aspx")
$x = StatusbarGetText("UPC Web Access Login")
While Not StringInStr ($x,  "Done")
Sleep (100)
$x = StatusbarGetText("UPC Web Access Login")
WEnd
Send($loginClairAV_U)
Send("{TAB}")
Send($loginClairAV_P)
Send("{TAB}")
Send("{DOWN}")
Send("{TAB 2}")
Send("{ENTER}")
sleep("1000")
$x = StatusbarGetText("UPC Web Access - Welcome")
While Not StringInStr ($x,  "Done")
Sleep (100)
$x = StatusbarGetText("UPC Web Access - Welcome")
WEnd
ControlSend("", "", "Edit1", "{DEL 61}")
Sleep("500")
ControlSend("", "", "Edit1", "https://iapp.upc.biz/Citrix/UPCApplications/site/launch.ica?NFuse_Application=Citrix.MPS.App.NLCF102.Clarify+249+CLARNL+3T+Twenty4Help&NFuse_AppFriendlyNameURLENcoded=Clarify+249+CLARNL+3T+Twenty4Help",1)
Sleep("500")
Send("{ENTER}")
WinWaitActive("Code of conduct,E-Mail usage and Internet policy.")
Send("{ENTER}")
WinWaitActive("Clarify Login")
Send($ClairifyP)
Send("{TAB 4}")
Send($ClairifyU)
Send("{ENTER}")
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Clairify Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rollercoaster Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Case $msg = $Button_2
If WinExists("Rollercoaster") Then
WinActivate("Rollercoaster")
ELse
run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://sddportal.yi.org/tools/rollercoaster/main.html")
WinWaitActive("Connect to sddportal.yi.org")
WinMove("Connect to sddportal.yi.org", "", "", "", 999999999999999999, 99999999999999999)
ControlSend("Connect to sddportal.yi.org", "", "Edit2", $RollercoasterU)
Sleep("500")
Send("{TAB}")
ControlSend("Connect to sddportal.yi.org", "", "Edit3", $RollercoasterP)
Sleep("500")
Send("{ENTER}")
EndIf
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rollercoaster Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Support Center Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Case $msg = $Button_3
If WinExists("SupportSoft Support Center Web") Then
WinActivate("SupportSoft Support Center Web")
ELse
run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://scaprd.upc.biz/sdchealtop")
WinWaitActive("Support Center login")
WinMove("Support Center login", "", "", 999999999999999999, 99999999999999999)
$x = StatusbarGetText("Support Center login")
While Not StringInStr ($x,  "Done")
Sleep (100)
$x = StatusbarGetText("Support Center login")
WEnd
Send($supportcenterU)
Sleep("500")
Send("{TAB}")
Send($supportcenterP)
Sleep("500")
Send("{ENTER}")
WinWaitActive("SupportSoft Support Center Web")
WinMove("SupportSoft Support Center Web", "", "", 1)
EndIf
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Support Center Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< C-spire Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Case $msg = $Button_4
MsgBox(0, "Klaar", "Klaar", 1)
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< C-spire Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Avaya Begin >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Case $msg = $Button_5
run("C:\Program Files\Internet Explorer\IEXPLORE.EXE https://iapp.upc.biz/Citrix/UPCApplications/auth/login.aspx")
$x = StatusbarGetText("UPC Web Access Login")
While Not StringInStr ($x,  "Done")
Sleep (100)
$x = StatusbarGetText("UPC Web Access Login")
WEnd
Send($loginClairAV_U)
Send("{TAB}")
Send($loginClairAV_P)
Send("{TAB}")
Send("{DOWN}")
Send("{TAB 2}")
Send("{ENTER}")
sleep("1000")
$x = StatusbarGetText("UPC Web Access - Welcome")
While Not StringInStr ($x,  "Done")
Sleep (100)
$x = StatusbarGetText("UPC Web Access - Welcome")
WEnd
AutoItSetOption("WinTitleMatchMode", 2)
WinActivate("Internet Explorer")
ControlSend("", "", "Edit1", "{DEL 61}")
Sleep("500")
ControlSend("", "", "Edit1", "https://iapp.upc.biz/Citrix/UPCApplications/site/launch.ica?NFuse_Application=Citrix.MPS.App.NLCF102.Avaya+613&NFuse_AppFriendlyNameURLENcoded=Avaya+613",1)
Sleep("500")
ControlSend("", "", "Edit1", "{ENTER}")
WinActive("Code of conduct,E-Mail usage and Internet policy. - \\Remote")
WinActivate("Code of conduct,E-Mail usage and Internet policy. - \\Remote")
Sleep("500")
Send("{ENTER}")
WinWaitActive("Avaya Agent Login")
Send($AvayaU)
Send("{TAB}")
Send($AvayaP)
Send("{ENTER}")
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Avaya Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Lotus Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Case $msg = $Button_6
If WinExists("Logout Screen") Then
WinActivate("Logout Screen")
WinWaitActive("Logout Screen")
Send("{ENTER}")
send($LotusP)
Sleep("500")
Send("{ENTER}")
EndIf
If ProcessExists("nlnotes.exe") Then
AutoItSetOption("WinTitleMatchMode", 2)
WinActivate("IBM Lotus Notes")
Else
AutoItSetOption("WinTitleMatchMode", 1)
run("C:\lotus\notes\notes.exe =N:\notes.ini")
WinWaitActive("Lotus Notes")
Sleep("1000")
WinActivate("Lotus Notes")
send($LotusP)
Sleep("500")
Send("{ENTER}")
Endif
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Lotus Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
Case $msg = $Button_7
If WinExists("ISIS") Then
WinActivate("ISIS")
Else
run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://isis.yi.org/")
WinWaitActive("Connect to isis.yi.org")
WinMove("Connect to isis.yi.org", "", "", "", 999999999999999999, 99999999999999999)
ControlSend("", "", "Edit2",$isisU)
ControlSend("", "", "Edit3",$isisP)
ControlClick("","", "Button2")
EndIf
EndSelect
Wend
Edited by realkiller
Remote 3.1 BetaRemote Media Player ControlUSB Security 1.2
Link to comment
Share on other sites
lod3n Universalist

lod3n

Posted
Posted 

#include <GUIConstants.au3>
#include <Date.au3>

GUICreate("24 Help", "833", "50", "", "",$WS_POPUPWINDOW,$WS_EX_TOPMOST)
Opt("GUICoordMode",2)
GUISetHelp("notepad");<--- will run notepad if F1 is typed
$Button_7 = GUICtrlCreateButton ("< ISIS >",  -1, 3, 90)
$Button_2 = GUICtrlCreateButton ( "< Rollercoaster >",  0, -1)
$Button_3 = GUICtrlCreateButton ( "< Support Center >",  0, -1, 93)
$Button_4 = GUICtrlCreateButton ( "< C-Spire >",  0, -1)
GUICtrlCreateDate (@YEAR&"/"&@MON&"/"&@MDAY,  7, -1, 185)
$Button_5 = GUICtrlCreateButton ( "< Avaya >",  7, -1, 90)
$Button_6 = GUICtrlCreateButton ( "< Lotus >",  0, -1)
$Button_1 = GUICtrlCreateButton ( "< Clairify >",  0, -1)

Opt("GUICoordMode",1)
$lblTime = GUICtrlCreateLabel("Time",400,30,200)
$lastsec = @SEC


GUISetState ()
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
    updateTime()
WEnd

Func updateTime()
    $cursec = @SEC
    if $cursec <> $lastsec Then 
        $lastsec = $cursec
        GUICtrlSetData($lblTime,_NowTime())
    EndIf
EndFunc

[font="Fixedsys"][list][*]All of my AutoIt Example Scripts[*]http://saneasylum.com[/list][/font]

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...