回复 14# CrLf
多谢。解决了。。
时间屏保.hta- <script language=vbscript>
- For Each Proc In GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_Process Where Name = 'mshta.exe'")
- if instr(Proc.commandline,location.pathname) then
- if proc.Priority>9 then '检查进程优先级是否为设置值10，是则为已运行的原进程
- if msgbox("程序已运行， 重新运行请按确认！", VbOK+vbInformation)<>1 then window.close() else Proc.Terminate
- else proc.SetPriority(32768)'64低 16384低于标准 32标准 32768高于标准 128高 256高（实时？）
- end if
- end if
- Next
- </script>
-
- <script language=vbscript>
- RecTimer=Window.setInterval("PausedSection(0)",500) // window.clearInterval(RecTimer)
-
- function PausedSection(rush)
- ON Error resume Next
- document.getElementById("curtime").innertext=Hour(Now)&":"&right("0"&Minute(Now),2)
- document.getElementById("cursec").innertext=right("0"&Second(Now),2)
- document.getElementById("curdate").innertext=Month(Now)&"-"&day(Now)
- document.getElementById("curweek").innertext="周"& mid("日一二三四五六",Weekday(Now),1)
- End function
- '''vertical-align:middle;line-height: 80px;
- </script>
- <script language="JavaScript" type="text/javascript">
- function changeFontSize() {
- var w = document.body.clientWidth
- var h = document.body.clientHeight
- var size = w/3;
- if (w > 2000) {
- size = w/3;
- } else {
- size = w/3;
- }
- document.getElementById("curtime").style.fontSize = ""+size+"px";
- var size2 = w/9;
- document.getElementById("cursec").style.fontSize = "" + size2 + "px";
- document.getElementById("curdate").style.fontSize = "" + size2 + "px";
- document.getElementById("curweek").style.fontSize = "" + size2 + "px";
- }
- setInterval( changeFontSize,100);
- </script>
-
- <body bgcolor=#000000 bordercolor=#000000 >
- <table style="width:100%; height:100%; text-align:center">
- <tr>
- <td>
- <strong><a id=curtime style="font-size:400px;color:#ffffff;font-family:黑体" /></strong>
- <strong><a id=cursec style="font-size:50px;color:#ffffff;margin-left: 8px;"/>
- <p></strong>
- <strong><a id=curdate style="font-size:50px;color:#ffffff;font-family:黑体;margin-left: 50px;" /></strong>
- <strong><a id=curweek style="font-size:50px;color:#ffffff;font-family:黑体;margin-left: 50px;" /></strong>
- </td>
- </tr>
- </table>
-
-
-
- <body scroll=no bgcolor=#000000 bordercolor=#000000 onclick=window.close() onkeyup=window.close()>
-
- <HTA:APPLICATION ID="screen"
- APPLICATIONNAME="myApp1"
- contextMenu ="no"
- BORDER="none"
- innerBorder="no"
- CAPTION="no"
- maximizebutton="yes"
- minimizebutton="yes"
- SHOWINTASKBAR="yes"
- SINGLEINSTANCE="yes"
- SYSMENU="no"
- VERSION="1.0"
- WINDOWSTATE="maximize"
- ICON="taskmgr.exe"
- />
| 
发表于 2016-3-17 06:41
| 
发表于 2016-3-17 18:50
| 