php upload automatisieren

[Biri]

hi !

so - inzwischen hab ich das ganze gelöst und es funktioniert sogar.
muss aber zugeben, dass ich dabei bissl "geschummelt" hab - hab nämlich beim suchen der hilfe zum vb socket control folgendes gefunden:

http://www.internext.co.za/stefan/genericpost/

Diesen http-poster kann man natürlich in VB inkludieren und der macht dann die ganze arbeit.

Der verbleibende VB-Code:

Private Sub Auto_Upload_Click()
On Error GoTo err_post

Dim data As String, nextline As String
Dim filenum As Integer
Dim poster As INXHTTPPost.poster
Dim e As Variant

Set poster = New INXHTTPPost.poster
filenum = FreeFile

' zu sendenede Daten auslesen
' hier pfad der .xml Datei angeben !
Open "C:\testfile.xml" For Input As filenum
Do Until EOF(1)
Line Input #filenum, nextline
data = data + nextline + Chr(13) + Chr(10)
Loop
Close filenum

poster.AddParam "fileNname", "12345_20031001.xml"
poster.AddParam "uploadData", data
e = poster.Post("http://localhost/webappl/upload.php", 0)

If Len(e) > 0 Then
Debug.Print "An error occured"
Else
' Hier bekommt man das .xml - Ergebnis vom php-Script zurück
Debug.Print "The Post was successful - Response: " + poster.LastResponse
End If

Exit Sub

err_post:
MsgBox Error
End Sub

in php ist das ganze dann in $POST["uploadData"] zugreifbar.

fg
-hannes