메뉴 건너뛰기

VB Inet 관련 참고자료

2012.03.25 15:04

류짜장 조회 수:1324

웹서버가 죽었는지 살았는지를 알고자 하는건지.. 

아님 그 도메인 이름을 가진 컴퓨터가 인터넷연결이 되는지 안되는지를 알고자 하는건지..??

웹서버가 살았는지 죽었는지 확인하는 방법은...

Inet을 이용하면 쉽게 가능합니다.

Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim tmpStr As String
    tmpStr = List1.Text
    
    tmpStr = LCase(tmpStr)
    tmpStr = Replace(tmpStr, "http://", "")
    
    Select Case State
    Case 0
        StatusBar1.Panels(3).Text = "보고할 상태가 아닙니다."
    Case 1
        StatusBar1.Panels(3).Text = "사이트를 찾고 있습니다.(" + tmpStr + ")"
    Case 2
        StatusBar1.Panels(3).Text = "사이트를 찾았습니다.(" + tmpStr + ")"
    Case 3
        StatusBar1.Panels(3).Text = "사이트로 연결되고 있습니다.(" + tmpStr + ")"
    Case 4
        StatusBar1.Panels(3).Text = "사이트로 연결되었습니다.(" + tmpStr + ")"
    Case 5
        StatusBar1.Panels(3).Text = "사이트로 요청을 보내고 있습니다.(" + tmpStr + ")"
    Case 6
        StatusBar1.Panels(3).Text = "사이트로 성공적으로 요청을 보냈습니다.(" + tmpStr + ")"
    Case 7
        StatusBar1.Panels(3).Text = "사이트에서 응답을 받고 있습니다.(" + tmpStr + ")"
    Case 8
        StatusBar1.Panels(3).Text = "사이트에서 성공적으로 응답을 받았습니다.(" + tmpStr + ")"
    Case 9
        StatusBar1.Panels(3).Text = "사이트와 연결을 해제하고 있습니다.(" + tmpStr + ")"
    Case 10
        StatusBar1.Panels(3).Text = "사이트와 성공적으로 연결 해제되었습니다.(" + tmpStr + ")"
    Case 11
        StatusBar1.Panels(3).Text = "사이트와 통신하는데 오류가 발생하였습니다.(" + tmpStr + ")"
    Case 12
        StatusBar1.Panels(3).Text = "요청이 완료되고 모든 데이터를 받았습니다."
    End Select
End Sub




Private Sub MnuSiteCheck_Click()  " 검사시작
 
    .
    .
    .

    For i = 0 To List1.ListCount - 1
       List1.ListIndex = i
        
       DoEvents
               
       If GoEnd = True Then
          MsgBox "사이트검사가 중지되었습니다."
          List1.Enabled = True
          MnuSiteE.Enabled = False
          MnuSiteResult.Enabled = True
          MnuSiteCheck.Enabled = True
          Exit For
       End If
        
       ProgressBar2.Value = 0
       Timer1.Interval = 1000
        
       ret = Inet1.OpenURL("List1.Text)  " 이부분...
        
"        strMsg = CStr(Inet1.ResponseCode)
"        strMsg = strMsg + ":" + Inet1.ResponseInfo
       ProgressBar2.Value = 60
       Timer1.Interval = 0

       If ret = "" Then
          List2.AddItem List1.Text
       Else
          List3.AddItem List1.Text
       End If
        
       success = Format(((i + 1) / List1.ListCount) * 100, "##0")
       ProgressBar1.Value = success
       StatusBar1.Panels(1).Text = CStr(success) + " %완료"
        "StatusBar1.Panels(3).Text = List1.Text + " 검사하고 있습니다!"
    Next i
번호 제목 글쓴이 날짜 조회 수
53 OKI B430dn 드럼 초기화 방법 [3] 류짜장 2015.09.15 342
52 [자동차] YF 2.4GDI 미션 충격(인히비터 스위치) [1] [7] file 류짜장 2015.09.10 766
51 [자동차] YF 소나타 공조기 잡소리 [6] file 류짜장 2015.08.30 1632
50 VB.NET 레지스트리 제어 류짜장 2015.03.25 319
49 몰딩 시공 자료 file 류짜장 2015.02.12 294
48 여수시 문수동 부영2차 아파트 셀프 리모델링(작업준비) 류짜장 2014.07.03 1287
47 솔내시스템 CIE-H12를 활용한 에어컨 원격제어 file 류짜장 2014.05.29 1102
46 VB.NET Serial port [90] 류짜장 2013.11.04 3511
45 GPS 경위도 값을 이용한 거리 및 방위각 구하기 [10] file 류짜장 2013.04.08 2523
44 루바 자투리 활용(커피믹스 통) 류짜장 2012.04.28 978
43 OKI B430dn 프린터 드라이버 설치가 안되는 경우 file 류짜장 2012.04.19 1627
» VB Inet 관련 참고자료 류짜장 2012.03.25 1324
41 윈도우 업데이트 안되는 경우 해결방법 류짜장 2012.01.18 1747
40 부영아파트 분양 관련 소유권 이전 등기 직접 하기 [1] 류짜장 2011.12.27 2384
39 무료백신 올레 닥터 2.0 소개 file 류짜장 2011.12.21 2848
38 KT와이브로(모다정보통신 에그)를 통한 VPN접속 장애 [3] 류짜장 2011.12.10 5230
37 CISCO RV042 / RV082 VPN Router & Iphone [1] 류짜장 2011.10.29 2236
36 Suprema BioStation 지문인식기 류짜장 2011.10.23 2653
35 [VB] Visual Basic을 이용한 IE 신뢰할수 있는 사이트 추가 류짜장 2011.06.05 3994
34 MS 윈도우 업데이트 0xC80001FE 오류코드 해결방법 류짜장 2011.04.14 3784