ขอโค้ดดึงเวลาจากเว็บมาไว้ใน Autoit หน่อยคับ
แก้ไขล่าสุดโดย sa2532 เมื่อ 07/09/13, 10:28 pm, ทั้งหมด 2 ครั้ง
#RequireAdmin
$date = @MDAY & "/" & @MON & "/" & @YEAR
$time = @HOUR & "." & @MIN & "." & @SEC
ConsoleWrite("Date "&$date&@CRLF&"Time "&$time&@CRLF)
#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
#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
|
|