Html Forms automatisch füllen

chaosII

Grünschnabel
Hallo,
ich bräuchte bitte eure hilfe!

Ich habe mir ein kleines Programm gebastelt das mir eine html Seite anzeigt!
Auf die Seite gibt es nun Forms, in die ich per klick auf einen Button füllen lassen will.

So sieht der html Code für eine Form aus:
Code:
<input type="TEXT" NAME="EntryName">

Ich habe schon hier im Forum danach gesucht aber leider nichts gefunden. Auch Google bringt nicht viele Ergebnisse! Nur ein Beispiel habe ich gefunden, dass aber in VB6 ist!

Hier der Code:
Code:
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 = "test"
		.Document.Forms(0).feld2.Value = "test2"
		.Document.Forms(0).feld3.Value = "test3"	 
	 End With
End Sub

Hab dann mal versucht den Code so in mein Programm zu übernehmen, obwohl ich nicht gedacht hätte dass keine Fehlermeldung gleich zum Anfang kommt!

Also es lässt sich noch starten. Wenn ich dann aber auf den Button klicke um die Forms zu füllen bekomme ich diese Fehlermeldung:
Code:
Eine nicht behandelte Ausnahme des Typs 'System.Runtime.InteropServices.MarshalDirectiveException' ist in mscorlib.dll aufgetreten.
Zusätzliche Informationen: Marshalereinschränkung: Zu lange Zeichenfolge.

Ich denke das der code nicht ganz richtig ist, aber ich komm leider nicht weiter!

Wäre super wenn mir da jemand von euch einen Tipp geben könnte

gruß chaos
 
so ein misst! dass man die lösung immer erst dann findet wenn man die frage schon gestellt hat :rolleyes:

also so gehts:

Code:
With wbrWebBrowser
		.Document.Forms(0).feld1.Value = "test"
		.Document.Forms(0).feld2.Value = "test2"
		.Document.Forms(0).feld3.Value = "test3"	 
	 End With

statt feld1 muss man den namen der form nehmen hier also --> EntryName

Code:
With wbrWebBrowser
.Document.Forms(0).EntryName.Value = "test"
.Document.Forms(0).Form_Name2.Value = "test2"
.Document.Forms(0).Form_Name3.Value = "test3" 
End With
 
Zurück