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
가을에 피는 국화는 첫 봄의 상징으로 사랑받는 개나리를 시샘하지 않는다. 역시 봄에 피는 복숭아꽃이나 벚꽃을 부러워하지 않는다. 한여름 붉은 장미가 필 때, 나는 왜 이렇게 다른 꽃보다 늦게 피나 한탄하지도 않는다. 그저 묵묵히 준비하며 내공을 쌓고 있을 뿐이다. 그러다가 매미소리 그치고 하늘이 높아지는 가을, 드디어 자기 차례가 돌아온 지금, 국화는 오랫동안 준비해온 그 은은한 향기와 자태를 마음껏 뽐내는 것이다. (한비야)