Visual Basic, C & C++
Visual Basic 분류

[VB6] 인터넷 연결 여부 확인

작성자 정보

컨텐츠 정보

본문

도스씨의 VB6 정보입니다.
인터넷 연결이되는지 안 되는지 확인을할수있는 소스코드를 알려드리겠습니다.
 
일단, 모듈에다 아래의 소스코드를 작성해주세요.
 
 
Private Declare Function InternetGetConnectedState Lib "Wininet" _
(ByRef dwflags As Long, ByVal dwreserved As Long) As Long
Public Function GetInternetState() As Boolean
Dim iConnect As Boolean
iConnect = InternetGetConnectedState(0, 0&)
GetInternetState = iConnect
End Function
 
 
 
작성하셨으면, 저는 이제 폼에다 인터넷 연결을 확인하는 소스코드를 작성하겠습니다.
 
 
Private Sub Form_Load()
If GetInternetState = True Then
MsgBox "연결O"
Else
MsgBox "연결X"
End If
End Sub
 
 
 
인터넷이 연결되어있다면 '연결O'라는 메세지박스가 뜹니다.
그리고 If문을 이용했습니다.

관련자료

댓글 0
등록된 댓글이 없습니다.
목록
글검색
Today's proverb
“무릇 물이란 지세를 따라 흐르되 작은 틈도 놓치지 않고 적시니 지혜를 갖춘 자와 같고, 움직이면서 아래로 흘러가니 예를 갖춘 자와 같으며, 어떤 깊은 곳도 머뭇거리지 않고 들어가니 용기를 가진 자와 같고 장애물이 막혀서 갇히면 고요히 맑아지니 천명을 아는 자와 같으며, 험한 곳을 거쳐 멀리 흐르지만 끝내 남을 허물어뜨리는 법이 없으니 덕을 가진 자와 같다. 천지는 이것으로 이루어지고, 만물은 이것으로 살아가며, 나라는 이것으로 안녕을 얻고, 만사는 이것으로 평안해지며, 만물은 이것으로 바르게 되는 것이다. 이것이 지혜로운 자가 물을 좋아하는 이유이다.” (한영, <<한시외전>>)