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
자신을 불행한 존재라고 생각하는 사람은 아직도 더 불행해질 여지가 남아있다. 아주 작은 일에도 큰 기쁨을 느끼는 사람에게는 그 어떤 불행도 위력을 상실해 버리고 만다. 그러나 아주 작은 일에도 기쁨을 느낄 수 있는 경지에 이르기까지는 어차피 여러 가지 형태의 불행을 감내하지 않을 수가 없다. 불행이란 알고 보면 행복이라는 이름의 나무 밑에 드리워진 행복만한 크기의 나무그늘 같은 것이다. (이외수 "흐린 세상 건너기" 中에서)