[vbnet]

.....

منقول

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox(IsUrlAvailable("http://vb4arb.com/"))
End Sub

Public Function IsUrlAvailable(ByVal url As String) As Boolean
    On Error Resume Next
    Return IIf(System.Net.WebRequest.Create(New System.Uri(url)).GetResponse Is Nothing, False, True)
End Function

.....