Web Query for password protected web-sites

dave3009

Well-known Member

Joined

Jun 23, 2006

Messages

7,142

Office Version

1. 365
2. 2021

Platform

1. Windows
2. Mobile
3. Web

• Oct 9, 2009

• #2

You will need to look at the source HTML code for those pages to find the reference for those input boxes. From there it's plain sailing can you find out what these inputboxes are called or give us a link to the page so we can find out on your behalf

 

Upvote 0

W

waldymar

Board Regular

Joined

Feb 19, 2009

Messages

238

• Oct 9, 2009

• #3

The site is: www.wifa.ru
On the left side you can see the login and password fields. I would appreciate if you could teach me that I can do it by myself. I'm using Office 2003.

 

Upvote 0

dave3009

Well-known Member

Joined

Jun 23, 2006

Messages

7,142

Office Version

1. 365
2. 2021

Platform

1. Windows
2. Mobile
3. Web

• Oct 9, 2009

• #4

Try this, I have highlighted the bits I think you need to double check.

Rich (BB code):

Sub WebLogin()
Dim a As String
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True
        .Navigate "http://www.wifa.ru"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .document.all.Item("username").Value = "Username"
        .document.all.Item("user_password").Value = "Password"
        .document.forms(0).submit
    End With
End Sub

 

Last edited: Oct 9, 2009

Upvote 0

W

waldymar

Board Regular

Joined

Feb 19, 2009

Messages

238

• Oct 9, 2009

• #5

Thanks a lot!
A couple of questions:
Does it matter that I use another web browser than Internet Explorer?
Is this a standard code for any web-site I would like to import into excel?
What does this mean - "Do Until .ReadyState = 4"?

 

Upvote 0

dave3009

Well-known Member

Joined

Jun 23, 2006

Messages

7,142

Office Version

1. 365
2. 2021

Platform

1. Windows
2. Mobile
3. Web

• Oct 9, 2009

• #6

I'm not sure how to make this work with any other browser TBH. I use Firefox personally but I find if you want to get Microsoft applications to work together you're best sticking with other Microsoft apps. Please google using your prefered browser with VBA

ReadyState 4 bascially means 'idle' i.e. all html, javascript, css, advertising etc etc is loaded and IE is expecting your input. This may differ if you use your preferred browser

If you want to import data you best look at Excel's web connection wizard, this is IE based but it will happily download any tables etc you want. Some of the other board members might show you how you could run a SQL query (or something) if you are accessing a database you have permission to use

 

Last edited: Oct 9, 2009

Upvote 0

T

taigovinda

Well-known Member

Joined

Mar 28, 2007

Messages

2,639

• Oct 9, 2009

• #7

Hey Dave,

Your code worked for the web page I wanted to use it on, and I was able to find the names for the login and pass. But this:

Code:

        .document.forms(0).submit

...seems to do something other than pressing the login button. I tried changing the 0 to a 1 but no dice - then it errors. Any tips on how I can press the login button, or search the html source to find its name and then use that name?

Thanks,
Tai

 

Upvote 0

dave3009

Well-known Member

Joined

Jun 23, 2006

Messages

7,142

Office Version

1. 365
2. 2021

Platform

1. Windows
2. Mobile
3. Web

• Oct 9, 2009

• #8

Are there any other forms on your page?

 

Upvote 0

T

taigovinda

Well-known Member

Joined

Mar 28, 2007

Messages

2,639

• Oct 9, 2009

• #9

I don't know what that means... can I pm you a pair of sites please? Thanks.

 

Upvote 0

dave3009

Well-known Member

Joined

Jun 23, 2006

Messages

7,142

Office Version

1. 365
2. 2021

Platform

1. Windows
2. Mobile
3. Web

• Oct 9, 2009

• #10

Sure thing, just PM them over I'll check them out for you

 

Upvote 0