Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
- ; #Warn ; Enable warnings to assist with detecting common errors.
- SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
- SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
- ;display the date and time, useful for print screen
- #singleinstance force
- timerm := "00"
- timers := "00"
- Gui, +AlwaysOnTop +ToolWindow -SysMenu -Caption
- Gui, Color, 000000
- Gui, Font, cffa500 s45 bold, gruppo ;red
- ;Gui, Font, c000000 s7 , verdana ;black
- ;Gui, Font, cFFFFFF s7 , verdana ;white
- ;Gui, Add, Text, vD y0 BackgroundTrans, %A_YYYY%-%A_MM%-%A_DD% %a_hour%:%a_min%:%a_sec%
- Gui, Add, Text, vD y0 BackgroundTrans, %a_hour%:%a_min%:%a_sec%
- Gui, Add, Text, y110 BackgroundTrans vTText gstopwatchgo, %timerm%:%timers%
- Gui, font,bold
- Gui, Show, NoActivate x750 y3,uptime ; screen position here
- WinSet, TransColor, 000000 255,uptime
- SetTimer, RefreshD, 1000
- ;return
- OnMessage(0x201, "WM_LBUTTONDOWN")
- WM_LBUTTONDOWN()
- {
- PostMessage, 0xA1, 2,,, uptime
- }
- RefreshD:
- GuiControl, , D, %a_hour%:%a_min%:%a_sec%
- return
- Settimer, Stopwatch, 1000
- Return
- Stopwatch:
- timers += 1
- if(timers > 59)
- {
- timerm += 1
- timers := "0"
- GuiControl, , TText , %timerm%:%timers%
- }
- if(timers < 10)
- {
- GuiControl, , TText , %timerm%:0%timers%
- }
- else
- {
- GuiControl, , TText , %timerm%:%timers%
- }
- return
- stopwatchgo:
- Settimer, Stopwatch, 1000
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement