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
PayPal Express Checkout Module
How do we use GPO (Group Policy) to REMOVE trusted sites from I.E. Trusted Sites Zone on workstations on a domain?
Calculated variable on server...
Small Business Server 2008 Static IP change
Settings up vsftpd and ssl?
I have a coolmax eSATA drive enclosure with a seagate SATA drive
xp sp2 clients wont log or ping server 2003
ZFS Fuse help Ubuntu 10.0.4 LTS
Advise on anti-spam measures
fiddling nose habit