プロが教える店舗&オフィスのセキュリティ対策術

vbscriptで時計を作りたいのですが、
msgboxで1秒ごとに更新させて行くにはどうすればいいですか?

A 回答 (1件)

vbs のスクリプト ファイルでってことでしたら無理じゃないですかね。


msgbox は何らかのメッセージを掲載したダイアログをユーザーに表示し、ユーザーからのボタン クリックによるレスポンスがあるまで待機する機能ですので、メッセージ ボックスが表示されたままの状態で中身を書き換えていくことはできないでしょう。

HTA ではダメなのでしょうか?
以下のコード <html> から </html> をメモ帳に転記して保存し、拡張子を "txt" から "hta" に変更してください。
ダブルクリックで実行されます。

<html>
<head>
<title>HtaClock</title>
<HTA:APPLICATION
APPLICATIONNAME="HtaClock"
ID="HtaClock"
BORDER="dialog"
INNERBORDER="no"
MAXIMIZEBUTTON="no"
SCROLL="no"
VERSION="1.0"/>
</head>

<script language="VBScript">

Dim tOut
tOut = 0

Sub DisplayClock()
document.all.disp.innerText = FormatDateTime(Now, 3)
End Sub

Sub Window_OnLoad
Dim width,height
width=150
height=130
Self.ResizeTo width,height
tOut = setInterval("DisplayClock()", 100)
End Sub

Sub OnClickButtonOK()
window.Close
End Sub

</script>

<body bgcolor="buttonface">
<table border=0 width=100% height=100%>
<tr>
<td height=100% width=100% valign="top" align="center">
<span id="disp"></span>
</td>
</tr>
<tr>
<td align="center">
<input type="button" style="width: 80px" name="OK" id="OK" value="OK" onclick="OnClickButtonOK">
</td>
</tr>
</table>
</body>
</html>
    • good
    • 0
この回答へのお礼

すごい!完璧です
htmlなのにソフトウェアみたいな動作してくれるんですね
htaについて調べつつ書いていただいたソースをベースに調整してみたいと思います。
ありがとうございました

お礼日時:2015/11/17 21:12

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!