vb6.0/vba [vb6.0/vba] 인터넷(서버) 접속시 쿠키를 이용한 서버 시간을 확인하는 함수
페이지 정보
본문
(날짜 + 시간)+컴퓨터 시간 정확히 맞추는법<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(9, 0, 0) '// GMT는 9시간 느림
End Function
- 이전글[vb6.0/vba] 파일검색 SearchTreeForFile API - 모든폴더에서 파일을 검색한다 20.01.13
- 다음글[vb6.0/vba] HTML 테그를 한방에 정리(함수) 19.10.29
댓글목록
등록된 댓글이 없습니다.