Réponse acceptée !
En gros ca donne ca :
Dim oRequest As HttpWebRequest
Dim OResponse As HttpWebResponse
Try
oRequest = WebRequest.Create(Me.TextBox1.Text)
OResponse = oRequest.GetResponse
Label1.Text = OResponse.StatusCode()
Catch ex As Exception
Label1.Text = "Failed"
End Try
Par contre si l'erreur 404 est geré et automatiquement redirigé,
la ca ne va pas marcher, c'est normal, seul un etre humain peut voir
que c'est une page d'erreur :p et le code response retourné dans le
head de la response HTTP sera 200 (OK) et non 404 ce qui est normal vu
que l'url retourne quelque chose.
Essaye : http://www.aspfr.com/coucouNix et
http://www.aspfr.com/coucouNix.aspx dans le cas 1 tu auras failled, si
tu vas sur la page tu tombes sur une 404, dans le cas 2 tu auras 200
car la page a bien été retourné (une page d'erreur certes mais une page
quand meme)
PS : Je prefere être appellé Cyril que JesusOnLine
Cyril - http://Hoshimi.CodeS-SourceS.fr