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("loginbean.userid")
            inp.Value = "me"  'replace with your id
            Set inp = IE.document.All.Item("loginbean.password")
            inp.Value = "mypassword"  'replace with your password
     '   >    Set inp = IE.document.All.Item("login")
     '   >    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) = "" 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 ""
        .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
' login button
Random Solutions  
programming4us programming4us