분류
Visual Basic
[VB6] 인터넷 연결 여부 확인
페이지 정보
조회
24,483
본문
도스씨의 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문을 이용했습니다.
관련자료
-
링크
등록된 댓글이 없습니다.
