Why Return:
<head><title>Ob ject moved</title></head>
<body><h1>Objec t Moved</h1>This object may be found <a HREF="default2. asp?CTL=C60A93E 7FFFFCD87000042 D692CD2D13CE752 C82">here</a>.</body>
Public Function TextoURL(ByVal URL As String, Optional ByVal Post As String = "", Optional ByVal Encoding As String = "Default") As String
Try
Dim PostData() As Byte = System.Text.Enc oding.ASCII.Get Bytes(Post)
Dim webRequest As System.Net.Http WebRequest = System.Net.Http WebRequest.Crea te(URL)
Dim webResponse As System.Net.Http WebResponse
Dim webStream As System.IO.Strea m
Dim webStreamReader As System.IO.Strea mReader
webRequest.Allo wAutoRedirect = False
webRequest.Cont entLength = PostData.Length
webRequest.Cont entType = "applicatio n/x-www-form-urlencoded"
webRequest.Meth od = "Post"
webStream = webRequest.GetR equestStream
webStream.Write (PostData, 0, PostData.Length )
webResponse = webRequest.GetR esponse
If Encoding = "Default" Then webStreamReader = New System.IO.Strea mReader(webResp onse.GetRespons eStream, System.Text.Enc oding.Default) Else webStreamReader = New System.IO.Strea mReader(webResp onse.GetRespons eStream, System.Text.Enc oding.GetEncodi ng(Encoding))
Return webStreamReader .ReadToEnd
Catch
Return ""
End Try
End Function
<head><title>Ob ject moved</title></head>
<body><h1>Objec t Moved</h1>This object may be found <a HREF="default2. asp?CTL=C60A93E 7FFFFCD87000042 D692CD2D13CE752 C82">here</a>.</body>
Public Function TextoURL(ByVal URL As String, Optional ByVal Post As String = "", Optional ByVal Encoding As String = "Default") As String
Try
Dim PostData() As Byte = System.Text.Enc oding.ASCII.Get Bytes(Post)
Dim webRequest As System.Net.Http WebRequest = System.Net.Http WebRequest.Crea te(URL)
Dim webResponse As System.Net.Http WebResponse
Dim webStream As System.IO.Strea m
Dim webStreamReader As System.IO.Strea mReader
webRequest.Allo wAutoRedirect = False
webRequest.Cont entLength = PostData.Length
webRequest.Cont entType = "applicatio n/x-www-form-urlencoded"
webRequest.Meth od = "Post"
webStream = webRequest.GetR equestStream
webStream.Write (PostData, 0, PostData.Length )
webResponse = webRequest.GetR esponse
If Encoding = "Default" Then webStreamReader = New System.IO.Strea mReader(webResp onse.GetRespons eStream, System.Text.Enc oding.Default) Else webStreamReader = New System.IO.Strea mReader(webResp onse.GetRespons eStream, System.Text.Enc oding.GetEncodi ng(Encoding))
Return webStreamReader .ReadToEnd
Catch
Return ""
End Try
End Function