Microsoft
Software
Hardware
Network
Question : click on login
How do i click on 'Log In' in the below example
Private WithEvents HDoc As HTMLDocument
Private WithEvents IE As InternetExplorer
Private Sub Command1_Click()
Dim inp As Object
Set inp = IE.document.All.Item("logi
nbean.user
id")
inp.Value = "me" 'replace with your id
Set inp = IE.document.All.Item("logi
nbean.pass
word")
inp.Value = "mypassword" 'replace with your password
' > Set inp = IE.document.All.Item("logi
n")
' > inp.Click
End Sub
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is IE) Then
Text1.Text = URL
If UCase$(URL) = "
https://www.campusship.up
s.com/logi
n
" Then
Set HDoc = IE.document
End If
End If
End Sub
Private Sub Form_Load()
Set IE = New InternetExplorer ' Creates new Internet Explorer Instance
If Not IE Is Nothing Then
Command1.Enabled = True
With IE
.navigate "
https://www.campusship.up
s.com/logi
n
"
.Visible = True
End With
End If
End Sub
Answer : click on login
Okay I found what your previous post is refering about its hidden towards the bottom. It's the wrong id so change the last line to this and it should work. See code section
1: 2:
' login button ie.Document.getElementById("login").Click
Random Solutions
Problem getting page with CURL and PHP
Get Column Name in Trigger
Getting (and setting) text values from a CRM Pick List?
Use Windows Server with SBS 2003
FPDF Multiple Images from MySQL
interview questions on SSIS
Best Way To Subtract DateTime Fields
File Lock Problem
Iphone sync to Exchange 2007
HP-UNIX - compressing/zipping files that are 31GB