Visual Basic 2010: Problem with WebSite Login

[Der Anbieter]

Originally Posted by boxxiebabee

Are you ******* stupid?! You need the ID and not the name.

Don't be that harsh, we all were beginners once

@OP:

Maybe if you'd read out the source code and find the particular area of the code.

[24terminetor96]

NOOOOOOOOOOOOOOOOOO If you/i usethe id the program give me and error! Test...
And so all button that i analyze haven't also the id...

['Heaven.]

 Spoiler

 Public Function Login(ByVal sEMail As String, ByVal sPassword As String)


        Dim Request As HttpWebRequest = CType(WebRequest.Create("https://accounts.google.com/ServiceLoginAuth"), HttpWebRequest)
        Request.Method = "GET"
        Request.CookieContainer = cookies
        Request.ContentType = "application/x-www-form-urlencoded"

        Dim sPost As String = "continue=http%3A%2F%2Fwww.google.it%2F&dsh=-2164834841695827798&hl=de&checkedDomains=youtube&checkConnection=youtube%3A365%3A1%2Cyoutube%3A97%3A1%2Cyoutube%3A100%3A1&pstMsg=1&GALX=QLsaUIWE6gg&pstMsg=0&dnConn=&checkConnection=&checkedDomains=youtube&timeStmp=&secTok=&Email=" & sEMail & "&Passwd=" & sPassword & "&signIn=Anmelden&rmShown=1"

        Dim req As HttpWebRequest = CType(WebRequest.Create("http://accounts.google.com/ServiceLoginAuth"), HttpWebRequest)
        req.Method = "POST"
        req.CookieContainer = cookies
        req.Host = "accounts.google.com"
        req.UserAgent = "Mozilla/5.0 (Windows NT 6.2; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"
        req.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        req.KeepAlive = True
        req.Referer = "https://accounts.google.com/ServiceLoginAuth"
        req.ContentType = "application/x-www-form-urlencoded"

        Dim nbyteArray() As Byte = Encoding.Default.GetBytes(sPost)
        req.ContentLength = nbyteArray.Length
        Dim nDataStream As Stream = req.GetRequestStream()
        nDataStream.Write(nbyteArray, 0, nbyteArray.Length)
        nDataStream.Close()

        Dim nResponse As HttpWebResponse = req.GetResponse()
        nDataStream = nResponse.GetResponseStream()
        Dim nreader As New StreamReader(nDataStream)
        Dim nServerResponse As String = nreader.ReadToEnd()
        nreader.Close()
        nDataStream.Close()
        nResponse.Close()

        Return nServerResponse
    End Function

i didnt tested it, but i think this will work

[boxxiebabee]

Originally Posted by Der Anbieter

Don't be that harsh, we all were beginners once

Sorry, but I've told him already 5 times that he need the ID and not the name.. >.>

[dakata783]

I can show you by TeamViewer - skype:jordan.velikov3

[24terminetor96]

It work for input username and password but for button when i try to found the name there isn't...and it don't go

['Heaven.]

Try this...

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://accounts.google.com/ServiceLogin?hl=de&continue=http://www.google.it/")
        WebBrowser1.ScriptErrorsSuppressed = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("EMail").Innertext = Textbox1.Text
        WebBrowser1.Document.GetElementById("Passwd).Innertext = Textbox2.Text
        WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")

    End Sub

End Class

[Der Anbieter]

Originally Posted by 'Heaven.

Try this...

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://accounts.google.com/ServiceLogin?hl=de&continue=http://www.google.it/")
        WebBrowser1.ScriptErrorsSuppressed = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("EMail").Innertext = Textbox1.Text
        WebBrowser1.Document.GetElementById("Passwd).Innertext = Textbox2.Text
        WebBrowser1.Document.GetElementById("signIn").InvokeMember("click")

    End Sub

End Class

He wants to make it for facebook, not google.

[master_oli]

i´m not a VB.Net code but this you must use in C#

HtmlElementCollection elc = this.webBrowser1.Document.GetElementsByTagName("input");
                foreach (HtmlElement el in elc)
                {
                        if (el.GetAttribute("value") == "Anmelden")
                        {
                            el.InvokeMember("click");
                        }
                    }

because the Id of the Submit butten change every load the webseit new
I hope this help you away

['Heaven.]

Try this...

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.facebook.com/index.php?stype=lo&lh=Ac-CgxyyaJvgDn2I")
        WebBrowser1.ScriptErrorsSuppressed = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim tmp1 As String = WebBrowser1.DocumentText.Replace(Chr(34), "")
        Dim tmp() As String = Split(tmp1, "loginbutton")
        Dim tmp2() As String = Split(tmp(1), ">")
        Dim tmp3() As String = Split(tmp2(0), "for=")
        WebBrowser1.Document.GetElementById(tmp3(1)).InvokeMember("click")
        WebBrowser1.Document.GetElementById("email").Innertext = Textbox1.Text
        WebBrowser1.Document.GetElementById("pass).Innertext = Textbox2.Text
        Webbrwoser1.Document.GetElementById("default_persistent").InvokeMember("click")
        Webbrowser1.Document.GetElementById(tmp3(1)).Invokemember("click")
    End Sub

End Class

Originally Posted by master_oli

i´m not a VB.Net code but this you must use in C#

HtmlElementCollection elc = this.webBrowser1.Document.GetElementsByTagName("input");
                foreach (HtmlElement el in elc)
                {
                        if (el.GetAttribute("value") == "Anmelden")
                        {
                            el.InvokeMember("click");
                        }
                    }

because the Id of the Submit butten change every load the webseit new
I hope this help you away

this is not good..Only working for german lang

[24terminetor96]

Originally Posted by 'Heaven.

Try this...

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.facebook.com/index.php?stype=lo&lh=Ac-CgxyyaJvgDn2I")
        WebBrowser1.ScriptErrorsSuppressed = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim tmp1 As String = WebBrowser1.DocumentText.Replace(Chr(34), "")
        Dim tmp() As String = Split(tmp1, "loginbutton")
        Dim tmp2() As String = Split(tmp(1), ">")
        Dim tmp3() As String = Split(tmp2(0), "for=")
        WebBrowser1.Document.GetElementById(tmp3(1)).InvokeMember("click")
        WebBrowser1.Document.GetElementById("email").Innertext = Textbox1.Text
        WebBrowser1.Document.GetElementById("pass).Innertext = Textbox2.Text
        Webbrwoser1.Document.GetElementById("default_persistent").InvokeMember("click")
        Webbrowser1.Document.GetElementById(tmp3(1)).Invokemember("click")
    End Sub

End Class

But if in wbebrowser navigate in the page the code will be the egual code?

['Heaven.]

Yes, this code it working for all facebooks

[24terminetor96]

Can you explain me this part of the code?

Dim tmp1 As String = WebBrowser1.DocumentText.Replace(Chr(34), "")
Dim tmp() As String = Split(tmp1, "loginbutton")
Dim tmp2() As String = Split(tmp(1), ">")
Dim tmp3() As String = Split(tmp2(0), "for=")
WebBrowser1.Document.GetElementById(tmp3(1)).Invok eMember("click")
WebBrowser1.Document.GetElementById("email").Inner text = Textbox1.Text
WebBrowser1.Document.GetElementById("pass).Innerte xt = Textbox2.Text
Webbrwoser1.Document.GetElementById("default_persi stent").InvokeMember("click")
Webbrowser1.Document.GetElementById(tmp3(1)).Invok emember("click")
End Sub

['Heaven.]

You set tmp1 as String = The sourcecode of Facebook without """
After this you Split Tmp1 , so you get The loginbuttonid

[24terminetor96]

What are Chr(34),Dim tmp2() As String = Split(tmp(1), ">") and
Dim tmp3() As String = Split(tmp2(0), "for=")?