2009年4月1日 星期三

判斷URL位置存不存在

假設我們今天要寫一個股票程式,截取來源為YAHOO,
但很不幸的對方網頁掛掉,如果沒有加以判斷有可能造成程式錯誤!!

我們可以用以下的方式來判斷URL存在的問題

Dim urlCheck As String = "http://tw.yahoo.comxxx"
Dim request As Net.WebRequest = Net.WebRequest.Create(urlCheck)
request.Timeout = 15000
Dim response As Net.WebResponse
Try
response = request.GetResponse()
MsgBox("Url存在")
Catch generatedExceptionName As Exception
MsgBox("Url不存在")
End Try

沒有留言:

##EasyReadMore##