[RESOLVED] Web browser control Problem?

[danasegarane]

I am using a web browser control to autologin to a webpage. When I intially gives the username and password,it works well.
And for the second time it is not taking the username and password from the code.I dont know where it take from I get the err messeag as attached here.
And the code is

wb1.Navigate "http://www.netwealth.com.au/"
    Do Until wb1.ReadyState = READYSTATE_COMPLETE
        DoEvents
    Loop
wb1.Document.login.username.Value = "usernamehere"
wb1.Document.login.password.Value = "mypassword"
wb1.Document.login.submit

[Bruce Fox]

Try placing the wb1.Document code in the WebBrowser1_DocumentComplete() Event.

[danasegarane]

Please explain. I couldnot get u.

[Bruce Fox]

From memory, the READYSTATE_COMPLETE occurs prior to DocumentComplete. That said
your wb1.Document wouldn't exist at this stage, of course until COMPLETE. Therefore,
(ditching the Do?Loop) and placing the .Document code in the relavent event should
ensure the Documnet object is in fact loaded.

Hope that makes sense .

[danasegarane]

I still face the same problem

[danasegarane]

I think it is getting the informations from either cookies or session?.Some body help to overcome this problem

[Bruce Fox]

Is it not (Type = Text) 'name' that you need to pass UserName to?

[danasegarane]

Yes ? I need to pass the username and password also.Form method is post.

[Static]

did you tryit in the Doc Complete event as bruce said?

as far as readystate_complete... it can fire more than once... and also will fire early if in memory...

Private Sub Form_Load()
    wb1.Navigate "http://www.netwealth.com.au/"
End Sub
 
Private Sub wb1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Debug.Print URL
    If (pDisp Is wb1.Application) Then
        
        wb1.Document.login.username.Value = "usernamehere"
        wb1.Document.login.password.Value = "mypassword"
        wb1.Document.login.submit
 
        
    End If
End Sub

take a look at the webbrowser tutorial in my sig....

[danasegarane]

Dear Static,
I still face the same problem.(object doesnot support this type).Is there any other method to auto submit a web page??

[Static]

try this:

wb1.Document.all.username.Value = "usernamehere"
wb1.Document.all.password.Value = "mypassword"
wb1.Document.all.submit.click

[Static]

if it still does it.. there may be another issue...
do this:

run it.. let it login.. when it gets to the login again and fails.. view source of the webbpage.. save it to a text and post it. lets take a look at it.

it seems whats happening is the objects are changing somehow.. OR there are multiple objects with the same name..

[danasegarane]

Dear Static!,
First time the web page loads automatically with the username and password. And after some time that is in the document complete event is giving this error message. It is firing again and again.

If i end the program and re run the program it is loading automatically and goes to the welcome screen. The the document complete event fires. Then i get the error msg as posted here.

[Static]

wait.. are you loggin in to VBF with this??

[danasegarane]

I tried this with other one site, but that site username and pwd is confi one.So i am trying this with our site. So that i can give the username and pwd.

[Static]

ok.. heres the issue..
once Logged in.. (at least with our site).. the login username/password is gone. thats why u are getting the error.. you need to put a check in to see if the objects are there
you need a ref to the MS HTML Object Library

like this...

Public Function LoggedIn(HTML As HTMLDocument) As Boolean
    On Error GoTo checkerr
    Dim txt As HTMLInputTextElement
    Set txt = HTML.All.vb_login_username
    LoggedIn = False
    Exit Function
checkerr:
    LoggedIn = True
End Function
 
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If (pDisp Is WebBrowser1.Application) Then
        If Not LoggedIn(WebBrowser1.Document) Then
            WebBrowser1.Document.All.username.Value = "xxxxx"
            'etc...
        End If
    End If
End Sub

[danasegarane]

Dear Static,
I am facing problem submit the form. I use the webbrowser1.document.submit. But it gives an error message of object doesnot property

[danasegarane]

And also it logs in automatically without checking the username and pwd.I couldnot able to get where it is getting the entries old entries wheather history or not?

[Static]

where.. here? (in VBF)?
thats cause in VBF its a tricky button.. not typical button
heres is the code I use for my VBF webbrowser... this sets the username/password then clicks submit

Dim HTMLS As HTMLInputButtonElement
            HTML.All.vb_login_username.Value = USER
            HTML.All.vb_login_password.Value = PSWD
            'Loop thru all input elements, find the type = submit with value of Log in
            For Each HTMLS In HTML.getElementsByTagName("input")
                If HTMLS.Type = "submit" And HTMLS.Value = "Log in" Then
                    HTMLS.Click
                    Exit For
                End If
            Next

[danasegarane]

In the error object required err msg in the line

For Each HTMLS In HTML.getElementsByTagName("input")

[danasegarane]

I have placed the varriable declartion also.?

Dim HTMLS As HTMLInputButtonElement

[Datacide]

Is it VBF that your trying to log into? or http://www.netwealth.com.au?

[Static]

dana.. did you add a reference to the Microsoft HTML object Library?


and did you

Set HTML = Webbrowser1.Document ?

[danasegarane]

Dear Static ,
I am trying it.

[danasegarane]

Dear Static,
I have missed the line
Set HTML = Webbrowser1.Document.
So only It was giving the error msg. Thanks for the reply.
Really you are wonderfull!!!!
Great Help?

[danasegarane]

Dear Static!
Really you are great!!!!!.

[Static]

I have a good tutorial (at least I THINK its good lol) on my website..
link in my sig...

glad to help.. webbrowser stuff is my favorite!

[danasegarane]

Thanks static.!!

[danasegarane]

Dear Static,
In the form i have filed called file.This is used for uploading files.In the browser window there is button called with value "Browse". If I click the browse button then a open dialog box is displayed. In that I have to select a file and click ok. I want to automate this one, How can I?

[Static]

Im not sure what u want to automate...

The upload?
-put the file in a field in a web form and submit?
-ftp?
The file select?
-meaning, you wont have to click a button to select a file??

please explain more...

[danasegarane]

I want to upload a particular file to one a webpage. I have given the screen shot of that page.If I click the browse button a dialog box pop up and I have to select the file and click ok. As soon as I click the ok button it will display the file path in the text area. Here the that are is given as

<INPUT name="f_data" size="50" type="file">

I am not able to assign the value to this. If I am able to load the values then I can click the upload button as mentioned by you in this post.

[Static]

temporary fix... i HATE that I had to use sendkeys!!!

I will continue to try other ways.. but for some reason.. i CANT set the value. excpet by the browse button.. unless done this way.. which does work

Private Sub UpFile(HTML As HTMLDocument, fName As String)
    Dim F_Inp As HTMLInputElement
    Set F_Inp = HTML.All.Item("f_data")
    F_Inp.focus
    SendKeys fName
End Sub
 
Private Sub Command1_Click()
    UpFile WebBrowser1.Document, "C:\Path\to\file.txt"
End Sub

[danasegarane]

Dear Static,
I am not able to set the value with this code.

[Static]

post the code that you are using...

you should be able to add this sub

Private Sub UpFile(HTML As HTMLDocument, fName As String)
    Dim F_Inp As HTMLInputElement
    Set F_Inp = HTML.All.Item("f_data")
    F_Inp.focus
    SendKeys fName
End Sub

then call it where you want to se the value..
pass in the doc and the path to the file

UpFile WebBrowser1.Document, "C:\Path\to\file.txt"

[danasegarane]

Dear Static,
This is working fine.Thanks for ur help.