Ausfüllen von Onlineformularen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • 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
  • Ich habe dazu in mehreren Quellen diesen Link gefunden: activevb.de/tipps/vb6tipps/tipp0330.html

    Quellcode

    1. 'Dieser Quellcode stammt von http://www.activevb.de
    2. 'und kann frei verwendet werden. Für eventuelle Schäden
    3. 'wird nicht gehaftet.
    4. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
    5. 'Ansonsten viel Spaß und Erfolg mit diesem Source!
    6. '------------- Anfang Projektdatei Project1.vbp -------------
    7. ' Die Komponente 'Microsoft Internet Controls (shdocvw.dll)' wird benötigt.
    8. '--------- Anfang Formular "Form1" alias Form1.frm ---------
    9. ' Steuerelement: Schaltfläche "cmdFill"
    10. ' Steuerelement: Schaltfläche "cmdSend"
    11. ' Steuerelement: Textfeld "txtTime"
    12. ' Steuerelement: Textfeld "txtDate"
    13. ' Steuerelement: Textfeld "txtName"
    14. ' Steuerelement: Webbrowsercontrol "wbrWebBrowser"
    15. ' Steuerelement: Beschriftungsfeld "lblText"
    16. 'Autor: Dominik Weber
    17. 'E-Mail: freund2001@gmx.de
    18. Option Explicit
    19. Private Sub cmdFill_Click()
    20. 'Mit forms(0).feld1 wird angegeben, das das erste Objekt
    21. 'mit dem Namen "feld1" im ersten Formular gefüllt werden
    22. 'soll. Wenn es mehrere Formulare in einem HTML-Dokument
    23. 'gibt, dann kann das entsprechende Formular mit
    24. 'Forms(Formularnummer) angegeben werden (das erste Formular
    25. 'hat die Nummer 0 das zweite 1 etc.).
    26. With wbrWebBrowser
    27. .Document.Forms(0).feld1.Value = txtName.Text
    28. .Document.Forms(0).feld2.Value = txtTime.Text
    29. .Document.Forms(0).feld3.Value = txtDate.Text
    30. .Document.Forms(0).textfeld.Value = lblText.Caption
    31. End With
    32. End Sub
    33. Private Sub cmdSend_Click()
    34. wbrWebBrowser.Document.Forms(0).submit.Click
    35. End Sub
    36. Private Sub Form_Load()
    37. wbrWebBrowser.Navigate App.Path & "\form.htm"
    38. txtName.Text = "Anonymus"
    39. txtTime.Text = Time
    40. txtDate.Text = Date
    41. lblText.Caption = "Property-Prozeduren sind standardmässig " & _
    42. "öffentlich, wenn sie nicht explizit mit Public oder Private " & _
    43. "festgelegt werden. Wird Static nicht angegeben, so bleiben die " & _
    44. "Werte lokaler Variablen zwischen Aufrufen nicht erhalten."
    45. End Sub
    46. '---------- Ende Formular "Form1" alias Form1.frm ----------
    47. '-------------- Ende Projektdatei Project1.vbp --------------
    Alles anzeigen


    wenns kein VBS sein muss, würde ich den HTTP POST einfach selbst abschicken.