[办公]屏幕任意位置显示当前时间

/*
说明：
屏幕任意位置显示当前时间；
F6---重新定义显示位置；
F7--显示；
F8--隐藏
-------------------------------------------------------------------
*/
F6:: ;获取坐标写入
FileDelete,C:\zb.ini
MouseGetPos, Ox, Oy, Owin, Octr_class ;窗口x/y坐标,窗口Hwnd,控件类名;可用于探测鼠标无法点击(一点击就消失的窗口如小狼毫输入法窗口)的类名,或者hwnd;而这个却是spy软件无法做到的。
iniWrite, %Oy%, C:\zb.ini,zuobiao,%Ox%
return

F7::
SetTimer,time,500
return
F8::
SetTimer,time,off
return

time:
IniRead,avd,c:\zb.ini,zuobiao
Loop,parse,avd,`r`n
strA:=A_LoopField
x:=strsplit(strA,"=")[1]=""?A_ScreenHeight - 40:strsplit(strA,"=")[1]-20 ;减是往左,加是往右;
y:=strsplit(strA,"=")[2]=""?A_ScreenWidth/4:strsplit(strA,"=")[2]-20 ;减是往上,加是往下
Gui,Destroy
Gui,+AlwaysOnTop +Disabled -Caption -SysMenu +Owner +LastFound
WinGet,hwnd,ID
Gui,Gtime: font, s14 cE2F52B w600, Verdana ;FF0000 BGR,RGB-颜色;s18
Gui,Gtime: Color, FF0001
WinSet, TransColor, FF0001
A_Now2:=A_Now
A_Now2+=分,M
A_Now2+=秒,S
StringMid,时,A_now2,9,2
StringMid,分,A_now2,11,2
StringRight,秒,A_now2,2
Atime=%时%:%分%:%秒%

Gui,Gtime:Add,Text,BackgroundTrans,%Atime%
Gui Gtime: Show, NoActivate X%x% Y%y% NA, Title of Window
Sleep,1000
Gui Gtime:Destroy
return

亲爱的朋友们，如果你认为本站不错请打赏，我们非常感谢你的支持！

[su_button url=”http://www.autoahk.com/buyamoney” style=”3d” color=”#ffe41c” size=”20″ radius=”round”]赏[/su_button]