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

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

按键精灵安卓版
立即下载

软件版本：4.0.2
软件大小：45M
更新时间：2025-07-01

按键精灵iOS版
立即下载

软件版本：2.3.3
软件大小：29.2M
更新时间：2025-07-01

按键手机助手
立即下载

软件版本：4.3.0
软件大小：242M
更新时间：2025-07-01

快捷导航

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

登录 注册
返回列表
发新话题 回复该主题
查看: 16670|回复: 3

GetNetworkTime 获取网络时间命令维护通知 [复制链接]

兄弟客服03
头像

  • 管理员
  • 684365
  • 4824
  • 0
  • 1292 朵
  • 7763 个
  • 1307 个
  • 236380
  • 2011-06-13
按键X开拓者勋章按键15周年庆纪念勋章猴年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章体验先锋勋章按键14周年庆纪念勋章鹰眼勋章天使勋章潜水员按键明星黄金之翼按键精灵开发者2级龙年勋章十周年勋章兔年勋章论坛MM学有所成脚本作者管理人员
1#
t T
发表于 2021-01-04 16:03 | |只看楼主

GetNetworkTime 获取网络时间命令维护通知



GetNetworkTime获取网络时间命令已于1月11日下线维护，维护期间将无法通过该命令正常获取网络时间，建议作者通过其他方式获取网络时间（参考以下获取网络时间脚本案例）。命令恢复使用时间待定，由此带来的不便敬请谅解。

脚本案例一：
  1. TracePrint 获取网络时间()
  2. Function 获取网络时间()
  3. Import "Cjson.lua"
  4. Dim sUrl = "http://quan.suning.com/getSysTime.do"
  5. Dim sJson = Url.Get(sUrl)
  6. Dim table = Cjson.Decode(sJson)
  7. 获取网络时间 = table["sysTime2"]
  8. End Function
复制代码
脚本案例二：
  1. TracePrint GetNetTime()
  2. Function GetNetTime()
  3. Import "Cjson.lua"
  4. Dim sJson= Url.Get( "http://api.k780.com/?app=life.time&appkey=10003&sign=b59bc3ef6191eb9f747dd4e83c99f2a4&format=json")
  5. Dim table = Cjson.Decode(sJson)
  6. GetNetTime = table["result"]["datetime_1"]
  7. End Function
复制代码
脚本案例三：
  1. Dim NetTime = Split(Url.Get("https://apps.game.qq.com/CommArticle/app/reg/gdate.php "),"'")
  2. TracePrint NetTime(1)
复制代码

    已有1评分我要评分查看所有评分
    本主题由 管理员 兄弟客服03 于 2021/1/4 16:07:53 执行 设置高亮 操作
    点赞
    按键精灵iOS版，开发iOS脚本，可打包iOS脚本小精灵，还支持分享收费型脚本。iOS15和iOS16系统已兼容！——点我查看详情

    鹰眼中控，手机群控软件，苹果群控软件，已兼容iOS15、iOS16系统，手机屏幕实时显示，支持远程操作！——点我查看详情
    回顶部
    紫猫
    头像

    [紫猫学院创始人]

    • 按键认证导师
    • 513852
    • 3628
    • 47
    • 4637 朵
    • 28056 个
    • 6161 个
    • 190000
    • 2010-10-09
    按键X开拓者勋章过大年勋章双十一绝版纪念勋章单身汪勋章幸运草勋章鹰眼勋章黄瓜勋章图灵勋章活动狂人骨灰级按键用户按键精灵开发者6级小编勋章龙年勋章QUI设计大师十周年勋章教程达人兔年勋章论坛GG小红帽学有所成
    2#
    t T
    发表于 2021-01-07 17:06 | |只看该用户

    脚本案例四
    1. Import "zm.luae" //导入插件,只需执行一次
    2. zm.Init //初始化插件,只需执行一次

    4. Dim t = zm.GetNetworkTime(0, 1)
    5. TracePrint "网络时间戳:", t
    复制代码
    最后编辑紫猫 最后编辑于 2021-01-23 15:39:03

    【紫猫编程学园】火热招生中

    教学涉及按键精灵电脑版、按键精灵手机版、Lua编程。

    包含网页、端游、手游、办公、模拟器、插件等。

    报名咨询QQ:345911220 或 97682686 或 97682687;

    报名咨询微信:zimaoxy; 点我在线交谈

    紫猫学园免费教程

    加入交流QQ群: 7333555
    回顶部
    alike2025
    头像

    • 小学一年级
    • 9457741
    • 4
    • 0
    • 8 朵
    • 22 个
    • 12 个
    • 0
    • 2025-06-12
    3#
    t T
    发表于 2025-07-27 23:04 | |只看该用户

    测试可以用(替换原来的或自定义函数)

    Private Function getWebTime()
        Dim XmlHttp
        
        Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
        XmlHttp.Open "OST", "https://apps.game.qq.com/CommArticle/app/reg/gdate.php", False
        XmlHttp.Send
        
        getWebTime = CDate(1 / 3 + CDbl(CDate(Mid(XmlHttp.getResponseHeader("Date"), 5, 21))))
            
        Set XmlHttp = Nothing    
    End Function

    回顶部
    alike2025
    头像

    • 小学一年级
    • 9457741
    • 4
    • 0
    • 8 朵
    • 22 个
    • 12 个
    • 0
    • 2025-06-12
    4#
    t T
    发表于 2025-07-29 21:43 | |只看该用户

    代码模式发出来

    1. Private Function getWebTime()
    2.     Dim XmlHttp
    3.     
    4.     Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    5.     XmlHttp.Open "POST", "https://apps.game.qq.com/CommArticle/app/reg/gdate.php", False
    6.     XmlHttp.Send
    7.     
    8.     getWebTime = CDate(1 / 3 + CDbl(CDate(Mid(XmlHttp.getResponseHeader("Date"), 5, 21))))
    9.         
    10.     Set XmlHttp = Nothing
    11.         
    12. End Function
    复制代码
    回顶部
    上一主题| 下一主题
    返回列表
    发新话题 回复该主题
    高级编辑器高级编辑器