then appears a pop-up screen with username and passowrd required , and the program never progress..it stops in this step. I don't know the form to introduce the username and password in this pop-up screen.
Would you be kind to help me with the code??
I wrote this code
Expand|Select|Wrap|Line Numbers
- Sub prueba2()
- 'Dim objIExplorer As InternetExplorer
- 'Reference set for: 'Microsoft Internet Controls'
- Set objIExplorer = CreateObject("InternetExplorer.Application")
- 'Disable pop-up messages
- objIExplorer.Silent = False
- 'Arrange Internet Explorer on the screen and make visible
- objIExplorer.Top = 0
- objIExplorer.Left = 0
- objIExplorer.Height = 1000
- objIExplorer.Width = 1250
- objIExplorer.Visible = True
- objIExplorer.Navigate "https://xxxx.xx/"
- Do While objIExplorer.Busy Or Not objIExplorer.ReadyState = 4: DoEvents: Loop
- objIExplorer.Document.getElementById("userid").Value = "username" 'Set the value in the Inputbox
- objIExplorer.Document.getElementById("Password").Value = "password"
- x = objIExplorer.Document.getElementById("loginimage").sourceIndex 'Get the index for the Google Search button
- objIExplorer.Document.all.Item(x).Click
- End Sub