Basic認証有りのサイトにXML Post for Visual Basic6.0

gistfile1.vb

    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
    
    xmlHttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"
    xmlHttp.setRequestHeader "Content-Length", Len(domDoc.xml)
    
    xmlHttp.send domDoc
    
    ' ダウンロード待ち
    Do While xmlHttp.readyState <> 4
    Loop
    
    'MsgBox (xmlHttp.responseText)
    'MsgBox (xmlHttp.statusText)