Note that there are some explanatory texts on larger screens.

plurals
  1. POWebSite 503 Error on Real Site?
    primarykey
    data
    text
    <pre><code>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/" &amp; IPNumb) For i1 = 1 To Len(IPCheckWebsite) s1 = Mid(IPCheckWebsite, 1, i1) If InStr(s1, GetInfo) &gt; 0 Then s2 = Mid(IPCheckWebsite, i1 + 10) For i2 = 1 To Len(s2) s3 = Mid(s2, 1, i2) If InStr(s3, "&lt;") &gt; 0 Then IPCheckWebsite = Mid(s3, 1, i2 - 1) GoTo Done End If Next End If Next </code></pre> <p>Done: Return IPCheckWebsite End Function</p> <pre><code>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Clear() ListBox1.Items.Add("IP: " &amp; GetIPInfo(TextBox3.Text, "IP:")) ListBox1.Items.Add("Hostname: " &amp; GetIPInfo(TextBox3.Text, "Hostname:")) ListBox1.Items.Add("ISP: " &amp; GetIPInfo(TextBox3.Text, "ISP:")) ListBox1.Items.Add("Organization: " &amp; GetIPInfo(TextBox3.Text, "Organization:")) ListBox1.Items.Add("Services: " &amp; GetIPInfo(TextBox3.Text, "Services:")) ListBox1.Items.Add("Country: " &amp; GetIPInfo(TextBox3.Text, "Country:")) ListBox1.Items.Add("State/Region: " &amp; GetIPInfo(TextBox3.Text, "State/Region:")) ListBox1.Items.Add("City: " &amp; GetIPInfo(TextBox3.Text, "City:")) End Sub </code></pre> <p>It says the website server has a 503 Error, But the site is up and works fine. Am I Doing Something Wrong?</p> <pre><code>Dim WC As System.Net.WebClient = New System.Net.WebClient() IPCheckWebsite = WC.DownloadString("http://whatismyipaddress.com/ip/" &amp; IPNumb) </code></pre> <p>specifically This code</p>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload