当前位置:DOS资源站资料中心VBS脚本 → vbs代码写的时钟

vbs代码写的时钟

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2008-4-5 0:05:45

Dim WkdayName, objWSH, ShowDT, Title
Set objWSH=CreateObject("WScript.Shell")
WkdayName=Array("星期日","星期一","星期二","星期三","星期四","星期五","星期六")
ShowDT=Time & Space(4) & vbCrLf & vbCrLf & WkdayName(Weekday(Date)-1)
Title=" " & Date
objWSH.PopUp ShowDT,7,Title,64
WScript.Quit