按键精灵脚本使用时间限制

DqTime = lib.网络.获取网络时间()//获取网络时间，得到的时间格式为：2000-1-1 12:00:00fgsj=Split(DqTime, ' ', -1, 1)//以空格为界分割年月日与时分秒nyr=fgsj(0)sfm=fgsj(1)//得到年月日：nyr=fgsj(0) 得到时分秒：sfm=fgsj(1)fgnyr=Split(nyr, '-', -1, 1)//以-为界分割年与月与日n=fgnyr(0)y=fgnyr(1)r=fgnyr(2)//得到年：n=fgnyr(0) 得到月：y=fgnyr(1) 得到日：r=fgnyr(2)zzn=2010zzy=12zzr=31//指定终止时间:年=zzn 月=zzy 日=zzrr1=(zzn-n)*365r2=(zzy-y)*30r3=zzr-rrr=r1+r2+r3//计算剩余时间If rr>0 ThenMsgbox 'rr'ElseMsgbox '使用时间已过期！请联系供应商!'End If