处理非URL错误

2013-03-28 49 views 0 likes

我试图运行以下命令：处理非URL错误

Dim a As Boolean = False 
     Try 
      Dim myHTTPWebRequest As HttpWebRequest = CType(WebRequest.Create(txtToShorten.Text), HttpWebRequest) 
      Dim myHTTPwebResponse As HttpWebResponse = CType(myHTTPWebRequest.GetResponse(), HttpWebResponse) 
      If myHTTPwebResponse.StatusCode = HttpStatusCode.OK Then 
       a = True 
      End If 
     Catch e As WebException 
     Catch e As Exception 
     End Try 
     Return a

当我做了正确的URL其工作正常，返回true，但如果输入的网址不是有效的，那么它没有在返回一个值。

有什么想法吗？

来源

2013-03-28 Mark Cooney

嗨马克，道歉，但我不是100％的问题 - 是关于如何检测是否在'txtToShorten.Text'提供了一个无效的URL的问题？ – nkvu

分类谢谢 –

回答

其实，这正常工作对我来说：

Imports System.Net

公共类Form1中

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    Dim x As Boolean = bb() 
    x = x 

End Sub 

Private Function bb() As Boolean 

    Dim a As Boolean = False 
    Try 
     Dim myHTTPWebRequest As HttpWebRequest = CType(WebRequest.Create("http:\\www.fokikkkkkrd.com"), HttpWebRequest) 
     Dim myHTTPwebResponse As HttpWebResponse = CType(myHTTPWebRequest.GetResponse(), HttpWebResponse) 
     If myHTTPwebResponse.StatusCode = HttpStatusCode.OK Then 
      a = True 
     End If 
    Catch ex As WebException 
    Catch ex As Exception 
    End Try 
    Return a 

End Function

末级

是你把这段代码的函数里面？

来源

2013-03-29 15:12:13 Rob

处理非URL错误

回答

相关问题