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문을 이용했습니다.

관련자료

등록된 댓글이 없습니다.
프로그래밍
Today's proverb
생각하는 기술을 가르쳐야지, 생각한 것을 가르쳐서는 안 된다.