というのをVB.Netでチェックするロジック。すっごくベタｗ
Private Function CheckURL(ByVal cURL As String) As Boolean
'入力が無いならFalse
If cURL = "" Then
Return False
End If
'チェック開始
Try
Dim chp = Net.WebRequest.Create(cURL)
Dim resultSet = chp.GetResponse
Catch ex As Exception
Return False
End Try
Return True
End Function恐ろしく単純明快、危険極まりないのは確か。
本来なら、404かどうかとか、Responseコードをちゃんとチェックした方がいいと思うの。