Using vba to login to a secured website

**Jack7774** · 03-12-2013, 10:13 AM

My goal: To obtain a vba code that would log me in to this website upon running the macro, pull up and save the reports I need, and logout.
Website: https://clearecd1.cpicentral.com/Default.aspx

I am have no knowledge on servers, proxy servers, html coding, how to read it, write it, or how to find the box names with in the source code either. I only know those terms from reading other threads in my attempt to understand what their code was doing but it is a bit more complicated than I thought. I can get you any source code you need after the login page or screen shots so you can see exactly what I do to pull up the reports..

**Jack7774** · 03-18-2013, 03:57 PM

Here is what I have but the screen acts as if I didn't enter anything, even when I click the cell to manually type it in instead of me having to erase what was typed by the macro it acts as if nothing was there to begin with even though i can see it before i click the text box. I am not sure if i am having problems because its a secure server. The macro works and does what its suppose to do but the server doesn't recognize what is put in the text boxes for some reason. Any thoughts?

Private Sub Autologin()
     
    Dim ie As Object
     
    Set ie = CreateObject("InternetExplorer.Application")
     
    ie.navigate "https://clearecd1.cpicentral.com/Default.aspx"
    ie.Visible = True
    
    Do While ie.Busy And Not ie.readyState = 4
        DoEvents
    Loop
     
    DoEvents
     
    ie.document.all.Item("ctl00_MainContent_tbLoginCompanyID_text").Value = Sheets("Sheet1").Range("J1")
    ie.document.all.Item("ctl00_MainContent_tbLoginUsername_text").Value = Sheets("Sheet1").Range("J2")
    ie.document.all.Item("ctl00_MainContent_tbLoginPassword_text").Value = Sheets("Sheet1").Range("J3")
    ie.document.all.Item("ctl00$Maincontent$btnLoginUser").Click
     
End Sub

**xlbiznes** · 03-18-2013, 04:21 PM

Hi,

You need to change :

 ie.document.all.Item("ctl00_MainContent_tbLoginCompanyID_text").Value = Sheets("Sheet1").Range("J1")
    ie.document.all.Item("ctl00_MainContent_tbLoginUsername_text").Value = Sheets("Sheet1").Range("J2")
    ie.document.all.Item("ctl00_MainContent_tbLoginPassword_text").Value = Sheets("Sheet1").Range("J3")
    ie.document.all.Item("ctl00$Maincontent$btnLoginUser").Click

To

ie.document.getElementById("ctl00_MainContent_tbLoginCompanyID_text").Value = Sheets("Sheet1").Range("J1")
    ie.document.getElementById("ctl00_MainContent_tbLoginUsername_text").Value = Sheets("Sheet1").Range("J2")
    ie.document.getElementById("ctl00_MainContent_tbLoginPassword_text").Value = Sheets("Sheet1").Range("J3")
    ie.document.getElementById("ctl00$Maincontent$btnLoginUser").Click

**Jack7774** · 03-18-2013, 11:15 PM

I corrected it but its still does the same thing. It does type the data into the text boxes but it still asked for me to put in the data and when i click the text box to correct or edit the data that was put in the text box by the macro it disappears as if the data was never there even though i could see it before i clicked it.

Private Sub Autologin()
     
    Dim ie As Object
     
    Set ie = CreateObject("InternetExplorer.Application")
     
    ie.navigate "https://clearecd1.cpicentral.com/Default.aspx"
    ie.Visible = True
    
    Do While ie.Busy And Not ie.readyState = 4
        DoEvents
    Loop
     
    DoEvents
     
    ie.document.getElementById("ctl00_MainContent_tbLoginCompanyID_text").Value = Sheets("Sheet1").Range("J1")
    ie.document.getElementById("ctl00_MainContent_tbLoginUsername_text").Value = Sheets("Sheet1").Range("J2")
    ie.document.getElementById("ctl00_MainContent_tbLoginPassword_text").Value = Sheets("Sheet1").Range("J3")
    ie.document.getElementById("ctl00$Maincontent$btnLoginUser").Click
    
End Sub