Question

有人能告诉我如何使用document.write从子程序输出日期和时间，并且从应用程序执行时起每分钟刷新一次吗？这是我到目前为止的代码。

Sub Window_OnLoad
Daterefresher   
iTimerID = window.setInterval("DateRefresher", 100)
End Sub



Sub ExitProgram
    window.close()
End Sub
Sub DateRefresher()
DateInfo = DateInfo & Now & VbCrLf
DateInfo = DateInfo & Date & VbCrLf
DateInfo = DateInfo & Time & vbCrLf
End Sub

之后，id喜欢在div中调用它并让它每分钟更新一次。

我很抱歉，我是VBS的新手，也不是HTML的专家。请原谅我在这里的可怜尝试。

感谢。

Answer 1

试试这段代码：

<html>
<head>
<title>Auto Refresh</title>
<HTA:APPLICATION 
ID="objAutoRefresh"
APPLICATIONNAME="Auto Refresh"
SCROLL="auto"
SINGLEINSTANCE="yes"
>
</head>
<SCRIPT LANGUAGE="VBScript">
Sub Window_OnLoad
    Call Daterefresher()
'1000ms = 1s ==> 1Min = 60*1000 ms = 60000ms
    iTimerID = window.setInterval("DateRefresher",60000) '60000=60s
End Sub
'*******************************************
Sub Daterefresher()
    strHTML = ""
    DateInfo = DateInfo & Date & "<BR>"
    DateInfo = DateInfo & Time & "<BR>"
    DateInfo = DateInfo & Now & "<BR>"
    strHTML = strHTML & DateInfo 
    MyDataInfo.InnerHTML = strHTML
End Sub
'*******************************************
</SCRIPT>
<body><div id = "MyDataInfo"></div>
</body>
</html>

刷新HTA应用程序中的日期子例程

1 个答案: