moin leute,
als aller erstes: Die Seite auf die zugegriffen wird gehört mir. ich habe nicht vor irgendwelche gästebücher vollzuspammen sondern mich mit der komponente vertraut zu machen um bots für irgendwelche online games zu machen.
jetzt zu meinem problem!
ich versuche ein formular auszufüllen was auch wunderbar funktioniert das problem ist jetzt das er das formular jetzt nicht submitten will sondern lieber einen error ausgibt.
was muss ich ändern das es klappt?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure TForm1.Button1Click(Sender: TObject);
var
Webform: variant;
begin
with browser do
begin
OleObject.document.forms.item(0).elements.item('name').value := 'Testbot';
OleObject.document.forms.item(0).elements.item('com').value := 'ich bin ein BoT';
Webform := form1.browser.OleObject.Document.Forms.item(0);
Webform.submit;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
browser.Navigate('http://crazyplanet-online.de');
end; |
Gruß crAzywuLf
