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

職業版主

Rank: 8 Rank: 8

UID: 4
帖子: 580
積分: 3815
威望: 0
金錢: 203
貢獻: 240
魅力: 1396
閱讀權限: 250
性別: 女
在線時間: 53 小時
註冊時間: 2005-10-4
最後登錄: 2024-4-14

尊貴勳章 Medal No.30 Medal No.37 Medal No.38 Medal No.39 愛心勳章 No.41 no.42 no.43 no.45 no.46 人緣勳章 no.48 no.49 no.50 no.51 no.52 no.53 no.54 no.55 no.56 金牌敲鐘

1^#

打印

字體大小: tT

發表於 2013-10-14 01:00 | 只看該作者

作者: chuan 日期: 2013-10-14 01:00 閱讀: 1066 人打印收藏大中小

簡單用記事本建立一個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放到起動裏重開機,留言自動提示

收藏分享評分

回復引用

訂閱 TOP

返回列表