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

软件版本: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

快捷导航

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

发新话题 回复该主题

[分享源码] 【垃圾流派】自带*返回值 = Lib.网络.获取网络时间()*命令修正之... [复制链接]

1#
[backcolor=rgb(0, 255, 255)]下图为按键自带效果
您所在的用户组无法下载或查看附件

[backcolor=rgb(0, 255, 255)]下图为修改后效果
您所在的用户组无法下载或查看附件


迷迷糊糊过了好久,身边同期的人,渐渐默默离开,越来越感觉形单影只。
最近论坛讨论获取网络时间风风火火,都是被迫的。
此帖送给我同时候,那批人,那时已经有了解决方法,只可惜大部分人都固步自封,不愿意分享,导致现在,感觉又讨论回去了
[backcolor=rgb(0, 255, 255)]2013年解决方法
  1. MessageBox Lib.网络.获得网页源文件("http://cgi.im.qq.com/cgi-bin/cgi_svrtime")
复制代码
[backcolor=rgb(0, 255, 255)]存在问题
仅第一次获取正常,之后获取网络时间不变
[backcolor=rgb(0, 255, 255)]解决方案
  1. Call Plugin.Web.ClearTemp()
  2. MessageBox Lib.网络.获得网页源文件("http://cgi.im.qq.com/cgi-bin/cgi_svrtime")
复制代码
[backcolor=rgb(0, 255, 255)]总结(命令库修正,即图2效果)
  1. Function 时间获取()
  2. Call Plugin.Web.ClearTemp()
  3. xmlUrl = "http://cgi.im.qq.com/cgi-bin/cgi_svrtime"
  4. Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
  5. xmlHttp.Open "Get", xmlUrl, False
  6. xmlHttp.Send
  7. xmlBody = xmlHttp.ResponseBody
  8. Set xmlHttp = Nothing
  9. 获得网页源文件 = ""
  10. If Len(xmlBody) = 0 Then Exit Function
  11. Set ObjStream = CreateObject("Adodb.Stream")
  12. With ObjStream
  13. .Type = 1
  14. .Mode = 3
  15. .Open
  16. .Write xmlBody
  17. .Position = 0
  18. .Type = 2
  19. .Charset = "GB2312"
  20. BytesToBstr = .ReadText
  21. .Close
  22. End With
  23. Set ObjStream = Nothing
  24. 时间获取 = BytesToBstr
  25. End Function
复制代码

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

    本主题由 超级版主 瑞祥幽冥狼 于 2023/7/10 8:18:13 执行 审核帖子 操作
    收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

    个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
    个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
    2#

    网络.获取网络时间()//网络时间,没连网是没用的

    3#

    好牛逼的样子

    4#

    1111111111111111111111

    5#

    太给力了~

    6#

    dddddddddddddd

    7#

    22222222222222222

    8#

    試試

    9#


    10#

    3333333333333333333333

    11#

    又在搞啥呢?

    VBS
    12#

    定楼主

    13#

    感謝大大分享,趕緊試試

    14#

    啊啊啊啊啊

    15#

    53535365

    16#

    66666666666666666666666666666

    17#

    沃达丰斯蒂芬斯蒂芬斯蒂芬斯蒂芬

    18#

    我来学习的

    19#


    20#

    来看看

    发新话题 回复该主题