Error with wodhttp (General questions)
I am getting the following response:
The requested connection has been refused by the remote host.
I have coded in wodHttp many times before, but I have forgot how to do many things. I am simply trying to check to see if an account is valid or invalid to make things easier on me. Here is some code:
Private Sub Command1_Click()
HTTP.Disconnect
HTTP.URL = login.myspace.com/index.cfm?fuseaction=login.process
HTTP.Request.FormPost.Add email , Text1.Text
HTTP.Request.FormPost.Add password , Text2.Text
HTTP.Request.FormPost.Add Remember , Remember
HTTP.Request.FormPost.Add Loginbutton , Login
HTTP.Post
End Sub
Private Sub Form_Load()
HTTP.Request.UserAgent = Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.2) Gecko/20070219 Firefox/2.0.0.2
HTTP.Request.Accept = text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
End Sub
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, 302 Object Moved ) Then
HTTP.Get home.myspace.com/index.cfm?fuseaction=user
RichTextBox1.Text = HTTP.Response.Body
Label1.Caption = INVALID
End If
If InStr(1, RichTextBox1.Text, My Friend Space ) Then
Label1.Caption = VALID
End If
Else
RichTextBox1.Text = ErrorText
End If
End Sub [code][/code]
