I finally got back to a project that I have not worked on in several months. It was working as expected then, but now I am getting this error. I suspect it has to do with the increased security from various system updates from Microsoft. This portion of the program sends out the URL stored in "strHTML" merged with "searchtype" and "strURL" to create a string looking like
I get the error at the "objResponse = objRequest.GetResponse" line...
"Run-time exception thrown : System.Net.WebException - The underlying connection was closed: The server committed an HTTP protocol violation"
The opening system arguements are...
And the subroutine is...
Private Function Scrape(ByVal searchtype As String, ByVal strURL As String) As String
Dim objRequest As Net.WebRequest ' Request to a Uniform Resource Identifier
Dim TimeoutInSeconds As Integer = 10 ' Default responce timeout (Move to INI)
Dim objResponse As Net.WebResponse ' Response from a Uniform Resource Identifier
Dim objStreamReceive As System.IO.Stream ' Holder for received encoded data
Dim objEncoding As System.Text.Encoding ' Unicode encoding method
Dim objStreamRead As System.IO.StreamReader ' Character input
Dim strHTML As String = "http://library.pcc.edu/search/
" ' Move this string to INI eventually
' Setup web request and send obj
objRequest = Net.WebRequest.Create(strH
TML & searchtype & "?SEARCH=" & strURL)
' Convert request multiplier to milliseconds and start timer
Request.Timeout = TimeoutInSeconds * 2000
' Response from internet request
objResponse = objRequest.GetResponse
' Retrieve data stream from internet
objStreamReceive = objResponse.GetResponseStr
objEncoding = System.Text.Encoding.GetEn
f-8")' Sets unicode encoding
' Reads characters from stream
objStreamRead = New System.IO.StreamReader(obj
' Set function return value
Scrape = objStreamRead.ReadToEnd()
' Check if available, then close response
If Not objResponse Is Nothing Then
' Cleans up the resources and closes the stream
' Error occured requesting data, Make a pretty error message
Return "Network Error"
End Function ' Scrape