[VisualBasic] Dateien per VB per Webformular hochladen

'Dieser Source stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source !

'Autor: Dominik Weber
'E-Mail: freund2001@gmx.de

Option Explicit

Private Sub cmdFill_Click()
 'Mit forms(0).feld1 wird angegeben, das das erste Objekt
 'mit dem Namen "feld1" im ersten Formular gefüllt werden
 'soll. Wenn es mehrere Formulare in einem HTML-Dokument
 'gibt, dann kann das entsprechende Formular mit
 'Forms(Formularnummer) angegeben werden (das erste Formular
 'hat die Nummer 0 das zweite 1 etc.).
 
 With wbrWebBrowser
 
 .Document.Forms(0).passwort.Value = txtPw.Text
 .Document.Forms(0).F1.Value = txtFile.Text
 End With
End Sub

Private Sub cmdSend_Click()
 wbrWebBrowser.Document.Forms(0).submit.Click
End Sub

Private Sub Form_Load()
 wbrWebBrowser.Navigate App.Path & "\Xup - Anonym Multiupload & Fileupload.htm"
 txtFile.Text = "C:\pagefile.sys"
 txtPw.Text = "seb"
 
 
 lblText.Caption = "Property-Prozeduren sind standardmässig " & _
 "öffentlich, wenn sie nicht explizit mit Public oder Private " & _
 "festgelegt werden. Wird Static nicht angegeben, so bleiben die " & _
 "Werte lokaler Variablen zwischen Aufrufen nicht erhalten."
End Sub