AU3帮助-中文搜索1.3【新手必备的工具】

假大空

很好的辅助手册，多谢分享

nongcunhaizi

感谢分享

zhf130

这个更方便了

omo888

谢谢分享

xsjtxy

后续更新有吗？

nox

非常需要 谢谢楼主

leilin169

y32510729

谢谢楼主分享。

tcr7374

非常需要 谢谢楼主

wazxpj

非常感谢

auto896006008

假大空 发表于 2024-10-10 14:01
很好的辅助手册，多谢分享

#include <WinHTTP.au3>

#include <Date.au3>

MsgBox(0, "", _Hdate())

Func _Hdate($WeekFlag = False)

        Local $hOpen, $hConnect, $hRequest, $H_time, $str, $Date

        Local $mon[13] = [12, "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]

        Local $wee[8] = [7, "Mon,", "Tue,", "Wed,", "Thu,", "Fri,", "Sat,", "Sun,"]

        Local $Week[8] = [7, "周一", "周二", "周三", "周四", "周五", "周六", "周日"]

        Local $url = "www.beijing-time.org"

        $hOpen = _WinHttpOpen()

        $hConnect = _WinHttpConnect($hOpen, $url)

        $hRequest = _WinHttpOpenRequest($hConnect, "head")

        _WinHttpSendRequest($hRequest)

        _WinHttpReceiveResponse($hRequest)

        If _WinHttpQueryDataAvailable($hRequest) Then $str = _WinHttpQueryHeaders($hRequest, $WINHTTP_QUERY_DATE)

        _WinHttpCloseHandle($hRequest)

        _WinHttpCloseHandle($hConnect)

        _WinHttpCloseHandle($hOpen)

        For $i = 1 To 12

                $str = StringReplace($str, $mon[$i], $i)

        Next

        For $i = 1 To 7

                $str = StringReplace($str, $wee[$i], $Week[$i])

        Next

        $str = StringSplit($str, " ")

        $Date = $str[4] & "-" & $str[3] & "-" & $str[2] & " " & $str[5]

        $Date = _DateAdd('h', 8, $Date)

        If $WeekFlag Then $Date &= ' ' & $str[1]

        Return $Date

EndFunc   ;==>_Hdate