Formular automatisch ausfüllen lassen

  • VB.NET

    Formular automatisch ausfüllen lassen

    Also ich habe auch schon die boardsuche benutzt aber nix passendes gefunden... ich will ein formular im internet automatisch mit meinem programm ausfüllen lassen, bzw ich habe das formular in meinem programm, und fülle dies im internet aus... ich bekomme allerdings immer fehler, und ausfüllen tut er garnix....

    hier mein code

    VB.NET-Quellcode

    1. Option Strict Off
    2. Option Explicit On
    3. Friend Class Form1
    4. Inherits System.Windows.Forms.Form
    6. Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
    7. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts WebBrowser1.Document.Forms konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    8. WebBrowser1.Document.DomDocument.Forms(0).elements("titel").Value = Text1.Text
    9. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts WebBrowser1.Document.Forms konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    10. WebBrowser1.Document.DomDocument.Forms(0).elements("cover").Value = Text2.Text
    11. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts WebBrowser1.Document.Forms konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    12. WebBrowser1.Document.DomDocument.Forms(0).elements("uploader").Value = Text3.Text
    13. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts WebBrowser1.Document.Forms konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    14. WebBrowser1.Document.DomDocument.Forms(0).elements("passwort").Value = Text4.Text
    15. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts WebBrowser1.Document.Forms konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    16. WebBrowser1.Document.DomDocument.Forms(0).elements("große").Value = Text5.Text
    17. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts WebBrowser1.Document.Forms konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    18. WebBrowser1.Document.DomDocument.Forms(0).elements("descr").Value = Text6.Text
    19. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts WebBrowser1.Document.Forms konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    20. WebBrowser1.Document.DomDocument.Forms(0).elements("links").Value = Text7.Text
    22. 'UPGRADE_WARNING: Die Standardeigenschaft des Objekts WebBrowser1.Document.Forms konnte nicht aufgelöst werden. Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    23. WebBrowser1.Document.DomDocument.Forms(0).elements("login").Click()
    25. End Sub
    27. Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    28. WebBrowser1.Navigate(New System.Uri(("http://flashload.org/?p=upload")))
    29. Do
    30. System.Windows.Forms.Application.DoEvents()
    31. Loop Until WebBrowser1.IsBusy = False
    32. End Sub
    34. Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
    36. End Sub
    37. End Class


    er zeigt mir immer die webbroser1 zeilen als fehler an, könnt ihr guten mir mal helfen was da falsch ist ??

Facebook
Telefonspende