[VB6] Invio file con VB6

[saintblessme]

Salve a tutti.
per esigenze lavorative ho dovuto iniziare ad usare vb6.
Per ora sono riuscito tramite le guide sul sito, i post sul forum ed un manuale edito da Mondadori a superare i miei problemi.
Ora purtroppo devo disturbare la community e chiedere aiuto.
Il mio problema è inviare un file xml che si trova sul mio pc usando vb6 ad una macchina con un indirizzo ip per fargli eseguire dei comandi.
Per ora riesco solo ad ottenere dei file da questa macchina tramite il codice :

Private Sub Command1_Click()
   Inet1.Protocol = icHTTP
   Open "c:\test.xml" For Output As #1
   Write #1, Inet1.OpenURL("http://192.168.0.53//status/test.xml?id=22012")
   Close #1
End Sub

oppure utilizzando urldownloadtofile

Private Sub scarica()
   ' Download file.
   URLDownloadToFile 0, _
      "http://192.168.0.53/status/test.xml?id=22012", _
      "C:\test.xml", 0, 0
end sub

Leggendo in giro ho visto che per inviare un file si può utilizzare winsock
oppure il controllo inet.
Ho provato a pasticciare con entrambi per un paio di giorni senza venirne a capo, anche perchè la guida mdsn fa esempi solo con ftp e non http.
Di quest'ultimo scrive solo la sintassi del metodo execute :

object.Execute url, operation, data, requestHeaders

che ho provato ad usare inutilmente.
Probabilmente sbaglio qualcosa, pertanto se ci fosse qualche anima pia che potesse aiutarmi gliene sarei grato

[LeleFT]

Visto che hai riaperto una nuova discussione (cosa che non so deve mai fare: sempre contattare un moderatore per sistemare piccole cose come il titolo), almeno potevi impegnarti un attimo e aggiungere i tag CODE nel codice e pure un minimo di indentazione, come espressamente richiesto dal Regolamento interno.

Ciao.

[saintblessme]

Originariamente inviato da LeleFT
Visto che hai riaperto una nuova discussione (cosa che non so deve mai fare: sempre contattare un moderatore per sistemare piccole cose come il titolo), almeno potevi impegnarti un attimo e aggiungere i tag CODE nel codice e pure un minimo di indentazione, come espressamente richiesto dal Regolamento interno.

Ciao.

Hai ragione ho letto adesso!
Ovviamente, prima discussione, prime cavolate fatte!
scusa e grazie per aver sistemato.
lette le 10 regole d'oro!

[saintblessme]

ho risolto nel modo seguente, a chi servisse aggiungo che bisogna importare da riferimenti il modulo microsoft xml 6.0:

Private Sub InviaXML_Click() 'variabile HTTP Dim myHTTP As MSXML2.XMLHTTP ' oggetto HTTP Set myHTTP = CreateObject("msxml2.xmlhttp") 'crea il documento come contenitore Dim myDom1 As MSXML2.DOMDocument Dim myDom2 As MSXML2.DOMDocument Dim myDom3 As MSXML2.DOMDocument 'crea l'oggetto documento Set myDom1 = CreateObject("MSXML2.DOMDocument") Set myDom2 = CreateObject("MSXML2.DOMDocument") Set myDom3 = CreateObject("MSXML2.DOMDocument") 'carica tutti i documenti per intero myDom1.async = False myDom2.async = False myDom3.async = False 'le variabili xml come string Dim myxml1 As String Dim myxml2 As String Dim myxml3 As String myxml1 = ("C:\1.xml") myxml2 = ("C:\2.xml") myxml3 = ("C:\3.xml") 'carica i file xml myDom1.Load (myxml1) myDom2.Load (myxml2) myDom3.Load (myxml3) 'apre la connessione myHTTP.Open "POST", "http://192.168.0.53/config/test.xml", False 'manda i file xml myHTTP.send (myDom3.xml  & Dom1.xml & myDom2.xml) 'mostra la risposta dell'host MsgBox myHTTP.responseText End Sub

[gibra]

Originariamente inviato da saintblessme
ho risolto nel modo seguente, a chi servisse aggiungo che bisogna importare da riferimenti il modulo microsoft xml 6.0:

Avrai pure letto il Regolamento, ma di sicuro non l'hai applicato.