Can't login via POST?

[Brett]

I'm trying three different methods for logging into a webmail account. In
Post1() and Post2(), I always get back the login page. Not the page after
logging in. On TryCookies(), I'm not sure. It will run but there are some
other things that need to take place. Any suggestion on what is wrong with
the Post1() and Post2() or how to get TryCookies() going? Any other
guidance is appreciated.

Private Sub TryCookies()
Dim uri As New
Uri("http://netmail.verizon .net/en_US/agent/mo************* ***********@ver izon.net&passwo rd=somepassword &jsCapable=1&fr ames=0&LOCALE=e n_US&VARIANT=")
Dim cookieUri As New Uri("http://netmail.verizon .net")
Dim request As System.Net.Http WebRequest
Dim response As System.Net.Http WebResponse
request = CType(System.Ne t.WebRequest.Cr eate(uri),
System.Net.Http WebRequest)
request.CookieC ontainer = New System.Net.Cook ieContainer
request.CookieC ontainer.SetCoo kies(cookieUri,
"ABCD=G7789Ooqd owjkc7rrFA28r5h p0f78e")
'Me.rtxtShowWeb page.Text = response.Conten tEncoding()
End Sub

Private Sub Post2()

Dim encoding As New ASCIIEncoding
' Use the appropriate HTML field names to stuff into the post header
Dim PostData As String =
"?u************ ****@verizon.ne t&password=some password&jsCapa ble=1&frames=0& LOCALE=en_US&VA RIANT="
Dim Data() As Byte = encoding.GetByt es(PostData)
'Dim Cookies As New CookieContainer

' Initialise the request
Dim LoginReq As System.Net.Http WebRequest =
System.Net.WebR equest.Create(" http://netmail.verizon .net/en_US/agent/moblogin")
With LoginReq
.KeepAlive = False
.Method = "POST"
' Note: if the page uses a redirect if will fail (see below)
.AllowAutoRedir ect = False
.ContentType = "applicatio n/x-www-form-urlencoded"
.ContentLength = Data.Length
End With

' Add the POST data
Dim SendReq As Stream = LoginReq.GetReq uestStream
SendReq.Write(D ata, 0, Data.Length)
SendReq.Close()

' Obtain the response
Dim LoginRes As System.Net.Http WebResponse = LoginReq.GetRes ponse()
Dim sReader As StreamReader = New
StreamReader(Lo ginRes.GetRespo nseStream)
Dim HTML As String = sReader.ReadToE nd
Me.rtxtShowWebp age.Text = HTML
End Sub

Private Sub Post1()
Dim wrq As System.Net.WebR equest = _
System.Net.WebR equest.Create(" http://netmail.verizon .net/en_US/agent/moblogin")
wrq.Credentials = New System.Net.Netw orkCredential(" us**@verizon.ne t",
"somepasswo rd")
Dim wrp As System.Net.WebR esponse = wrq.GetResponse ()
Dim sr As New StreamReader(wr p.GetResponseSt ream())
'MessageBox.Sho w(sr.ReadToEnd( ))
Me.rtxtShowWebp age.Text = sr.ReadToEnd
sr.Close()
wrp.Close()

Dim myclient As System.Net.WebC lient = New System.Net.WebC lient
Dim bufData As Byte()
Dim firstLevelbufDa ta As String
bufData = myclient.Downlo adData("http://www.microsoft.c om")
' got the bufData now convert it into string format
' firstLevelbufDa ta is a string variable
firstLevelbufDa ta = Encoding.Defaul t.GetString(buf Data)
End Sub
Thanks,
Brett