메뉴 건너뛰기

VB Inet 관련 참고자료

2012.03.25 15:04

류짜장 조회 수:1386

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

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

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

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 드럼 초기화 방법 [7] 류짜장 2015.09.15 460
52 [자동차] YF 2.4GDI 미션 충격(인히비터 스위치) [1] [12] file 류짜장 2015.09.10 876
51 [자동차] YF 소나타 공조기 잡소리 [10] file 류짜장 2015.08.30 1854
50 VB.NET 레지스트리 제어 [6] 류짜장 2015.03.25 371
49 몰딩 시공 자료 file 류짜장 2015.02.12 317
48 여수시 문수동 부영2차 아파트 셀프 리모델링(작업준비) [5] 류짜장 2014.07.03 1351
47 솔내시스템 CIE-H12를 활용한 에어컨 원격제어 [3] file 류짜장 2014.05.29 1158
46 VB.NET Serial port [111] 류짜장 2013.11.04 5097
45 GPS 경위도 값을 이용한 거리 및 방위각 구하기 [15] file 류짜장 2013.04.08 2689
44 루바 자투리 활용(커피믹스 통) [6] 류짜장 2012.04.28 1026
43 OKI B430dn 프린터 드라이버 설치가 안되는 경우 [5] file 류짜장 2012.04.19 1694
» VB Inet 관련 참고자료 [6] 류짜장 2012.03.25 1386
41 윈도우 업데이트 안되는 경우 해결방법 [4] 류짜장 2012.01.18 1784
40 부영아파트 분양 관련 소유권 이전 등기 직접 하기 [1] [2] 류짜장 2011.12.27 2443
39 무료백신 올레 닥터 2.0 소개 [2] file 류짜장 2011.12.21 2894
38 KT와이브로(모다정보통신 에그)를 통한 VPN접속 장애 [5] 류짜장 2011.12.10 5314
37 CISCO RV042 / RV082 VPN Router & Iphone [3] 류짜장 2011.10.29 2332
36 Suprema BioStation 지문인식기 [2] 류짜장 2011.10.23 2725
35 [VB] Visual Basic을 이용한 IE 신뢰할수 있는 사이트 추가 [2] 류짜장 2011.06.05 4019
34 MS 윈도우 업데이트 0xC80001FE 오류코드 해결방법 [2] 류짜장 2011.04.14 3806