定时提醒器.VBS - 洛阳翼展电脑


定时提醒器.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
本文链接:http://80c.cc/ez/423.html
0

发表评论:

预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog