• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

返回列表 12345678» / 11
发新话题 回复该主题

[技术交流] 【院刊】-【201505期】一帖教你学会限制脚本试用时间和次数 [复制链接]

41#

结束!!

42#

666666666666666

43#

好好好好

44#

好东西了非常感谢

45#

看看来吧,学习学习

46#

复杂吗

47#

剛好非常需要

48#

学习学习

49#

666666666666666666666666666666

50#

qqqqqqqqqqqqqqqqqqqq

51#

看看

52#


53#

。?。。。。。

54#

Rem 检测时间
Rem jiaoben
Dim SvrName(14),xPost,HttpAdd,NowTime,StartTime
StartTime=Now
SvrName(1) = "time-nw.nist.gov"
SvrName(2) = "time-a.nist.gov"
SvrName(3) = "time-b.nist.gov"
SvrName(4) = "time-a.timefreq.bldrdoc.gov"
SvrName(5) = "time-b.timefreq.bldrdoc.gov"
SvrName(6) = "time-c.timefreq.bldrdoc.gov"
SvrName(7) = "utcnist.colorado.edu"
SvrName(8) = "time.nist.gov"
SvrName(9) = "nist1.datum.com"
SvrName(10) = "nist1.dc.glassey.com"
SvrName(11) = "nist1.ny.glassey.com"
SvrName(12) = "nist1.sj.glassey.com"
SvrName(13) = "nist1.aol-ca.truetime.com"
SvrName(14) = "nist1.aol-va.truetime.com" 【14个获取网络时间的地址,这么多地址总不会都连接不上吧】
Set xPost=createObject("Microsoft.XMLHTTP")
Set Obj=createObject("Wscript.shell")
While NowTime=""
i=1
For 14
HttpAdd="Http://"&SvrName(i)&":13":NowTime=""
xPost.Open "ut",HttpAdd,False
xPost.Send()
Delay 10
If xPost.readyState=4
NowTime=mid(xPost.responsetext,8,17)
If NowTime<>""
NowTime=CDate(NowTime)+ 8 / 24 【这里是转换时间格式】
Goto EndConnect
Else
xPost.abort()
NowTime="" 【获取到的网络日期时间】
EndIf
EndIf
i=i+1
EndFor
If DateDiff("s",StartTime,Now)>=30 And NowTime=""
Obj.popup "请确定你已经连接上了互联网!",0,"网络时间"
Goto EndConnect
EndIf
EndWhile
新手可以在这里弹窗看下获取到的网路时间
MessageBox NowTime 【此句可删除】

正在撰写博客,按键代码之手到擒来篇
55#

楼主真棒!

56#

mark,谢谢分享,学习一下

57#

我需要学习这个!~不知道怎么弄哦!~~~

58#

666666666666666666

59#

看看

60#

查看一下时间限制

发新话题 回复该主题