[ 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"