吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 4479|回复: 4
收起左侧

[其他原创] AU3通过百度校正系统时间程序及源码

[复制链接]
gamewfj 发表于 2018-4-15 18:24
本帖最后由 gamewfj 于 2018-4-15 18:26 编辑

注册52小4年了,还是一级,惭愧啊

AU3菜鸟,根据XMLHTTP返回报文头部里的GMT时间来获取时间
能力有限,正则很垃圾,勉强能用。就是从Date: Sun, 15 Apr 2018 10:12:34 GMT 这句里获取时间
设置时间是AU3自带的UDF,需已管理员权限才能设置时间,win10刚才测试通过

AU3编译的程序报毒正常,不建议下载。
百度校时.rar (429.07 KB, 下载次数: 52)

建议自己安装AU3程序自己编译以下源代码
[Asm] 纯文本查看 复制代码
#include <Date.au3>
$oHTTP = ObjCreate("Msxml2.xmlhttp")
If [url=home.php?mod=space&uid=209627]@Error[/url] Then Exit
_xiaozheng('https://www.baidu.com')
Func _xiaozheng($url)
        $oHTTP.open("GET", $url, False)
        $oHTTP.getAllResponseHeaders()
        $oHTTP.send
        ConsoleWrite($oHTTP.getAllResponseHeaders())
        $time = StringRegExp($oHTTP.getAllResponseHeaders(), 'Date.*?(\d+)\:(\d+)\:(\d+)', 3)
        If Not @error Then
                _SetTime($time[0] + 8, $time[1], $time[2])
                If @error Then
                        MsgBox(4096, '校正', '系统时间校正失败', '')
                Else
                        MsgBox(0, '校正', '系统时间已校正为:' & $time[0] + 8 & ':' & $time[1] & ':' & $time[2])
                EndIf
        EndIf
EndFunc   ;==>_xiaozheng


获取到HTTP get 百度的信息头如下
[HTML] 纯文本查看 复制代码
Bdpagetype: 1
Bdqid: 0xe5f724810004bec4
Bduserid: 0
Cache-Control: private
Connection: Keep-Alive
Content-Type: text/html; charset=utf-8
Cxy_all: baidu+3e1b4aa5bd08d7beb3de6ae3795ea4d9
Date: Sun, 15 Apr 2018 10:12:34 GMT
Expires: Sun, 15 Apr 2018 10:12:34 GMT
Server: BWS/1.1
Set-Cookie: BDSVRTM=9; path=/
Set-Cookie: BD_HOME=0; path=/
Set-Cookie: H_PS_PSSID=1434_21081_26105; path=/; domain=.baidu.com
Strict-Transport-Security: max-age=172800
X-Powered-By: HPHP
X-Ua-Compatible: IE=Edge,chrome=1
Transfer-Encoding: chunked

免费评分

参与人数 3吾爱币 +5 热心值 +3 收起 理由
wushaominkk + 2 + 1 感谢发布原创作品,吾爱破解论坛因你更精彩!
lpxx + 2 + 1 我很赞同!
kk1212 + 1 + 1 谢谢@Thanks!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

lpxx 发表于 2018-4-15 19:39
The requested action with this object has failed.:
$oHTTP.getAllResponseHeaders()
$oHTTP^ ERROR

什么原因?
 楼主| gamewfj 发表于 2018-4-15 19:42
lpxx 发表于 2018-4-15 19:39
The requested action with this object has failed.:
$oHTTP.getAllResponseHeaders()
$oHTTP^ ERROR

好像是你的系统缺XMLHTTP的dll,我安装版的windows10 没问题
wushaominkk 发表于 2018-4-16 10:38
xz0 发表于 2019-3-30 17:47
系统时间和实际时间偏差大了就没反应了
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-11-16 05:21

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表