假大空 发表于 2024-10-10 14:01:05

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

nongcunhaizi 发表于 2024-10-11 02:18:14

感谢分享

zhf130 发表于 2024-11-1 21:52:44

这个更方便了

omo888 发表于 2024-11-2 02:25:00

谢谢分享

xsjtxy 发表于 2024-11-12 11:55:50

后续更新有吗?

nox 发表于 2024-11-20 15:36:54

非常需要 谢谢楼主

leilin169 发表于 2024-11-20 18:37:47

:face (1):

y32510729 发表于 2024-11-29 18:52:25

谢谢楼主分享。

tcr7374 发表于 2024-12-3 20:00:07

非常需要 谢谢楼主

wazxpj 发表于 2024-12-12 10:36:05

非常感谢

auto896006008 发表于 2024-12-13 11:00:28

假大空 发表于 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 =

      Local $wee =

      Local $Week =

      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 & "-" & $str & "-" & $str & " " & $str

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

      If $WeekFlag Then $Date &= ' ' & $str

      Return $Date

EndFunc   ;==>_Hdate
页: 45 46 47 48 49 50 51 52 53 54 [55]
查看完整版本: AU3帮助-中文搜索1.3【新手必备的工具】