<HTML>
<HEAD>
<TITLE>智能倒计时器</TITLE>
<HTA:APPLICATION
ID="objHTA"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal">
<SCRIPT language="VBScript">
Sub SetTopMost()
On Error Resume Next
Dim objShell
Set objShell = CreateObject("WScript.Shell")
hwnd = window.external.HWND ' 关键修正点
If hwnd = 0 Then
MsgBox "无法获取窗口句柄", 16, "错误"
Exit Sub
End If
Const SWP_NOMOVE = &H2, SWP_NOSIZE = &H1
objShell.Run "mshta vbscript:Execute(""CreateObject('Shell.Application').WindowSwitcher().SetWindowPos "" & " & hwnd & ", -1, 0, 0, 0, 0, " & (SWP_NOMOVE Or SWP_NOSIZE) & ")", 0, True
End Sub
' 调用示例：点击按钮触发
置顶
Sub btnSetTop_Click()
SetTopMost
End Sub
Dim targetTime, isRunning
Function ParseTime(input)
If IsNumeric(input) Then
ParseTime = DateAdd("s", CLng(input)*60, Now()) ' 使用CLng增强数值转换
Else
MsgBox "请输入有效数字", 48, "错误"
ParseTime = Null
End If
End Function
Sub UpdateDisplay()
Dim elapsed
elapsed = DateDiff("s", Now(), targetTime)
If isRunning then
If elapsed < 0 Then
display.innerHTML = FormatTime(Abs(elapsed)) & "（超时）"
display.style.
color = "
red"
Else
display.innerHTML = FormatTime(elapsed)
display.style.
color = "green"
End If
End If
If isRunning Then window.setTimeout "UpdateDisplay", 200
End Sub
Function FormatTime(seconds)
Dim h, m, s
h = seconds \ 3600
m = (seconds Mod 3600) \ 60
s = seconds Mod 60
FormatTime = Right("0" & h,2) & ":" & Right("0" & m,2) & ":" & Right("0" & s,2)
End Function
Sub StartTimer()
If Not isRunning Then
targetTime = ParseTime(setTime.value) ' 移除Set关键字
If Not IsNull(targetTime) Then
isRunning = True
UpdateDisplay
End If
End If
End Sub
Sub StopTimer()
isRunning = False
display.innerHTML = "00:00:00"
display.style.
color = "black"
End Sub
</SCRIPT>
</HEAD>
<style>
#display {
font-size: 20px;
margin: 5px;
padding: 5px;
border: 2px solid #ccc;
}
</style>
<BODY>
<button onclick="btnSetTop_Click">窗口
置顶</button>
<input type="text" id="setTime" size="4"> 分钟
<button onclick="StartTimer">启动</button>
<button onclick="StopTimer">停止</button>
<div id="display" style="font-family:Consolas"></div>
</BODY>
</HTML>无法找到
置顶窗口句柄
本文详细介绍了Maven的安装配置过程，并演示了如何使用Eclipse插件m2eclipse进行项目管理。通过具体实例，读者将学会利用Maven创建项目、生成项目骨架，以及在Eclipse中操作Maven项目。
扫一扫
2501
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
