Ausfüllen von Onlineformularen

Beginner

Saturday, February 7th 2009, 5:06pm

Ausfüllen von Onlineformularen

Hallo an alle,

ich bin leider noch Neuling in der Scriptbranche und brauche dringend eine Antwort auf meine Frage.

Ich möchte mit einem kleinen vbs - Script eine Internetseite aufrufen lassen und dort die Formularfelder mit bestimmten Werten ausfüllen lassen. Diese Werte möchte ich aus einer vorhandenen Textdatei abfragen und im Zufallsprinzip ausgeben. Das heißt wenn ein bestimmter Wert der Datei bereits ins Formular eingetragen wurde, dann darf er nicht mehr zur Auswahl stehen und erneut abgefragt werden.

Vielen Dank für eure Hilfe!

Daniel

Torben Brodt

Administrator

Posts: 8,454

Sunday, February 8th 2009, 11:04am

Ich habe dazu in mehreren Quellen diesen Link gefunden: http://www.activevb.de/tipps/vb6tipps/tipp0330.html

VisualBasic Quellcode

'Dieser Quellcode 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!
 
'------------- Anfang Projektdatei Project1.vbp -------------
' Die Komponente 'Microsoft Internet Controls (shdocvw.dll)' wird benötigt.
 
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "cmdFill"
' Steuerelement: Schaltfläche "cmdSend"
' Steuerelement: Textfeld "txtTime"
' Steuerelement: Textfeld "txtDate"
' Steuerelement: Textfeld "txtName"
' Steuerelement: Webbrowsercontrol "wbrWebBrowser"
' Steuerelement: Beschriftungsfeld "lblText"
 
 
'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).feld1.Value = txtName.Text
        .Document.Forms(0).feld2.Value = txtTime.Text
        .Document.Forms(0).feld3.Value = txtDate.Text
        .Document.Forms(0).textfeld.Value = lblText.Caption
    End With
End Sub
 
Private Sub cmdSend_Click()
    wbrWebBrowser.Document.Forms(0).submit.Click
End Sub
 
Private Sub Form_Load()
    wbrWebBrowser.Navigate App.Path & "\form.htm"
    txtName.Text = "Anonymus"
    txtTime.Text = Time
    txtDate.Text = Date
 
    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
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------