hiraba-dqx

    Dim domDoc As New MSXML2.DOMDocument
    Dim xmlHttp As New MSXML2.XMLHTTP60
    Dim str64 as String
    domDoc.Load ("XMLファイルのパス")
    
    xmlHttp.Open "POST", "https://hogehoge.com/authentication", False, "id", "pass"
    
    '上記の方法で認証に失敗する場合はIDとパスを：で連結したものをBase64に変換　gstrBase64は自作のものに置き換えて使用してください
    'str64 = gstrBase64( "id" & ":" & "pass")
    'xmlHttp.setRequestHeader "Authorization", "Basic " & str64