web login

[honeybee2090]

hi

there is a small problem in codes need help

i am useing these codes

and here is site login link
http://crypo.freeforums.org/ucp.php?mode=login

Private Sub cmdlogin_Click()
WebBrowser1.Navigate "http://crypo.freeforums.org/ucp.php?mode=login"
lblstatus.Caption = "Connecting...."
End Sub




Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = "http://crypo.freeforums.org/ucp.php?mode=login" Then
WebBrowser1.Document.All("Username").Value = user.Text
WebBrowser1.Document.All("Password").Value = pass.Text
WebBrowser1.Document.All("Login").Click  "problem is in this line"
End If
End Sub

WebBrowser1.Document.All("Login").Click

how it can b fixed need help

[QVeen72]

Hi,

May be the button name does not match...
what you can do is search all the objects in the webpage, and click based on the caption..
Check here:
http://vbcity.com/forums/t/94102.aspx

Regards
Veena

[honeybee2090]

still not fixed
any 1 will like to reply and help?

[QVeen72]

Hi,

Are you sure button name is "Login"...?

[honeybee2090]

no am not sure noobs :( hehehe i cant finde that thats y i also post link

http://crypo.freeforums.org/ucp.php?mode=login

[honeybee2090]

i attch projct

[honeybee2090]

no 1 able to fix my problem?

[QVeen72]

Hi,

This works... But may be login name/ password are invalid...

Dim Doc
Dim thing
If URL = "http://crypo.freeforums.org/ucp.php?mode=login" Then
    WebBrowser1.Document.All("Username").Value = user.Text
    WebBrowser1.Document.All("Password").Value = pass.Text
    Set Doc = WebBrowser1.Document
    For Each thing In Doc.All
        If thing.tagname = "INPUT" Then
            If thing.Type = "submit" Then
                If thing.Value = "Login" Then
                    thing.Click
                    Exit For
                End If
            End If
        End If
    Next
End If

Regards
Veena

[honeybee2090]

thank you soo much this thing works

gona love this site :p