Re: consuming system resources (General questions)

by pmtroutok, Tuesday, April 17, 2007, 20:40 (6430 days ago) @ woddrazen

Private Sub http_Done(Index As Integer, ByVal ErrorCode As Long, ByVal ErrorText As String)
Dim Results(0 to 100) as string
Dim oldcookie(0 To 100) As HttpCookie

For Each oldcookie(Index) In http(Index).Response.Cookies
http(Index).Request.Cookies.Add oldcookie(Index).Name, oldcookie(Index).Value
Next


If ErrorCode <> 0 Then
Results(Index) = ErrorText
Call Reconnect(Index)
Else




Results(Index) = http(Index).Response.Body
http(Index).Disconnect
ProcessHTML Index, Results(Index)

End If
End Sub

///////////////////////////////////////////////////////////////////////////////////////////////////////

Public Sub ProcessHTML(index as integer, strData as string)
if http(Index).URL = http://www.blah.com/ And InStr(strdata, <form action= )<> 0 Then
http(Index).Request.FormPost.RemoveAll
http(Index).Request.Cookies.RemoveAll
http(Index).Request.FormPost.Add email , Email(Index)
http(Index).Request.FormPost.Add pass , Password(Index)
http(Index).Post https://login.blah.com/login.php
Exit Sub
End If
end sub