[VB.NET] 인터넷시간 가져오기 예제 소스

실시간 인터넷시간 가져오기 예제 소스

 

예제1)

 

 

■예제소스

Imports System.Threading
Imports System.Net

Public Class Form1

    Delegate Sub delegate_Text(ByVal str As String)
    Dim TH_스레드 As Thread
    Dim 스레드상태 As Boolean
    Private Sub Form1_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
        If TH_스레드.IsAlive Then
            TH_스레드.Abort()
        End If
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub

    Private Sub B_시작_Click(sender As Object, e As EventArgs) Handles B_시작.Click
        If 스레드상태 = False Then
            //스레드 시작
            TH_스레드 = New Thread(AddressOf 스레드)
            스레드상태 = True

            TH_스레드.IsBackground = True
            TH_스레드.Start()

            B_시작.Text = "종료"
        Else
            //스레드 종료
            TH_스레드.Abort()
            스레드상태 = False

            B_시작.Text = "시작"
        End If
    End Sub

    Private Sub 스레드()
        Do While 스레드상태
            Set_Text() //현재시간 대리자통해 UI에 표시

            Thread.Sleep(500)
        Loop
    End Sub

    Public Sub Set_Text()
        Dim Url, 현재시간 As String

        Url = "https://vclock.kr/time/%EC%84%9C%EC%9A%B8/"  //한국 시간가져오기
        현재시간 = getServerTime(Url)

        If L_시간.InvokeRequired Then //InvokeRequired 값이 True일 경우 자신이 생성한 스레드가 아님.
            L_시간.Invoke(New delegate_Text(AddressOf Set_Text), New Object() {현재시간})
        Else
            L_시간.Text = 현재시간
        End If
    End Sub

    Function getServerTime(ByRef dom)
        Try
            If InStr(dom, "http") = 0 Then
                dom = "http://" & dom
            End If
            Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(dom), HttpWebRequest)
            Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
            Dim server_date As DateTime
            Dim _Time As String

            server_date = CDate(myHttpWebResponse.Headers.Item(HttpRequestHeader.Date.ToString()))
            _Time = Format(server_date, "yyyy-MM-dd HH:mm:ss").ToString()

            myHttpWebResponse.Close()

            myHttpWebRequest = Nothing
            myHttpWebResponse = Nothing

            Return _Time
        Catch ex As Exception
            Return "FAIL"
        End Try
    End Function
End Class

 

 

 

■ 인터넷 실시간 가져오기 프로그램

 

BP_인터넷실시간 가져오기.exe

0.03MB