按键精灵“定时提醒程序代码”

按键精灵“定时提醒程序代码”
//按键精灵7.0代码，在设定的时间播放音乐，保存全屏图片，WHILE循环内可以设定时间。

dim shuoming,st,gqmc，tsnr,NowTime,d,h,m,s,mx,my,mz,lj,yz,Message,yanshi Set shuoming=CreateObject("WSCript.Shell")
yanshi=30000
Message =""
Message = Message & " 已经开始计时！"&vbcr&vbcr
Message = Message & "如果需要停止，请按F12或关闭本程序。

"&vbcr&vbcr
Message = Message & " 图片保存在“图片收藏”里"&vbcr&vbcr
Call shuoming.Popup(Message,5,"提示：5秒后关闭",0)
While 1
gqmc=0
tsnr=0
zt=1
nt=Hour(time)
If nt=0
st="00:00"
Gosub dy
EndIf
If nt=1
st="01:00"
Gosub dy
EndIf
If nt=2
st="02:00"
Gosub dy
EndIf
If nt=3
st="03:00"
Gosub dy
EndIf
If nt=4
st="04:00"
Gosub dy
EndIf
If nt=5
st="05:00"
Gosub dy
EndIf
If nt=6
st="06:00"
Gosub dy
EndIf
If nt=7
st="07:00"
gqmc="E:\陈旭-哥只是个传说.mp3"
//删除此句，可以不播放音乐，只保存屏幕。

tsnr="现在时间早晨"&st&"点，预定的时间已到。

" Gosub dy
EndIf
If nt=8
st="08:00"
Gosub dy
EndIf
If nt=9
st="09:00"
Gosub dy
EndIf
If nt=10
st="10:00
Gosub dy
EndIf
If nt=11
st="11:00"
Gosub dy
EndIf
If nt=12
st="12:00"
Gosub dy
EndIf
If nt=13
st="13:00"
Gosub dy
EndIf
If nt=14
st="14:00"
Gosub dy
EndIf
If nt=15
st="15:00"
Gosub dy
EndIf
If nt=16
st="16:00"
gqmc="E:\陈旭-哥只是个传说.mp3"
//删除此句，可以不播放音乐，只保存屏幕。

tsnr="现在时间早晨"&st&"点，时间已到。

" Gosub dy
EndIf
If nt=17
st="17:00"
Gosub dy
EndIf
If nt=18
Gosub dy
EndIf
If nt=19
st="19:00"
Gosub dy
EndIf
If nt=20
st="20:00"
Gosub dy
EndIf
If nt=21
st="21:00"
Gosub dy
EndIf
If nt=22
st="22:00"
Gosub dy
EndIf
If nt=23
st="23:00"
tsnr="现在时间早晨"&st&"点，时间已到"
Gosub dy
EndIf
Gosub kdy
EndWhile
Sub dy
lj="C:\Documents and Settings\Administrator\My Documents\My Pictures\"
Plugin mx=Sys.GetscRX()
Plugin my=SYS.GetscRY()
Rem 开始
nowtime=time
If hour(st)=hour(nowtime) and Minute(st)=Minute(nowtime) If zt=1
d=day(date):h=hour(nowtime):m=minute(nowtime):s=seco nd(nowtime)
mz=d&"号【"&h&"点】"&m&"分"&s&"秒"
Plugin Pic.PrintScreen(0,0,mx,my,
lj&mz&".jpg")
EndIf
If gqmc<>0
gqmc="C:\Program Files\Windows Media Player\wmplayer.exe "&gqmc
VBSCall RunApp(gqmc)
EndIf
If tsnr<>0
Call shuoming.Popup(tsnr,60,"提示：60秒后关闭",0)
EndIf
EndIf
If Minute(st)zt=1
gqmc=0
tsnr=0
nt=hour(time)
Goto 跳出
EndIf
yanshi=minute(st)-1
If yanshi=minute(time) and second(time)>30 Delay 3000
ElseIf
Delay 30000
EndIf
Goto 开始
Rem 跳出
Return dy
Sub kdy
While hour(time)=nt
If Minute(time)=59 and second(time)>30 Delay 3000
ElseIf
Delay 30000
EndIf
EndWhile
Return kdy。