код примера VB  6 :

Private Function InetExchange(inQueryFile$) As String
Dim ToPostData$

Open inQueryFile For Input As # 2 
ToPostData$ = Input(FileLen(inQueryFile), # 2 )
Close # 2 

Dim objHTTP As XMLHTTP30
Set objHTTP = New XMLHTTP30



PostString = "--f89awenrh8f8" & vbCrLf & _
"Content-disposition: form-data; name=""xmlfile""; filename=""" & inQueryFile & """" & _
vbCrLf & "Content-Type: text/xml; charset=""windows-1251""" & _
"" & vbCrLf & vbCrLf & ToPostData$ & vbCrLf & _
"--f89awenrh8f8--"

objHTTP.Open "POST", "http://localhost/up.php", True

objHTTP.setRequestHeader "Content-Type", "multipart/form-data, boundary=f89awenrh8f8" ', charset=""windows-1251"""

objHTTP.setRequestHeader "Accept-Language", "ru, en"
objHTTP.setRequestHeader "Accept-Charset", "windows-1251;q=1"
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"


On Error GoTo ErrHandler

objHTTP.send PostString


Do While objHTTP.readyState <> 4
DoEvents
Loop

InetExchange = objHTTP.responseText

GoTo NormHandler
ErrHandler:
MsgBox "error"
LoadPostsFromInet = ""
NormHandler:
End Function