I'm using the following code to log into a webmail website. It logs me in
fine. I want to then get a particular message. However, I get this error:
Additional information: This property cannot be set after writing has
started.
on the line that I have noted below, which is this line
objRequest.ContentLength = strPost.Length
Any suggestions how I close the write and restart it?
Thanks,
Brett
Private Sub WebPage_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.rtxtShowWebpage.Text =
readHtmlPage("http://netmail.verizon.net/en_US/agent/moblogin")
End Sub
Function readHtmlPage(ByVal url As String) As String
Dim strResult As String = ""
'Dim strPost As String =
"page=/wam/in************************************@earthlink.n et&password=pass&saveuser=&locale=en_US&submit=sub mit"
'Dim strPost As String =
"passurl=http://www.comcast.net/&m**************************************@comcast.n et&passwd=123flash"
Dim strPost As String =
"js*********************************************** *************@verizon.net&PASSWORD=realmagnet1&Sub mit1=Log
In"
'Dim strPost As String =
"login_username=brettr&secretkey=realmagnet15&js_a utodetect_results=0&just_logged_in=1&submit=Login"
Dim myWriter As StreamWriter
Dim CookieContainer1 As New CookieContainer
Dim objRequest As HttpWebRequest = WebRequest.Create(url)
objRequest.Method = "POST"
objRequest.ContentLength = strPost.Length
objRequest.ContentType = "application/x-www-form-urlencoded"
objRequest.CookieContainer = CookieContainer1
Try
myWriter = New StreamWriter(objRequest.GetRequestStream())
myWriter.Write(strPost)
Catch e As Exception
Return e.Message
Finally
myWriter.Close()
End Try
Dim objResponse As System.Net.HttpWebResponse =
objRequest.GetResponse()
Dim sr As StreamReader
sr = New StreamReader(objResponse.GetResponseStream())
strResult = sr.ReadToEnd()
'Start next page request
objRequest.Create("http://netmail.verizon.net/en_US/cgi-bin/gx.cgi/AppLogic+mobmain")
objRequest.Method = "GET"
objRequest.ContentLength = strPost.Length <error occurs here>
objRequest.ContentType = "application/x-www-form-urlencoded"
objRequest.CookieContainer = CookieContainer1
objResponse = objRequest.GetResponse()
Try
myWriter = New StreamWriter(objRequest.GetRequestStream())
myWriter.Write("msgvw=INBOXMN382DELIM1092")
Catch e As Exception
Return e.Message
Finally
myWriter.Close()
End Try
objResponse = objRequest.GetResponse()
sr = New StreamReader(objResponse.GetResponseStream())
strResult = sr.ReadToEnd()
Return strResult
End Function