Tjekke om link er dødt

Prøv og hent dokumentet med en WebRequest, få en WebResponse med GetResponse og
cast til en HttpWebResponse så vil en exception betyde intet svar mens du vil
kunne se i StatusCode property vilken status kode serveren har returneret.

Hej.. du kunne vel ikke hurtigt skitse et eksempel sammen kunne ud?..  jeg har aldrig før  brugt nogen af de ting der før :/

5 minutter

using System;
using System.Net;

namespace E
{
    public class WebTest
    {
        public static void Test(string url)
        {
            try
            {
                WebRequest wreq = WebRequest.Create(url);
                WebResponse wresp = wreq.GetResponse();
                if(wresp is HttpWebResponse)
                {
                    HttpWebResponse hwresp = (HttpWebResponse)wresp;
                    if(hwresp.StatusCode == HttpStatusCode.OK)
                    {
                        Console.WriteLine(url + " is working");
                    }
                    else
                    {
                        Console.WriteLine(url + " has problems: " + hwresp.StatusDescription);
                    }
                }
                else
                {
                    Console.WriteLine(url + " is not a HTTP URL");
                }
            }
            catch(Exception ex)
            {
                Console.WriteLine(url + " has problems: " + ex.Message);
            }
        }
    }
    class MainClass
    {
        public static void Main(string[] args)
        {
            WebTest.Test("http://arne/index.html");
            WebTest.Test("http://arne/notexist.html");
            WebTest.Test("http://notexist/index.html");
        }
    }
}

eller i VB.NET:

Imports System
Imports System.Net

Namespace E
    Public Class WebTest
        Public Shared Sub Test(ByVal url As String)
            Try
                Dim wreq As WebRequest = WebRequest.Create(url)
                Dim wresp As WebResponse = wreq.GetResponse
                If TypeOf wresp Is HttpWebResponse Then
                    Dim hwresp As HttpWebResponse = CType(wresp, HttpWebResponse)
                    If hwresp.StatusCode = HttpStatusCode.OK Then
                        Console.WriteLine(url + " is working")
                    Else
                        Console.WriteLine(url + " has problems: " + hwresp.StatusDescription)
                    End If
                Else
                    Console.WriteLine(url + " is not a HTTP URL")
                End If
            Catch ex As Exception
                Console.WriteLine(url + " has problems: " + ex.Message)
            End Try
        End Sub
    End Class

    Class MainClass
        Public Shared Sub Main(ByVal args As String())
            WebTest.Test("http://arne/index.html")
            WebTest.Test("http://arne/notexist.html")
            WebTest.Test("http://notexist/index.html")
        End Sub
    End Class
End Namespace

den smider iøvrigt en exception også ved ikke eksisterende sider

using System;
using System.Net;

namespace E
{
    public class WebTest
    {
        public static void Test(string url)
        {
            try
            {
                WebRequest wreq = WebRequest.Create(url);
                WebResponse wresp = wreq.GetResponse();
                if(wresp is HttpWebResponse)
                {
                    HttpWebResponse hwresp = (HttpWebResponse)wresp;
                    if(hwresp.StatusCode == HttpStatusCode.OK)
                    {
                        Console.WriteLine(url + " is working");
                    }
                    else
                    {
                        Console.WriteLine(url + " has small problems: " + hwresp.StatusDescription);
                    }
                }
                else
                {
                    Console.WriteLine(url + " is not a HTTP URL");
                }
            }
            catch(WebException wex)
            {
                if(wex.Response == null)
                {
                    Console.WriteLine(url + " has big problems: " + wex.Message);
                }
                else
                {
                    if(wex.Response is HttpWebResponse)
                    {
                        HttpWebResponse hwresp = (HttpWebResponse)wex.Response;
                        if(hwresp.StatusCode == HttpStatusCode.OK)
                        {
                            Console.WriteLine(url + " is working");
                        }
                        else
                        {
                            Console.WriteLine(url + " has small problems: " + hwresp.StatusDescription);
                        }
                    }
                    else
                    {
                        Console.WriteLine(url + " is not a HTTP URL");
                    }
                }
            }
        }
    }
    class MainClass
    {
        public static void Main(string[] args)
        {
            WebTest.Test("http://arne/index.html");
            WebTest.Test("http://arne/notexist.html");
            WebTest.Test("http://notexist/index.html");
        }
    }
}

Imports System
Imports System.Net

Namespace E
    Public Class WebTest
        Public Shared Sub Test(ByVal url As String)
            Try
                Dim wreq As WebRequest = WebRequest.Create(url)
                Dim wresp As WebResponse = wreq.GetResponse
                If TypeOf wresp Is HttpWebResponse Then
                    Dim hwresp As HttpWebResponse = CType(wresp, HttpWebResponse)
                    If hwresp.StatusCode = HttpStatusCode.OK Then
                        Console.WriteLine(url + " is working")
                    Else
                        Console.WriteLine(url + " has small problems: " + hwresp.StatusDescription)
                    End If
                Else
                    Console.WriteLine(url + " is not a HTTP URL")
                End If
            Catch wex As WebException
                If wex.Response Is Nothing Then
                    Console.WriteLine(url + " has big problems: " + wex.Message)
                Else
                    If TypeOf wex.Response Is HttpWebResponse Then
                        Dim hwresp As HttpWebResponse = CType(wex.Response, HttpWebResponse)
                        If hwresp.StatusCode = HttpStatusCode.OK Then
                            Console.WriteLine(url + " is working")
                        Else
                            Console.WriteLine(url + " has small problems: " + hwresp.StatusDescription)
                        End If
                    Else
                        Console.WriteLine(url + " is not a HTTP URL")
                    End If
                End If
            End Try
        End Sub
    End Class

    Class MainClass
        Public Shared Sub Main(ByVal args As String())
            WebTest.Test("http://arne/index.html")
            WebTest.Test("http://arne/notexist.html")
            WebTest.Test("http://notexist/index.html")
        End Sub
    End Class
End Namespace

så skulle den skelne mellem ikke eksisterende side (small problem) og ikke eksisterende
server (big problem)

Takker mange gange :)

smider du lige et svar? :)

kommer her