webbrowser control

Option Explicit

Public g_booUsingProgressIndicator As Boolean

Private Const mc_intMaxAWBcanSubmit As Integer = 25
Private Const mc_strLoomisTrackURL As String = "http://www.dhl.ca/tracking/"
Private Const mc_strTempFile As String = "C:\temp.html"
Private Const mc_strJavaSubmit As String = "javascript:check_num_waybills('en');"
Private Const mc_strJavaNext As String = _
          "javascript:document.content.B1.value='Next';%20document.content.submit();"

Public Declare Function ShowWindow& Lib "user32" _
    (ByVal hwnd As Long, ByVal nCmdShow As Integer)


'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Sub TrackSelection()
'______________________________________________________________________________

    g_booUsingProgressIndicator = False
    TrackLoomis Selection, , True
End Sub



'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Sub TrackLoomis(Optional rngInput As Range, _
                Optional bytOutputCol As Byte = 0, _
                Optional booPromptToShow As Boolean = False)
'______________________________________________________________________________

    
    Dim appIE As SHDocVw.InternetExplorer
    Dim objDoc As MSHTML.HTMLDocument
    Dim objCuerpo As MSHTML.HTMLBody
    Dim objBody As MSHTML.IHTMLBodyElement
    
    Dim objTxtRange As IHTMLTxtRange
    Dim objLink As MSHTML.IHTMLLinkElement
    Dim objAnch As MSHTML.HTMLAnchorElement
    Dim objInputElem As MSHTML.HTMLInputElement
    Dim objGen As Object
....
    Set appIE = New InternetExplorer
    Set objDO = New DataObject
    Set fso = New FileSystemObject
    Set wsActive = ActiveSheet
....
    With appIE
        .navigate mc_strLoomisTrackURL
        Application.StatusBar = "Navigating to " & mc_strLoomisTrackURL & ", Busy: "
        Do While .Busy: GoSub DoThemEvents: Loop
        Application.StatusBar = Replace(Application.StatusBar, "Busy", "Ready")
        lngBusy = 0
        Do Until .readyState = READYSTATE_COMPLETE: GoSub DoThemEvents: Loop
        Set objDoc = .document
    End With
    
    Application.StatusBar = "Scanning elements"
    For Each objGen In objDoc.all
        If TypeName(objGen) = "HTMLAnchorElement" Then
            If objGen.href = mc_strJavaSubmit Then Set objAnch = objGen
        End If
    Next objGen
    
    strAWBlist = ConvertToList(rngInput)
    strAWBlist = Replace(strAWBlist, " ", "")
    Application.StatusBar = "Entering AWB(s) & ""clicking""."
    With objDoc.forms(0)
        .Sa_waybill_list.Value = strAWBlist
    End With
    objAnch.Click
    Set objAnch = Nothing
    Application.StatusBar = "Waiting for response."
...

    With .Document.Forms(0)
        .UserName.Value = "Your Login ID" 'Change to YOUR Login ID
        .Password.Value = "Your Password" 'Change to YOUR password
        .login.Click
    End With