• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

登录 注册
返回列表 12345678» / 26
发新话题 回复该主题

[其他] 获取网络时间对比&修改系统时间【免费放送】 [复制链接]

1#
先发一段获取网络时间的代码。该代码论坛其他处也可以搜索到的!
标红字体为说明,请朋友注意。
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 "Put",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 【此句可删除】

Rem EndConnect
Rem 对比系统日期
为了此贴的热度,下面的内容需要回复。
郁闷回复权限咋没了?
暂停。。。。

    已有3评分我要评分查看所有评分

    好思路好脚本
    细节决定成败
    1Q1Q.CN
    个人作品
    2#

    黄偶一

    3#

    额,看一看了

    4#

    看看方法对不对,不对那就一个字

    5#


    6#

    看看看

    7#


    烟瘾斌仔
    8#

    非常感谢

    9#

    学习一下

    有事就QQ 136874377 QQ交流群300857068   接各种脚本定做 价格优惠
    10#

    楼主辛苦了 看看是不是想要的

    11#

    1111111111111111111111111111

    12#

    回复回复该

    13#


    14#

    学习学习

    15#

    dddddddddddddd

    16#

    来学习学习

    17#

    THX FOR SHARING!!!!

    18#

    111111111111111111111111111111111

    19#

    看看好不好用

    20#

    获取网络时间对比&修改系统时间【免费放送】修

    发新话题 回复该主题