Vba login website

Sub login()

    Const Url$ = "https://www.mast-technicalservices.com/ecp/index2.jsp"

    Dim UserName As String, Password As String, LoginData As Worksheet
    Set LoginData = ThisWorkbook.Worksheets("Sheet1")
    UserName = LoginData.Cells(1, "B").Value
    Password = LoginData.Cells(2, "B").Value

    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")

    With ie

        .navigate Url
        ieBusy ie
        .Visible = True

        Dim oLogin As Object, oPassword As Object
        Set oLogin = .document.getElementsByName("ecp_param_userId")(0)
        Set oPassword = .document.getElementsByName("ecp_param_password")(0)

        oLogin.Value = UserName
        oPassword.Value = Password
        .document.forms(0).submit

    End With

End Sub

Sub ieBusy(ie As Object)
    Do While ie.Busy Or ie.readyState < 4
        DoEvents
    Loop
End Sub

Source: stackoverflow.com

Similar codes

0 vote123 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
0 vote117 views1 answer
Vba collection key list
VBA
0 vote110 views1 answer
Excel vba populate array with cell values
VBA
0 vote125 views1 answer
Excel vba automatic calculation
VBA
0 vote168 views1 answer
Excel vba protect content
VBA
0 vote127 views1 answer
Vba add spaces
VBA
0 vote119 views1 answer
Excel vba existence of a file
VBA
20 votes249 views1 answer
Excel vba recursive example factorial function
VBA
31 votes244 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote117 views1 answer
Change whcih control a user has selected vb
VBA