web login

Question

honeybee2090 0 Newbie Poster

12 Years Ago

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

visual-basic

Edited 12 Years Ago by honeybee2090

2 Contributors
8 Replies
367 Views
1 Week Discussion Span
Latest Post 12 Years Ago Latest Post by honeybee2090

QVeen72 104 Posting Shark

12 Years Ago

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

QVeen72 104 Posting Shark

12 Years Ago

Hi,

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

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

honeybee2090 0 Newbie Poster · Answer 1 · 2012-04-10T17:30:01+00:00

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

honeybee2090 0 Newbie Poster · Answer 2 · 2012-04-11T21:57:23+00:00

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 0 Newbie Poster · Answer 3 · 2012-04-11T22:23:27+00:00

honeybee2090 0 Newbie Poster

12 Years Ago

i attch projct

This attachment is potentially unsafe to open. It may be an executable that is capable of making changes to your file system, or it may require specific software to open. Use caution and only open this attachment if you are comfortable working with zip files.

VB6.zip (1.94 KB)

honeybee2090 0 Newbie Poster · Answer 4 · 2012-04-14T16:16:29+00:00

honeybee2090 0 Newbie Poster

12 Years Ago

no 1 able to fix my problem?

QVeen72 104 Posting Shark · Answer 5 · 2012-04-16T09:04:39+00:00

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 0 Newbie Poster · Answer 6 · 2012-04-17T23:26:24+00:00

thank you soo much this thing works

gona love this site :p