ขอโค้ดดึงเวลาจากเว็บมาไว้ใน Autoit หน่อยคับ

ขอโค้ดดึงเวลาจากเว็บมาไว้ใน Autoit หน่อยคับ

ประมาณนี้เปล่าครับ

Code:


#RequireAdmin
$date = @MDAY & "/" & @MON & "/" & @YEAR
$time = @HOUR & "." & @MIN & "." & @SEC
ConsoleWrite("Date "&$date&@CRLF&"Time "&$time&@CRLF)


ดึงจากเว็บคับไม่ใช่ดึงจากเครื่อง

โทษที ครับพอดีผมดูผิด 
การดึงของมูลมาจาก เว็บ ลองอ่านจากลิงค์นี้ดูน่ะครับ
[You must be registered and logged in to see this link.]
อันนี้ตัวอย่าง (ที่ดึงเวลาจากเว็บ [You must be registered and logged in to see this link.]

Code:


#include "WinHttp.au3"


Global $sGet = HttpGet("http://www.timeanddate.com/")

Dim $array[4]  = ['</span>','<br>','<span id="ij2">' , 'ij1">']

If StringInStr($sGet,">") Then
$sGettemp   =   StringMid($sGet,StringInStr($sGet,"ij1"&'">'),54)

For  $i = 0  To UBound($array)-1
$sGettemp =    StringReplace($sGettemp,$array[$i]," ")
   Next

MsgBox(0, "info",$sGettemp )

EndIf



ปล.ผมไม่รู้ว่าน่ะครับจะสามารถ รองรับภาษา ไทย ได้หรือเปล่า (ตอน http ส่งค่ากลับมา )

มัน Error คับ โค้ดที่ให้มา

สร้างไฟล์ WinHttp.au3 หรือยังครับ

Code:


#include-once

Global Const $HTTP_STATUS_OK = 200

Func HttpPost($sURL, $sData = "")
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")

$oHTTP.Open("POST", $sURL, False)
If (@error) Then Return SetError(1, 0, 0)

$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")

$oHTTP.Send($sData)
If (@error) Then Return SetError(2, 0, 0)

If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)

Return SetError(0, 0, $oHTTP.ResponseText)
EndFunc

Func HttpGet($sURL, $sData = "")
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")

$oHTTP.Open("GET", $sURL & "?" & $sData, False)
If (@error) Then Return SetError(1, 0, 0)

$oHTTP.Send()
If (@error) Then Return SetError(2, 0, 0)

If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)

Return SetError(0, 0, $oHTTP.ResponseText)
EndFunc