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
er zeigt mir immer die webbroser1 zeilen als fehler an, könnt ihr guten mir mal helfen was da falsch ist ??
hier mein code
VB.NET-Quellcode
- Option Strict Off
- Option Explicit On
- Friend Class Form1
- Inherits System.Windows.Forms.Form
- Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
- '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"'
- WebBrowser1.Document.DomDocument.Forms(0).elements("titel").Value = Text1.Text
- '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"'
- WebBrowser1.Document.DomDocument.Forms(0).elements("cover").Value = Text2.Text
- '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"'
- WebBrowser1.Document.DomDocument.Forms(0).elements("uploader").Value = Text3.Text
- '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"'
- WebBrowser1.Document.DomDocument.Forms(0).elements("passwort").Value = Text4.Text
- '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"'
- WebBrowser1.Document.DomDocument.Forms(0).elements("große").Value = Text5.Text
- '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"'
- WebBrowser1.Document.DomDocument.Forms(0).elements("descr").Value = Text6.Text
- '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"'
- WebBrowser1.Document.DomDocument.Forms(0).elements("links").Value = Text7.Text
- '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"'
- WebBrowser1.Document.DomDocument.Forms(0).elements("login").Click()
- End Sub
- Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
- WebBrowser1.Navigate(New System.Uri(("http://flashload.org/?p=upload")))
- Do
- System.Windows.Forms.Application.DoEvents()
- Loop Until WebBrowser1.IsBusy = False
- End Sub
- Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
- End Sub
- End Class
er zeigt mir immer die webbroser1 zeilen als fehler an, könnt ihr guten mir mal helfen was da falsch ist ??