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自带一个计划任务的，
自行设置循环时间，就不用在代码里面写了。
