実際のサイトでWebSite 503エラーが発生しましたか？完了

Question

Public Function GetIPInfo(ByVal IPNumb As String, ByVal GetInfo As String) As String 
    Dim i1, i2 As Integer 
    Dim s1, s2, s3 As String 
    Dim IPCheckWebsite As String 
    Dim WC As System.Net.WebClient = New System.Net.WebClient() 
    IPCheckWebsite = WC.DownloadString("http://whatismyipaddress.com/ip/" & IPNumb) 
    For i1 = 1 To Len(IPCheckWebsite) 
     s1 = Mid(IPCheckWebsite, 1, i1) 
     If InStr(s1, GetInfo) > 0 Then 
      s2 = Mid(IPCheckWebsite, i1 + 10) 
      For i2 = 1 To Len(s2) 
       s3 = Mid(s2, 1, i2) 
       If InStr(s3, "<") > 0 Then 
        IPCheckWebsite = Mid(s3, 1, i2 - 1) 
        GoTo Done 
       End If 
      Next 
     End If 
    Next 

： 戻るIPCheckWebsite エンド機能は

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    ListBox1.Items.Clear() 
    ListBox1.Items.Add("IP: " & GetIPInfo(TextBox3.Text, "IP:")) 
    ListBox1.Items.Add("Hostname: " & GetIPInfo(TextBox3.Text, "Hostname:")) 
    ListBox1.Items.Add("ISP: " & GetIPInfo(TextBox3.Text, "ISP:")) 
    ListBox1.Items.Add("Organization: " & GetIPInfo(TextBox3.Text, "Organization:")) 
    ListBox1.Items.Add("Services: " & GetIPInfo(TextBox3.Text, "Services:")) 
    ListBox1.Items.Add("Country: " & GetIPInfo(TextBox3.Text, "Country:")) 
    ListBox1.Items.Add("State/Region: " & GetIPInfo(TextBox3.Text, "State/Region:")) 
    ListBox1.Items.Add("City: " & GetIPInfo(TextBox3.Text, "City:")) 
End Sub 

これは、ウェブサイトのサーバーが503エラーを持っていると言い、しかし、サイトがアップしていると正常に動作します。私は何かが間違っているのですか？

Dim WC As System.Net.WebClient = New System.Net.WebClient() 
    IPCheckWebsite = WC.DownloadString("http://whatismyipaddress.com/ip/" & IPNumb) 

特にこのコード

Answer 1

私の推測では、whatismyipaddress.comはおそらく試してみて、あなたは何をしているかを正確にやってから人々を阻止するための場所での対策を持っているということです。

「サービス利用不可」を意味する503応答を返しています。

ボットで自分のサイトを傷つけることができると確信できる場合は、whatismyaddress.comの管理者に連絡してください。

あなたのコードに関するもう1つの問題は、ワンクリックで8回ページを取得しているように見えることです.WC.DownloadStringがレスポンスをキャッシュしていることがわかっている場合を除き、おそらくエチケットではありません。