Retrieve epay info Balance with VBA and Excel

Question

The site in question got a login form before accessing data, and it don't furnish any API's. Some idea or suggestion? Here is an extract of code of the login page (https://www.epay.com/epayweb/user/login):

<form enctype="application/x-www-form-urlencoded" class="form-signin" action="" method="post" style="margin-top: 30px;">
    <h2 class="form-signin-heading">ePay.info Login</h2>
    <div class="login-wrap">
    <div class="form-group">
        <input style="margin-right: 0px; padding-right: 0px;" name="username" id="username" value="" placeholder="Wallet addresses, Username or E-mail address" class="form-control input-lg" type="text"><img title="Lunghezza massima del campo sconosciuta" style="position: relative; left: 304px; top: -33px; z-index: 999; cursor: pointer; vertical-align: bottom; border: 0px none; width: 14px; height: 19px; display: inline;" class="ife_marker" src="chrome://informenter/skin/marker.png" id="username_ife_marker_0">
    </div>
    <div class="form-group">
        <input style="margin-right: 0px; padding-right: 0px;" name="password" id="password" value="" placeholder="Password (only if secured)" class="form-control input-lg" type="password"><img title="Lunghezza massima del campo sconosciuta" style="position: relative; left: 304px; top: -33px; z-index: 999; cursor: pointer; vertical-align: bottom; border: 0px none; width: 14px; height: 19px; display: inline;" class="ife_marker" src="chrome://informenter/skin/marker.png" id="password_ife_marker_1">
    </div>
    <div class="row">
        <button class="btn btn-lg btn-login btn-block" name="login" type="submit">Login and check stats</button>
    </div>

Answer 1

This code should log you in, provided you enter the correct values for these two lines:

username.Value = "Test"
password.Value = "Test"

Open the VB Editor by pressing Alt+F11 and insert a new standard code module. Paste in the following code:

Option Explicit

Private Sub LoginToEpay()

    Dim IE As Object
    Dim username As Object
    Dim password As Object
    Dim objCollection As Object
    Dim i As Integer

    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True

    'Navigate to the website
    IE.navigate URL:="https://www.epay.com/epayweb/user/login"

    'Wait for page to load
    Do While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
        Application.Wait DateAdd("s", 1, Now)
    Loop

    'Username and password elements have IDs
    Set username = IE.document.getElementById("username")
    Set password = IE.document.getElementById("password")

    'Login button doesn't have an ID so we must use name
    'This returns an array of items that have the name
    'login
    Set loginBtn = IE.document.getElementsByName("login")

    username.Value = "Test"
    password.Value = "Test"

    While i < objCollection.Length
        If objCollection(i).Type = "submit" Then objCollection(i).Click
        i = i + 1
    Wend

End Sub