How to login with vba

Dear all,

I am able to open a webpage - with vba but unable to login.

Code:

---

Sub LoadThisWebPage()
Dim oIE As SHDocVw.InternetExplorer

'Set oIE = CreateObject("InternetExplorer.Application")
Set oIE = New SHDocVw.InternetExplorer

'Make the Inter*net Explorer visible
oIE.Visible = True

oIE.Navigate2  the reqd url

'================
'Wait till the browser is busy and page is fully loaded
Do While oIE.Busy

Loop

Do While oIE.ReadyState < 4

Loop
'=================

Dim hPage As HTMLDocument          'Object                        'HTMLDocument
'Dim nameEdit As HTMLDocument
Dim passWd As Object
Dim Elements As IHTMLElementCollection
Dim El As IHTMLElement

Set hPage = oIE.Document

'PROBLEM HERE ONWARDS

'Set El = hPage.getElementById("Form1")

'there is only one form
With oIE.Document.forms(0).Elements(0)
  If .Name = "__VIEWSTATE" Then
    .Value = "999999"
    End If
End With

End Sub

---

Please help

Thanks in advance

Regards,

Geetha

Actually i am able to get the HTML code with

Code:

---

Dim oIE As SHDocVw.InternetExplorer

Set oIE = New SHDocVw.InternetExplorer
.
.
.
.
.
Set hPage = oIE.Document
Sheets("Sheet3").Cells(2, 5) = hPage.documentElement.innerHTML

---

But unable to identify the elements to which i can put the reqd values for logging in

Regards

See if this works:

Code:

---

Option Explicit
Sub dataFromLeumi()
    Dim myPassword As String
    myPassword = "somepassword"
    Dim myUserName As String
    myUserName = "someusername"






    Dim loginPath As String
    loginPath = "https://somewebsite/Login.html"
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = True
    IE.navigate loginPath


    Dim userName As Object
    Set userName = IE.document.getattribute("uid")
    userName.Item(0).Value = myUserName


    Dim password As Object
    password = IE.document.getelementbyid("password")
    password.Item(0).Value = myPassword




    IE.document.getelementbyid("enter").Click
End Sub

---

Yes Logit. this is what i am trying to do.

Will try your codes and be back with how it worked out

Thanks

No Logit, it is not working

i am getting stuch at the following line:

Code:

---

Set userName = IE.Document.getAttribute("txtCRNNo") ' stuck here

---

i changed the line to

Code:

---

IE.Document.all.Item("txtCRNNo").Value = myUserName 'not working

---

i changed your code a bit:
i tried declaring IE As SHDocVw.InternetExplorer

But there is no progress

Regards,
Geetha

Hi all,
tried so many ways but no success
posting my code so soeone can point out the mistake

Code:

---


Sub LoginToThisWebPage()
Dim ie As SHDocVw.InternetExplorer


'Set oIE = CreateObject("InternetExplorer.Application")
Set ie = New SHDocVw.InternetExplorer


'Make the Inter*net Explorer visible
ie.Visible = True


'Nav*i*gate to the www.gmail.com
'oIE.Navigate2 "www.gmail.com"
ie.Navigate2 "crn.religare.in/newcrn/CRN_Login.aspx"


'================
'Wait till the browser is busy and page is fully loaded
Do While ie.Busy
Loop


Do While ie.ReadyState < 4
Loop
'================


Dim hPage As HTMLDocument          'Object                        'HTMLDocument
Dim oUserID As Object
Dim oPassWd As Object
Dim ElCol As IHTMLElementCollection
Dim El As IHTMLElement


Set hPage = ie.Document
'Sheets("Sheet3").Cells(2, 5) = hPage.documentElement.innerHTML


Set El = hPage.forms("Form1")
    With El
        'Debug.Print "  .elements(" & e & ")"
        'Debug.Print "    .tagName=" & .tagName & " ---  .Name=" & .Name & " ---  .ID=" & .ID & " ---  .Value=" & .Value
        '.all.Item("_EVENTTARGET").Value = "***x"
   
    End With


End Sub

---

i am using excel 2000
can this also be a reason for my not being able to do this programming?

Regards