Web Scraping

[mikeymay]

I have been successful in logging into a website and adding data to return a model window showing result based on the entries made dynamically via the VBA.

The website is Login to your account - QuickEmailVerification

The requirements is to enter a single email address to return information about the email address and from the modal window, scrape the result for SafeToSend and Accept all domain and then close the modal window.

I am able to login, enter an email address and click the 'Verify Email Address' button but this is where I have hit a brick wall.

The code I have so far is below

Sub WebData()

Dim appIE As InternetExplorer

Dim docIE As HTMLDocument
Dim docIEResult As HTMLDocument

Dim objUserName As IHTMLInputElement
Dim objPassword As IHTMLInputElement

Dim objVerifyEmail As Object

Dim objLogin As Object

Set appIE = New InternetExplorer

appIE.Visible = False
appIE.Visible = True

appIE.Navigate ("https://quickemailverification.com/login")

Do While appIE.Busy Or appIE.ReadyState <> READYSTATE_COMPLETE
   DoEvents
Loop

Application.Wait Now + TimeValue("00:00:03")

Set docIE = appIE.Document

Set objUserName = docIE.getElementById("Email")
Set objPassword = docIE.getElementById("Password")
   
objUserName.Value = [I]my login name[/I]
objPassword.Value = [I]my login password[/I]

For Each objLogin In docIE.getElementsByClassName("blue_btn btn-block")
   If objLogin.ID = "login" Then
      
      objLogin.Click

      Do While appIE.Busy Or appIE.ReadyState <> READYSTATE_COMPLETE
         DoEvents
      Loop
      
      DoEvents
      
      Application.Wait Now + TimeValue("00:00:03")
      
      Exit For
      Else
   End If
Next

Set objLogin = Nothing

Set docIE = appIE.Document

Set objUserName = docIE.getElementById("Email")

objUserName.Value = [I]Email address to check[/I]
  
For Each objLogin In docIE.getElementsByClassName("btn btn-primary btn-lg btn-block")
   If objLogin.ID = "verify" Then
      objLogin.Click
      Else
   End If
      
   Do While appIE.Busy Or appIE.ReadyState <> READYSTATE_COMPLETE
      DoEvents
   Loop
   
   DoEvents
   
   Application.Wait Now + TimeValue("00:00:03")

  Exit For
Next

End Sub

Any advice on what I have so far (I am very new to web scraping) and how to proceed would be useful.

TIA