vbs脚本019-03-12

vbs对话框
开机自启动文件夹位置：
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp
直接甩到里面去

'Player.sleep 3000s
set objTTS  = createobject("sapi.spvoice")
objTTS.speak "亲爱的刘守熙同学，真开心从镜面2K分辨率屏幕上方的摄像头见到你，今天你又变帅了，"
Set Player = CreateObject("wmplayer.ocx")
Player.url="D:\MakeYouFeelMyLove\kanong.mp3"
objTTS.speak"这是你的课程表。" 

msgbox "              星期一   星期二 星期三 星期四 星期五"&Chr(13)&"            数据库（单）软件工程        Maya           OS"&Chr(13)&"             105D              110D           105D         逸夫603"&Chr(13)&"上午    JAVA（双） "&Chr(13)&"            105D                                                  "&Chr(13)&"                                                       数据库       unity    "&Chr(13)&"                                                        105          逸夫503 "&Chr(13)&"午休"&Chr(13)&"下午                              JAVA      python       摄影"&Chr(13)&"                                      106             213           215"&Chr(13)&"              场景"&Chr(13)&"                                                           213",vbInformation,"正在播放卡农..."


'Dim objws
'Set objws=WScript.CreateObject("wscript.shell")
'objws.Run "D:\MakeYouFeelMyLove\class.png" 
'wscript.sleep 3000s

'Set Player=nothing
set study = createobject("sapi.spvoice")
study.speak "Have a nice day!" 
'msgbox "王晟英语单词打卡"&Chr(13)&"口语打卡"&Chr(13)&"一天12集251",vbQuestion,"北京第三区交通委提醒您:"
InputBox "王晟英语单词打卡"&Chr(13)&Chr(13)&Chr(13)&"口语打卡"&Chr(13)&Chr(13)&Chr(13)&"一天12集251","北京第三区交通委提醒您:","海水为什么是蓝色的呢？",3100,0

image.png
image.png

也可以加一个for 循环让提醒事项一直放在桌面。

Windows自带一个计划任务的，
自行设置循环时间，就不用在代码里面写了。