洛阳翼展电脑

定时提醒器.VBS

2021-1-10 乱云飞 标签: 自动提醒 定时器脚本

tx = "19:59:59"		'开始时间
tq = 1			'提前分钟数
bt = "定时抢购提醒"		'窗口标题
xm = "天猫超市抢购"		'事件名称
url = "https://chaoshi.detail.tmall.com/item.htm?id=20739895092"	'触发事件

'-------------------------上面部分修改成实际任务，下面部分一般不用改-------------------------
set wshshell=CreateObject("wscript.shell")
txsj = TimeValue(tx) - tq / (24 * 60)
jgsj = Round((TimeValue(tx) - Time) * 24 * 60, 2)
 
If jgsj < 0 Then
    MsgBox "     " & xm & "开始已经" & jgsj * (-1) & "分钟，请尽快参加！", vbOKOnly, bt
Else
    If Time > txsj Then
        MsgBox "    距离" & xm & "只有" & jgsj & "分钟，请尽快做好准备工作！", vbOKOnly, bt
    Else
        MsgBox "    距离" & xm & "开始" & tq & "分钟时，将弹出窗口提示！", vbOKOnly, bt
        Do While Time < txsj
            WScript.Sleep (60000)
        Loop

        MsgBox "    距离" & xm & "还有" & tq & "分钟，请做好准备工作！", vbOKOnly, bt
        wshshell.Run"""chrome.exe""" & url  '此处可以替换成其他任务
    End If
End If