VBScriptで現在日時とコメント表示

スポンサーリンク

現在日時を10秒表示させ自動的に消すソースコードです。段落にてコメントも挿入しています。色々アレンジしてみてください。

Option Explicit 

'変数を宣言
Dim objWShell
Dim jikoku 

'WScript.Shellオブジェクトをまず作る
Set objWShell = Createobject("WScript.Shell")
'jikokuの中身を作成.vbCrLfは段落
jikoku = "今日の日付:" & Date & vbCrLf & "現在時刻:" & Time & vbCrLf & "現在の日時を10秒表示してます!" & vbCrLf &"(*- -)(*_ _)ペコリ"

'下記でメッセージ表示する
objWShell.Popup (jikoku)_
, 10 _
,"『現在日時表示』"_
,vbOkOnly + vbInformation

Set objWShell = Nothing