아님 그 도메인 이름을 가진 컴퓨터가 인터넷연결이 되는지 안되는지를 알고자 하는건지..??
웹서버가 살았는지 죽었는지 확인하는 방법은...
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
StatusBar1.Panels(3).Text = "보고할 상태가 아닙니다."
StatusBar1.Panels(3).Text = "사이트를 찾고 있습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "사이트를 찾았습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "사이트로 연결되고 있습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "사이트로 연결되었습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "사이트로 요청을 보내고 있습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "사이트로 성공적으로 요청을 보냈습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "사이트에서 응답을 받고 있습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "사이트에서 성공적으로 응답을 받았습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "사이트와 연결을 해제하고 있습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "사이트와 성공적으로 연결 해제되었습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "사이트와 통신하는데 오류가 발생하였습니다.(" + tmpStr + ")"
StatusBar1.Panels(3).Text = "요청이 완료되고 모든 데이터를 받았습니다."
Private Sub MnuSiteCheck_Click() " 검사시작
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If GoEnd = True Then
MsgBox "사이트검사가 중지되었습니다."
List1.Enabled = True
MnuSiteE.Enabled = False
MnuSiteResult.Enabled = True
MnuSiteCheck.Enabled = True
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
success = Format(((i + 1) / List1.ListCount) * 100, "##0")
ProgressBar1.Value = success
StatusBar1.Panels(1).Text = CStr(success) + " %완료"
"StatusBar1.Panels(3).Text = List1.Text + " 검사하고 있습니다!"
Cheap NFL Jerseys China Wholesale The market condition has to be known first. The diagnosis will state the kind of treatment you will need.<br >The first common stoppage of the Raymond mill: no powder or less powder with low output. This is helpful as the pallet will have to be drained in order to secure a clean out when and if it becomes needed.<li><ul><p style="textalign: justify;">It will surely help your sex life as you will desire it more.
Wholesale NFL Jerseys From China It will easily and quickly straighten your penis. There you’ll find Charlotte moving companies and professional movers in Charlotte, NC who are experienced and skilled to provide reliable These moving companies in Charlotte, NC specialize in m?ving services ?nd ??m? hold ?x??rti?? in offering moving and storage in Charlotte, NC and surrounding areas. A damaged sign won’t convince customers to try out your business. Everyone appreciates unique style, but it is especially fitting if your partner has a dress style that doesn’t benefit from a traditional design. The staff who are handling this job see first everything before they can make the evaluation base on their terms and condition.
Cheap Jerseys From China Alternative, unique rings are the way of the future. This as a result helps to straighten the penis by forming newer cells. That is why getting the best brains here is important. The look on her face is priceless, and to listen to her screams of joy and excitement is irreplaceable. The NREL is the nation’s leading component of the National Bioenergy Center, a 鈥渧irtual鈥?center that has no central bricks and mortar office.
Cheap Vintage Jerseys For and industry to proper and make great profits, maximum use of these machine must be employed.Bohrwerke become useful when used properly by people with adequate knowledge.org"><strong>peyronies device<strong><a><strong> <strong>to straighten the curve of your penis. To avoid this, make sure you improve on the security of your hotel business. A secondary containment system is required for some of the very dangerous chemicals and this type of system works beautifully for this reason.
Wholesale Cheap Jerseys hxjqcrusher. It also spearheads research and development of renewable fuels for powering our vehicles such as biomass and biodiesel fuels and hydrogen fuel cells.Indeed, sports nutrition is not anymore considered as for the First World countries only, but for worldwide benefit as well. This means your engagement ring is going to come from someone who cares, not a faceless international megacorporation. No one can just set a price without considering the activities of monetary value.
Cheap Jerseys Author Resource:Why You Need Hotel Door Lock System? Get more info through front door lock. People r?l???t? ?im?l? b???u?? th?? wish t? d? so ?r ??m? move with ?n ?blig?ti?n to move. The disease shows up with curved penis which can hamper your sex life.MICHIGANThe Wolverines rode graduate transfer Jake Rudock to 10 wins in coach Jim Harbaugh's surprisingly good first season in Ann Arbor. 2 last year, but being second on the depth chart meant he beat out Ryan Burns, this season's main competition.