#NoTrayIcon CoordMode, ToolTip, Screen Mst := {Border:0 , Margin:3 , FontSize:13} WZX := "x1400" WZY := "y800" beijingse = c1c1c1 ; 背景色 zhutiyanse = 07afe2 年月日 = 5fe207 ; 008fa9 winGet, 桌面ID, ID, ahk_class Progman Gui, XSSJ:Destroy Gui, XSSJ:+LastFound +HwndShijianHwnd +Parent%桌面ID% ; +AlwaysOnTop Gui, XSSJ:Color, %beijingse% Gui, XSSJ:font, s51 c%zhutiyanse% Bold q3, Microsoft YaHei UI Gui, XSSJ:Add, Text, vuijm, %A_Hour%∶%A_Min%∶%A_Sec% Gui, XSSJ:Add, Progress, c%zhutiyanse% Background%zhutiyanse% xm y+0 w373 h4 vMyProgress, 100 Gui, XSSJ:font, s25 c%zhutiyanse% q3 w550, Microsoft YaHei UI Gui, XSSJ:Add, Text, xm y+6 vnm, %A_YYYY%年 Gui, XSSJ:Add, Text, x+3 vyrri, %A_MM%月%A_dd%日\ Gui, XSSJ:Add, Text, x+3 vxkqi, %A_dddd% ; WinSet, TransColor, %zhutiyanse% 200 WinSet, Transparent, 150 Gui, XSSJ:-Caption WinSet, Disable SetTimer,gengxin,1000 Gosub gengxin Gosub XSSJ_A Send, #d Sleep, 200 Send, #d Return XSSJ_A: Gui, XSSJ:Show, %WZX% %WZY% NA Return gengxin: yrri=%A_MM%月%A_DD%日\ nm=%A_YYYY% xkqi=%A_dddd% uijm=%A_Hour%∶%A_Min%∶%A_Sec% FormatTime, topj, %A_Now%, hh:mm:ss GuiControl, XSSJ:Text, yrri, %yrri% GuiControl, XSSJ:Text, nm, %nm%年 GuiControl, XSSJ:Text, xkqi, %xkqi% GuiControl, XSSJ:Text, uijm, %uijm% ;Btt(topj, 1865, 0, 20, "Mst") return F1:: msgbox,4100,退出成功,你已退出时间! exitapp ; XButton1:: F2:: Reload ;重启 return F3:: WZX_2 := "1400" WZY_2 := "800" WZX_1 := "1400" WZY_1 := "800" Gui, WEIZ:Destroy Gui, WEIZ:+LastFound +Owner Gui, WEIZ:font, s18, Microsoft YaHei UI Gui, WEIZ:Add, Text, y11, X: Gui, WEIZ:Add, Edit, x+10 y8 w80 vWZX_1 gWZX_A ;, 1400 Gui, WEIZ:Add, UpDown, vWZX_2 Range0-1920 0x80, 1400 Gui, WEIZ:Add, Text, x+10 y11, Y: Gui, WEIZ:Add, Edit, x+10 y8 w80 vWZY_1 gWZY_A ;, 800 Gui, WEIZ:Add, UpDown, vWZY_2 Range0-1080 0x80, 800 Gui, WEIZ:Show return WZX_A: WZY_A: WZX_B: WZY_B: Gui, WEIZ:Submit, NoHide WZX := "x" . WZX_1 WZY := "y" . WZY_1 Gosub XSSJ_A Return ; Gui, WEIZ:Submit, NoHide ; WZX := "x" . WZX_2 ; WZY := "y" . WZY_2 ; Gosub XSSJ_A ; Return
声明:站内资源为整理优化好的代码上传分享与学习研究,如果是开源代码基本都会标明出处,方便大家扩展学习路径。请不要恶意搬运,破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点,所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益,请联系我们进行删除下架。
评论(0)