VB通過xmlhttp.send傳遞xml內容

我有一個大約7MB的xml文件，我不想解析它，我只是想通過xmlhttp（post）使用VB發送這個文件到一個可以讀取的cgi腳本無論我給它什麼字符串。問題是用這部分代碼xmlhttp.send((xmlDoc))，因爲xmlDoc加載，但它並沒有真正解釋爲字符串。解決這個問題的最好方法是什麼？我仍然是新來的VB，所以任何幫助，將不勝感激！VB通過xmlhttp.send傳遞xml內容

Sub Main() 

    Dim xmlhttp As Object 
    'Dim xmlDoc As New Xml.XmlDocument 
    Dim xmlDoc 
    xmlDoc = CreateObject("Msxml2.DOMDocument.6.0") 
    xmlDoc = XDocument.Load("c:\pos.xml") 
    'Console.WriteLine(xmlDoc) 
    'xmlDoc.async = False 
    xmlhttp = CreateObject("Msxml2.ServerXMLHTTP.6.0") 
    'xmlDoc = CreateObject("Msxml2.DOMDocument.6.0") 

    'xmlDoc.Load("c:\pos.xml") 

    xmlhttp.setOption(2, 4096) 
    xmlhttp.Open("POST", "http://10.2.1.195:4980/CM/McPos.cgi?", False) 
    xmlhttp.setRequestHeader("Host", "http://10.2.1.195:4980") 
    xmlhttp.setRequestHeader("Content-Type", "txt") 
    xmlhttp.send((xmlDoc)) 
    MsgBox("STATUS: " & xmlhttp.Status) 
    MsgBox("RESPONSE: ") 
    MsgBox(xmlhttp.responseText) 

End Sub

來源

2011-11-17 user1052106

本文相關，[鏈接]（http://stackoverflow.com/questions/968998/http-post-upload-from-visual-basic-6），但有關於如何加載問題將xml轉換爲字節數組（如果這是最好的方法） – user1052106