[ VB.net ] 특정 웹서버 시간 읽어오기
핫딜 주소와 시간을 셋팅해서
구매시에 도움을 주는 CS프로그램을 하나 만들어보려고 하는 중에 정리.
1분 1초가 중요한 거라 해당 웹 서버의 시간을 읽어와서 처리하는 샘플 코드.
요점은 WebResponse의 해더에서 Date를 읽어와서 이용하는 것.
아래는 인터파크의 웹서버 시간을 읽어오기 위한 코드.
Imports System.Net
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create("http://www.interpark.com"), HttpWebRequest)
Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
Dim i As Integer
While i < myHttpWebResponse.Headers.Count
Console.WriteLine(ControlChars.Cr + "Header Name:{0}, Value :{1}", myHttpWebResponse.Headers.Keys(i), myHttpWebResponse.Headers(i))
i = i + 1
End While
myHttpWebResponse.Close()
myHttpWebRequest = Nothing
myHttpWebResponse = Nothing
End Sub
End Class
출력 결과 형태는 굵게 표시한 Date 를 이용하면 된다.
Header Name:Age, Value :182
Header Name:Vary, Value :Accept-Encoding, User-Agent
Header Name:Content-Length, Value :2935
Header Name:Content-Type, Value :text/html
Header Name:Date, Value :Mon, 04 Jun 2018 05:15:04 GMT
Header Name:Last-Modified, Value :Wed, 28 Feb 2018 05:30:03 GMT
Header Name:P3P, Value :CP="ALL CURa ADMa DEVa TAIa OUR BUS IND PHY ONL UNI PUR FIN COM NAV INT DEM CNT STA POL HEA PRE LOC OTC"







