簡單用記事本建立一個vbs的提示 作者: chuan 日期: 2013-10-14 01:00 閱讀: 1291 人 打印 收藏 大 中 小

chuan

簡單用記事本建立一個vbs的提示

'************************************************
' 檔案: Welcome.vbs (WSH sample in VBScript)
' 作者:  (c) G. Born
'
' 使用MsgBox來顯示每天變更的歡迎訊息
'************************************************
Option Explicit

' 定義常數與變數
Const title = "Hello,!"    ' 使用者名稱
Dim text
Dim cNotes

' 現在我們定義放置每日訊息的陣列
cNotes = Array ( _
            "嘿，今天是星期天。！", _
            "今天是星期一。。", _
            "唉呀，今天是星期二。。", _
            "別擔心，今天才星期三,。", _
            "快點啊，今天已經是星期四了,。", _
            "謝天謝地，終於到了星期五,。", _
            "星期六！這個週末何不放鬆一下呢,")

' 這裡我們定義歡迎訊息中的日期
text = WeekDayName(Weekday(Now()), False, 1) & _
        ", " & MonthName(Month(Now)) & " " & _
        Day(Now()) & ", " & _
        Year(Now())

' 現在我們附加自訂的訊息到日期的後面
text = text & vbCrLf & vbCrLf & cNotes(Weekday(Now()) - 1)

' 顯示訊息
MsgBox Text, vbOKOnly + vbInformation, title

'*** 程式結束

文字可以修改,複製到記事本貼上,副檔名建立為.vbs放到起動裏重開機,留言自動提示