POST /registration;_ylt=Amw.PhwB5E.stLUBnuRzxoSZ2PAI HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/xaml+xml, application/vnd.ms-xpsdocument, application/x-ms-xbap, application/x-ms-application, application/x-silverlight, */*
Referer: https://edit.india.yahoo.com/registration?....omo=&.last=
Accept-Language: en-us
Content-Type: application/x-www-form-urlencoded
UA-CPU: x86
User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; .NET CLR 3.0.04506.648)
Host: edit.india.yahoo.com
Content-Length: 807
Connection: Keep-Alive
Pragma: no-cache
Cookie: B=4dnko1h43ek4p&b=3&s=97

u=5b178pd43ek5n&dracs=&t=x2F6Q4.MzeGZRlr35zVb1DkywcQjtqkCMrdWMjcL5jX.V6Y1do4hqQ8aOF2HAHDw3jr30lHHDA
NXTIXGXaohokYjurJtWrgBEDE3ucfh2EOavo0VGwzarjnQ4VJVw_kLYlX4.XVpbLNai8H1BhVbwb8.iO
vNBnMSdx1yaaDHdSh6zml1DMIEHZ143m0LGzz8Rxn6nnHe8JcWdRh1en0AJC.s9eYumSrm1taEZAoQ_S
oCEt00C8MtUQ--%7EB&done=http%3A%2F%2Fmail.yahoo.com&last=&partner=yahoo_default&intl=us&src=ym&.scrumb=&jsenabled=0&preferredcontent=us&firstname=sadfdas&secondname=ewerq&gender=m&mm=2&dd=1&yyyy=1981&country=us&postalcode=58443&yahooid=dfk58443lkalsdfk&domain=yahoo.com&password=bobobob&passwordconfirm=bobobob&altemail=&secquestion=Who+was+your+childhood+hero%3F&secquestionanswer=dsfdsfadfs&cword=fw8nyvl&cdata=ftqaZeJZFelVDTGYXguGQO75qbdYepa6qbxfs5c2jew_iXlBPSPrIVt8DMAhTLjTWv7KGD
DVEErJLca0hg--&showc=1&tos_agreed=y&IAgreeBtn=Create+My+Account

POST /registration;_ylt=AkbfFrpAnjNO5TMJr36fEHeZ2PAI HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/xaml+xml, application/vnd.ms-xpsdocument, application/x-ms-xbap, application/x-ms-application, application/x-silverlight, */*
User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; .NET CLR 3.0.04506.648)
Content-Type: application/x-www-form-urlencoded
Referer: https://edit.india.yahoo.com/registration?....omo=&.last=
Host: edit.india.yahoo.com
Cookie: B=11uird143f8gg&b=3&s=2v
Content-Length: 804
Connection: Keep-Alive

u=f1p49q543f8gj&dracs=&t=c.kVhRIoP.HFU6QfWH.b0CftVs9X73rAw.U_hBx.y9JCxffF2ctaHKrOcaKQnOBNm7iClR402h
HW8RM8BozEdxaxki05iRoJ.Dag.P3_jRAw9QILVBTONHiCwpdt50_E0q81D9Nd16qrsR7tpnSvMJ6zZh
JP0hRIBkNgFzXDuR8l4A9ndFkQtuMvJnrtFyGdngja5d16AAi0Tq5VeYqKBDTWuTm6iIlQurTLJyvYQ0
EPYbheZ3_esw--%7EB&done=http%3A%2F%2Fmail.yahoo.com&last=&partner=yahoo_default&intl=us&src=ym&.scrumb=&jsenabled=0&preferredcontent=us&firstname=MQYhLVgujy&secondname=BrXTSVyGEk&gender=m&mm=5&dd=12&yyyy=1947&country=us&postalcode=40076&yahooid=igbl49U&domain=yahoo.com&password=Nb6s5cR&passwordconfirm=Nb6s5cR&altemail=&secquestion=Where+did+you+meet+your+spouse%3F&secquestionanswer=7IiKII&cword=8teyj4e&cdata=5wtKjOJZFemg3x.fc7zjW2fNv.BxMnIccglRTwNkIaMYMDzucE_SZ7cB5ZHefjZetpKvKL
tJpHLekJpb4g--&showc=1&tos_agreed=y&IAgreeBtn=Create+My+Account

Public Shared Function HTTPGET(ByVal HTTPDataIn As HTTPDataIn) As HTTPDataOut
Dim HTTPDataOut As New HTTPDataOut
Dim httpRequest As HttpWebRequest
Dim httpResponse As HttpWebResponse = Nothing
Dim responseStream As Stream = Nothing
Dim responseEncoding As Encoding
Dim responseStreamReader As StreamReader = Nothing
'Dim cookieContainerTempOut As New CookieCollection
Dim iIndex As Integer

Try
HTTPDataOut.bUnsucessful = False
HTTPDataOut.strErrorCode = ""
httpRequest = CType(WebRequest.Create(HTTPDataIn.strServer), HttpWebRequest)

'proxy
If HTTPDataIn.bEnableProxy = True Then
Dim wpRequest As New WebProxy
Dim uriPrxy As New Uri(HTTPDataIn.piProxy.strServer + ":" + HTTPDataIn.piProxy.strPort)
wpRequest.Address = uriPrxy
If HTTPDataIn.piProxy.strUsername IsNot Nothing Then
wpRequest.Credentials = New NetworkCredential(HTTPDataIn.piProxy.strUsername, HTTPDataIn.piProxy.strPassword)
End If
httpRequest.Proxy = wpRequest
End If

'set the timeout
If HTTPDataIn.bEnforceTimeout = True Then
httpRequest.Timeout = HTTPDataIn.iTimeout * 1000
End If

'auto redirect
If HTTPDataIn.bAllowAutoRedirect = True Then
httpRequest.AllowAutoRedirect = True
Else
httpRequest.AllowAutoRedirect = False
End If

'accept
If HTTPDataIn.strAccept.Length > 0 Then
httpRequest.Accept = HTTPDataIn.strAccept
End If

'Referer
If HTTPDataIn.strReferer IsNot Nothing Then
httpRequest.Referer = HTTPDataIn.strReferer
End If

httpRequest.Headers.Add(HttpRequestHeader.AcceptLanguage, "en-us")
httpRequest.Headers.Add("UA-CPU", "x86")

'useragent
If HTTPDataIn.strUserAgent.Length > 0 Then
httpRequest.UserAgent = HTTPDataIn.strUserAgent
End If

'httpRequest.KeepAlive = True

'Cookies
httpRequest.CookieContainer = New CookieContainer()
If HTTPDataIn.cookieCollection IsNot Nothing Then
For iIndex = 0 To HTTPDataIn.cookieCollection.Count - 1
httpRequest.CookieContainer.Add(HTTPDataIn.cookieCollection)
Next
End If

httpRequest.ProtocolVersion = HttpVersion.Version10


'Console Logging Out
LoggingOut(HTTPDataIn, httpRequest, HTTPDataIn.cookieCollection, True)

httpResponse = CType(httpRequest.GetResponse(), HttpWebResponse)

responseStream = httpResponse.GetResponseStream()
responseEncoding = System.Text.Encoding.GetEncoding("utf-8")

HTTPDataOut.strResponseCode = httpResponse.StatusCode.ToString

'Return header information
Dim colHeaders As New System.Net.WebHeaderCollection
colHeaders = httpResponse.Headers
HTTPDataOut.strLocation = colHeaders("Location")
HTTPDataOut.strEncoding = colHeaders("Content-Encoding")
HTTPDataOut.strServer = httpResponse.ResponseUri.OriginalString
'Return cookies
Dim ccTemp As CookieCollection = httpResponse.Cookies

'This is required because of a "bug" in the cookies class. Its not really a bug
'because it is RFC complient but not all cookies will be set in some cases. An
'example of this is www.aol.com. When sending cookies to other subdomains such as
'new.aol.com the cookie will not be sent even though the PATH variable is set to '/'
If HTTPDataIn.bSetCookieToRoot = True Then
Dim strSplit() As String
For iIndex = 0 To ccTemp.Count - 1
strSplit = ccTemp.Item(iIndex).Domain.Split("."c)
'Use only the domain, i.e. .aol.com
ccTemp.Item(iIndex).Domain = "." + strSplit(strSplit.Length - 2) + "." + strSplit(strSplit.Length - 1)
strSplit = Nothing
Next
End If
HTTPDataOut.cookieContainer = ccTemp


'Decode if gzip is used
If HTTPDataOut.strEncoding = "gzip" Then
Dim gzipDLL As New ICSharpCode.SharpZipLib.GZip.GZipInputStream(responseStream)
responseStreamReader = New StreamReader(gzipDLL, responseEncoding)
Else
responseStreamReader = New StreamReader(responseStream, responseEncoding)
End If

If Not responseStreamReader Is Nothing Then
HTTPDataOut.strResponse = responseStreamReader.ReadToEnd
Else
HTTPDataOut.strResponse = ""
HTTPDataOut.strErrorCode = "Null Response"
HTTPDataOut.bUnsucessful = True
End If

'Console Logging In
LoggingIn(HTTPDataIn, HTTPDataOut, httpResponse)
httpResponse.Close()

'handle thrown exceptions
Catch ex As WebException
WebExceptionHandling(ex, HTTPDataOut)
Catch ex As InvalidOperationException
HTTPDataOut.strResponse = ""
HTTPDataOut.strErrorCode = "Invalid Operation Exception"
HTTPDataOut.bUnsucessful = True
Catch ex As UriFormatException
HTTPDataOut.strResponse = ""
HTTPDataOut.strErrorCode = "Uri Format Exception"
HTTPDataOut.bUnsucessful = True
Catch ex As NullReferenceException
HTTPDataOut.strResponse = ""
HTTPDataOut.strErrorCode = "Null Reference Exception"
HTTPDataOut.bUnsucessful = True
Catch ex As Exception
HTTPDataOut.strResponse = ""
HTTPDataOut.strErrorCode = "General Exception"
HTTPDataOut.bUnsucessful = True
Finally
If Not httpResponse Is Nothing Then
httpResponse.Close()
End If
If Not responseStream Is Nothing Then
responseStream.Close()
End If
If Not responseStreamReader Is Nothing Then
responseStreamReader.Close()
End If
End Try
Return HTTPDataOut
End Function

Private Function requestMailPage() As Boolean
_HTTPDataIn.strServer = strRegionalServer + "/config/mail"
_HTTPDataIn.bAllowAutoRedirect = True
_HTTPDataIn.cookieCollection = Nothing

Try
_HTTPDataOut = HTTPGET(_HTTPDataIn)
If _HTTPDataOut.bUnsucessful = True Then
BeginInvoke(_cmd_BeforeFailDeleg, New Object() {_strLoginName, _strPassword, _HTTPDataOut.strErrorCode})
Else
_strReferer = _HTTPDataOut.strServer
_cookieHomepage = _HTTPDataOut.cookieContainer

'Signup server
_strSignupServer = HTTPStringFind(_HTTPDataOut.strResponse, "<p class=""yreglgsub""><a href=""", """>")

requestSigninPage()
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Function