Problem (wodHttpDLX)

by celtik, Saturday, November 22, 2008, 17:34 (5640 days ago)

OK, I coded a program to check an account. When I made a project with only two textboxes and a command button with the following code it works:
[code]
HTTP.Disconnect
HTTP.URL = http://xxxx
HTTP.Request.FormPost.Add _VIEWSTATE , 2FwEPDwUJNTU4OTgyNDc1ZBgBBR5fX0NvbnRyb2xzUmVxdWlyZVBvc3RCYWNrS2V5X18WAQUnY3RsMDAkY3BNYWluJExvZ2luQm94JFJlbWVtYmVyX0NoZWNrYm94
HTTP.Request.FormPost.Add NextPage ,
HTTP.Request.FormPost.Add ctl00$cpMain$LoginBox$Email_Textbox , Text1.Text
HTTP.Request.FormPost.Add ctl00$cpMain$LoginBox$Password_Textbox , Text2.Text
HTTP.Request.FormPost.Add dlb , Log In
HTTP.Request.FormPost.Add ctl00$cpMain$LoginBox$SingleSignOnHash ,
HTTP.Request.FormPost.Add ctl00$cpMain$LoginBox$SingleSignOnRequestUri ,
HTTP.Request.FormPost.Add ctl00$cpMain$LoginBox$nexturl ,
HTTP.Request.FormPost.Add ctl00$cpMain$LoginBox$apikey ,
HTTP.Request.FormPost.Add ctl00$cpMain$LoginBox$ContainerPage ,
HTTP.Post

Private Sub HTTP_Done(ByVal ErrorCode As Long, ByVal ErrorText As String)
Dim oldcookie As HttpCookie
For Each oldcookie In HTTP.Response.Cookies
HTTP.Request.Cookies.Add oldcookie.Name, oldcookie.Value
Next
If ErrorCode = 0 Then
HTTP.Disconnect
RichTextBox1.Text = HTTP.Response.Body
If InStr(1, RichTextBox1.Text, Skip this Advertisement ) Then
Label1.Caption = home
HTTP.URL = http://xxx
HTTP.Get
RichTextBox1.Text = HTTP.Response.Body
End If
If InStr(1, RichTextBox1.Text, My Friend Space ) Then
Label1.Caption = VALID
End If
If InStr(1, RichTextBox1.Text, Please log in to continue ) Then
Label1.Caption = INVALID
End If
Else
RichTextBox1.Text = ErrorText
End If
End Sub
[/code]

I will post the next part of code in the next post to save room