[RESOLVED] Log in a webpage via vb application

[lkallas]

Hi!

Here is my code that should fill in "user" and "password" fields on a webpage ("http://forgarden.ee/tellimus") and then click the button "submit" in webbrowser. But it doesn't work!
It gives me error:Object reference not set to an instance of an object.

Source code from webpage user and pass fields and button:

...
<li>
                            <label for="email" class="required"><em>*</em>E-posti aadress</label>
                            <div class="input-box">
                                <input name="login[username]" value="" id="email" class="input-text required-entry validate-email" title="E-posti aadress" type="text">
                            </div>
                        </li>
                        <li>
                            <label for="pass" class="required"><em>*</em>Salasõna</label>
                            <div class="input-box">
                                <input name="login[password]" class="input-text required-entry validate-password" id="pass" title="Salasõna" type="password">
                            </div>
                        </li>
                    </ul>
                    <p class="required">* Nõutud väljad</p>
                </div>
            </div>
        </div>
        <div class="col2-set">
            <div class="col-1 new-users">
                <div class="buttons-set">
                </div>
            </div>
            <div class="col-2 registered-users">
                <div class="buttons-set">
                    <a href="http://forgarden.ee/tellimus/index.php/customer/account/forgotpassword/" class="f-left">Salasõna läks meelest?</a>
                    <button type="submit" class="button" title="Logi sisse" name="send" id="send2"><span><span>Logi sisse</span></span></button>
                </div>
            </div>

...

And here is my VB code:

Private Sub WebBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser.DocumentCompleted


        
        'Dim ForgardenURL As String
        'Dim Pass As String
        'Dim User As String


        'User = My.Settings.ForgardenUser
        'Pass = My.Settings.ForgardenPass
        'ForgardenURL = My.Settings.ForgardenURL


        'WebBrowser.Document.GetElementById("login[username]").SetAttribute("value", User)
        'WebBrowser.Document.GetElementById("login[password]").SetAttribute("value", Pass)
            

        'WebBrowser.Document.GetElementById("send").InvokeMember("click")

        


    End Sub

What has gone wrong here?

[HvK ToXiC]

Try this

Private Sub WebBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser.DocumentCompleted


        
        'Dim ForgardenURL As String
        'Dim Pass As String
        'Dim User As String


        'User = My.Settings.ForgardenUser
        'Pass = My.Settings.ForgardenPass
        'ForgardenURL = My.Settings.ForgardenURL


        'WebBrowser.Document.GetElementById("email").SetAttribute("value", Your login Email)
        'WebBrowser.Document.GetElementById("pass").SetAttribute("value", Your Password)
            

        'WebBrowser.Document.GetElementById("send").InvokeMember("click")

        


    End Sub

[lkallas]

It still gives the error like in the first post.

How could I write a code that fills the fields and clicks login button with HttpWebRequest POST Method? Never used it, maybe it'll work?

[lkallas]

Flaming hell...that was a braincracker...

I tried all the tricks and tips I could get my hands on...

Ended up with only one solution(that works):

Private Sub WebBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser.DocumentCompleted



        Dim Username = WebBrowser.Document.All("login[username]") 'Searches for username field
        Dim Password = WebBrowser.Document.All("login[password]") 'Searches for password field

        Dim pass As String
        Dim user As String

        user = My.Settings.ForgardenUser  'doesn't work, think it doesn't convert "@" to string or smth!!!!
        pass = My.Settings.ForgardenPass

        If Username <> Nothing And Password <> Nothing Then
            
            Username.InnerText = "[email protected]" 'set the user manually
            Password.InnerText = pass

            SendKeys.Send("{ENTER}")
            'hits ENTER to log in instead of click via code(no code worked)

        End If


        


    End Sub

Could somebody explain to me:
* why I couldn't get invokemember("click") to work
* why an e-mail address stored in my. settings doesn't convert to string and populate username field?

Is there a better way to write such code?

[dunfiddlin]

* why I couldn't get invokemember("click") to work
* why an e-mail address stored in my. settings doesn't convert to string and populate username field?

It doesn't always. Sometimes the relevant member is not called "click". Sometimes the button just doesn't accept any Invoke.

You went looking for tags by ID and used its name, for a start. Second, the attribute is not necessarily "value" and, by the same token, "value" is not necessarily an attribute.

All webpage manipulation requires a degree of trial and error and results are not guaranteed even then. You have to remember that the webpage coder has done nothing to help you. The intention is that you use a webbrowser and mouse to navigate the site and everything is slanted that way. Any degree of 'automation' you are able to achieve, where there's no API expressly created for the purpose, is all bonus.

[lkallas]

user = My.Settings.ForgardenUser  'doesn't work, think it doesn't convert "@" to string or smth!!!!

Could somebody explain to me:
* why an e-mail address stored in my. settings doesn't convert to string and populate username field?

Answer to my own question is that when I changed the setting name from ForgardenUser to User then it started to work. Go figure!