• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




[vb6.0/vba] [vb6.0/vba] 인터넷(서버) 접속시 쿠키를 이용한 서버 시간을 확인하는 함수

하나를하더라도최선을
2020.01.08 15:44 1,054 0

본문



(날짜 + 시간)+컴퓨터 시간 정확히 맞추는법<br>아래는 인터넷 접속시 돌아오는 쿠키값을 이용하는 방법입니다.



Public Function mDate() As Date
    Dim T As String
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET""http://www.naver.com/" '// << URL은 아무 URL이나 됩니다.
        .Send
        .WaitForResponse: DoEvents
        T = .GetAllResponseHeaders
    End With
    
    T = Split(Split(T, "Date: ")(1), " GMT")(0)
    T = Split(T, ", ")(1)
    mDate = DateValue(Split(T, " ")(0) & "," & Split(T, " ")(1) & "," & Split(T, " ")(2))
    mDate = mDate + TimeValue(Split(T, " ")(UBound(Split(T, " ")))) + TimeSerial(900'// GMT는 9시간 느림
End Function


댓글목록 0

등록된 댓글이 없습니다.