[VB.NET]Yahoo! Login(HttpWebRequest+HttpWebResponse)

3 Apr 2010, 6:32 PM#1

Very Simple

Imports System.Web

Imports System.Net

Imports System.IO

Public Sub YahooLogin(ByVal Username As String, ByVal Password As String)

        Dim strU As String, strChallenge As String, strPD As String

        Dim PageSource As String = String.Empty

        Dim CC As CookieContainer = New CookieContainer()



        Dim Request As HttpWebRequest = HttpWebRequest.Create("https://login.yahoo.com/config/login?.src=fpctx&.intl=us&.done=http%3A%2F%2Fwww.yahoo.com%2F")

        Request.Method = WebRequestMethods.Http.Get

        Request.KeepAlive = True

        Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.2) Gecko/20100316 Firefox/3.6.2 (.NET CLR 4.0.20506)"

        Request.CookieContainer = CC

        Dim Response As HttpWebResponse = Request.GetResponse()

        Dim Stream As New StreamReader(Response.GetResponseStream())

        PageSource = Stream.ReadToEnd()

        Response.Close()

        PageSource = Replace(PageSource, Chr(34), "'")

        strU = GetStringBetween(PageSource, "<input type='hidden' name='.u' value='", "'>")

        strChallenge = GetStringBetween(PageSource, "<input type='hidden' name='.challenge' value='", "'>")

        strPD = GetStringBetween(PageSource, "<input type='hidden' name='.pd' value='", "'>")



        '                            .tries=1&.src=fpctx&.md5=&.hash=&.js=&.last=&promo=&.intl=us&.bypass=&.partner=&.u=3u59m6h5res4f&.v=0&.challenge=eS_RUBoq7DSsTyn1GL9RNQznulvj&.yplus=&.emailCode=&pkg=&stepid=&.ev=&hasMsgr=0&.chkP=Y&.done=http://www.yahoo.com/&.pd=fpctx_ver=0&c=&ivt=&sg=&login=EMAIL@yahoo.com&passwd=PASSWORD&.save=Sign In

        '                            .tries=1&.src=fpctx&.md5=&.hash=&.js=&.last=&promo=&.intl=us&.bypass=&.partner=&.u=3u59m6h5res4f&.v=0&.challenge=eS_RUBoq7DSsTyn1GL9RNQznulvj&.yplus=&.emailCode=&pkg=&stepid=&.ev=&hasMsgr=0&.chkP=Y&.done=http%3A%2F%2Fwww.yahoo.com%2F&.pd=fpctx_ver%3D0%26c%3D%26ivt%3D%26sg%3D&login=EMAIL%40yahoo.com&passwd=PASSWORD&.save=Sign+In

        Dim strPostData As String = ".tries=1&.src=fpctx&.md5=&.hash=&.js=&.last=&promo=&.intl=us&.bypass=&.partner=&.u=" & _

        strU & "&.v=0&.challenge=eS_" & _

        strChallenge & "&.yplus=&.emailCode=&pkg=&stepid=&.ev=&hasMsgr=0&.chkP=Y&.done=http%3A%2F%2Fwww.yahoo.com%2F&.pd=" & _

        System.Web.HttpUtility.UrlEncode(strPD) & "&login=" & _

        System.Web.HttpUtility.UrlEncode(Username) & "&passwd=" & _

        Password & "&.save=Sign+In"





        Request = HttpWebRequest.Create("https://login.yahoo.com/config/login?")

        Request.Referer = "https://login.yahoo.com/config/login?.src=fpctx&.intl=us&.done=http%3A%2F%2Fwww.yahoo.com%2F"

        Request.KeepAlive = True

        Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.2) Gecko/20100316 Firefox/3.6.2 (.NET CLR 4.0.20506)"

        Request.CookieContainer = CC

        Request.Method = WebRequestMethods.Http.Post

        Request.ContentType = "application/x-www-form-urlencoded"

        Request.ContentLength = strPostData.Length

        Dim writer As New StreamWriter(Request.GetRequestStream)

        writer.Write(strPostData)

        writer.Close()

        Response = Request.GetResponse()

        Dim reader As New StreamReader(Response.GetResponseStream())

        PageSource = reader.ReadToEnd()

        Response.Close()

        TextBox1.Text = PageSource

        If (InStr(1, PageSource, ">click here</a> to continue.", CompareMethod.Text) <> 0) Then

            MsgBox("Login Success!")

        ElseIf (InStr(1, PageSource, "<title>Sign in to Yahoo!</title>", CompareMethod.Text) <> 0) Then

            MsgBox("Failed To Login")

        End If

    End Sub

Function GetStringBetween

 Public Function GetStringBetween(ByVal InputText As String, ByVal StartText As String, ByVal EndText As String, Optional ByVal StartPosition As Object = 1) As String



        Dim lnTextStart As Integer

        Dim lnTextEnd As Integer



        'UPGRADE_WARNING: Couldn't resolve default property of object StartPosition. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'

        lnTextStart = InStr(StartPosition, InputText, StartText, CompareMethod.Text) + Len(StartText)

        lnTextEnd = InStr(lnTextStart, InputText, EndText, CompareMethod.Text)

        'UPGRADE_WARNING: Couldn't resolve default property of object StartPosition. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'

        If lnTextStart >= (StartPosition + Len(StartText)) And lnTextEnd > lnTextStart Then

            GetStringBetween = Mid(InputText, lnTextStart, lnTextEnd - lnTextStart)

        Else

            GetStringBetween = ""

        End If

    End Function