Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Formular ohnt (Html)Forms ausfüllen (https://www.delphipraxis.net/82298-formular-ohnt-html-forms-ausfuellen.html)

Philipp_Reitter 10. Dez 2006 16:11


Formular ohnt (Html)Forms ausfüllen
 
hi

ich würd gerne in prog schreiben was sich bei ogame automatisch einloggt weil mich's immer nerft mich einzuloggen.
wie man ein formular ausfüllt weiß ich aber bei www.ogame.de gehts einfach ned weil da (anscheinend) keine forms sind..?!?
kann mir da jemand weiterhelfen

danke im voraus

Philipp

1ceman 10. Dez 2006 16:15

Re: Formular ohnt (Html)Forms ausfüllen
 
ich hab da ne form gefunden;)

Delphi-Quellcode:
<form name="formular" ... >

[edit=Matze]Beitrag aufgrund eines Cache-Problems aktualisiert. MfG, Matze[/edit]

Philipp_Reitter 10. Dez 2006 16:18

Re: Formular ohnt (Html)Forms ausfüllen
 
ok dann gibts ne form aber ich hab so nen delphi script gefunden der die forms zählt und die sagt in welcher das gesuchte feld oder sonstiges element ist und der is an ogame gescheiterd alle anderen pages haben funktioniert!!
ah ja und NEIN es wird kein bot wiel'n bot währe iel zu schwer für mich!

1ceman 10. Dez 2006 16:36

Re: Formular ohnt (Html)Forms ausfüllen
 
dann machs doch ohne dem script, reicht doch wenn du es direkt mit der form programmierst,
da es ja nur für die seite sein soll und nicht für verschieden seiten.

Philipp_Reitter 10. Dez 2006 16:42

Re: Formular ohnt (Html)Forms ausfüllen
 
äääääähhhhh was???
jetzt kaperi ich gar nix mehr!
kann man das nicht irgendiwe machen!
firefox schaffts auch!
und ich hab wo einen script gefunden:

Delphi-Quellcode:
Document:= WebBrowser.Document;
  Document.all.item('Uni').value := recUniversum;
 Document.all.item('login').value := Form2.Log.Text;
 Document.all.item('pass').value := Form2.Password.Text;
aber der geht bei mir ned!!

Meflin 10. Dez 2006 16:50

Re: Formular ohnt (Html)Forms ausfüllen
 
Ich tippe jetzt mal dass das daran liegt dass das Formular keinen Standard-Submit-Button hat sondern via JS abgeschickt wird. Deswegen wird dein Script ins Leere laufen...
Code:
<form name="formular" action="" method="POST" onSubmit="changeAction('login');">
du müsstest also vorher mindestens noch die action des Formulars ändern...

Aufwand und Nutzen eines derartigen Auto-Login-Systems stehen aber wohl kaum im Verhältnis :roll:


Philipp_Reitter 10. Dez 2006 16:52

Re: Formular ohnt (Html)Forms ausfüllen
 
ne an dem liegts ja ned sondern das ausfüllen der loginfelder?!

Meflin 10. Dez 2006 16:56

Re: Formular ohnt (Html)Forms ausfüllen
 
Zitat:

Zitat von Philipp_Reitter
ne an dem liegts ja ned sondern das ausfüllen der loginfelder?!

Jetzt nur mal zur Klärung... willst du dich im IE automatisch einloggen oder willst du dir wirklich einen eigenen Browser dafür schreiben :shock:

Denn der Code, ich weiß nicht ob dir das klar ist, ist ja für eine TWebBrwoser-Instanz :gruebel: was soll denn das noch bringen... in einem externen Browser kannst du damit rein garnichts ausfüllen!


Philipp_Reitter 10. Dez 2006 16:57

Re: Formular ohnt (Html)Forms ausfüllen
 
nene schon in einem eigenen browser in meinem prog drinnen...

1ceman 10. Dez 2006 17:01

Re: Formular ohnt (Html)Forms ausfüllen
 
so kannste auf die form die du brauchst zugreifen:
Delphi-Quellcode:
Webbrowser1.OleObject.Document.Forms.Item('formular','');
nur das bringt dir nicht viel, da die form keine action hat( wie Meflin bereits gesat hat) und auch keinen submit button, weswegen du wahrscheinlich
beim abschicken des formulars probleme bekommen wirst.

//Edit: oder willste dir einfach nur die Felder aus füllen lassen und das einloggen selber machen?

Meflin 10. Dez 2006 17:02

Re: Formular ohnt (Html)Forms ausfüllen
 
Ok... hast dus schonmal so versucht?
Delphi-Quellcode:
webbrowser1.oleobject.document.forms.item(1).elements.item('login').value := '';
webbrowser1.oleobject.document.forms.item(1).elements.item('pass').value := '';
Das könnte auch noch interessant oder gar nötig sein.


Philipp_Reitter 10. Dez 2006 17:03

Re: Formular ohnt (Html)Forms ausfüllen
 
ich schau mal...
danke soweit!!

Philipp_Reitter 10. Dez 2006 17:08

Re: Formular ohnt (Html)Forms ausfüllen
 
@melfi: das hab ich schon veruscht!

@1ceman: nein er soll sich selbst einloggen aber ich weiß nich tiwe ich das anwenden soll kannst du's mir nen code so machen dass er das feld "login" ausfüllt

jfheins 10. Dez 2006 17:09

Re: Formular ohnt (Html)Forms ausfüllen
 
Du weist schon, dass das verboten ist, oder?

Ich hab mal so nen O-Game-Einlogger geschrieben, und hatte anschließend eine Mail-Diskussion, in der sie sich ... eher unkooparativ ... gezeigt haben.

Grung: Der Einlogger umgeht die Werbung auf der Startseite.

Philipp_Reitter 10. Dez 2006 17:10

Re: Formular ohnt (Html)Forms ausfüllen
 
jaja mir schon klar
kannst du mir den source code von deinem einlogger zusenden?

Prototypjack 10. Dez 2006 18:16

Re: Formular ohnt (Html)Forms ausfüllen
 
Moin!

Ähem. Ich rate mal ins Blaue und sage: Das wird er nicht, da der Code illegale Methoden enthält?

Gruß,
Max

Philipp_Reitter 11. Dez 2006 15:28

Re: Formular ohnt (Html)Forms ausfüllen
 
ok vielleicht schon...

jedenfalls 1ceman hat mir das hier gegeben:

Delphi-Quellcode:
Webbrowser1.OleObject.Document.Forms.Item('formular','');
und sagte mit dem gehts aber ich weiß nicht wie ich das anwenden soll...?!
kann mir das jemand erklären..? oder gleich so schreiben dass es in das feld "login" was reinschreibt.

1ceman 11. Dez 2006 15:44

Re: Formular ohnt (Html)Forms ausfüllen
 
ich hab das jetzt mal so gemacht:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var Field:IHTMLElement;
  Formname,FieldName:string;
  Document: IHTMLDocument2;
  Form: IHTMLFormElement;
  Forms: IHTMLElementCollection;
  inputField: IHTMLInputElement;
begin
FormName:='formular';
FieldName:= 'login';
Document:= WebBrowser1.Document as IHTMLDocument2;
Forms:= Document.Forms as IHTMLElementCollection;
Form:= Forms.Item(FormName,'') as IHTMLFormElement;
Field:= Form.Item(FieldName,'') as IHTMLElement;
if Field.TagName = 'INPUT' then
    begin
      inputField := field as IHTMLInputElement;
      inputField.value := 'test';
    end;
end;
nur in der Zeile 14 (Field:= Form.Item(FieldName,'') as IHTMLElement;) kommt immer nen error, ich weiss aber leider net warum.
bin halt auch noch nen anfänger auf dem Gebiet.

Philipp_Reitter 11. Dez 2006 16:40

Re: Formular ohnt (Html)Forms ausfüllen
 
ok danke aber muss ich da was in die uses schrieben weil das ganhe HTML in den var's passt ihm gar nicht

EDIT: ok ich must MSHTML einbinden.

aber das mit dem fehler weiß ich auch ned kann da wer andere mal das mal kontrolieren?

jfheins 11. Dez 2006 17:17

Re: Formular ohnt (Html)Forms ausfüllen
 
Ich hab den sourcecode nicht mehr, aber es lief ungefähr so, dass ich mit den indys einen request gemacht habe, der das absenden der login-daten simulierte, und dann den browser mit dem erhaltenem sourcode geöffnet habe.

Aber im Grunde braucht man das doch nicht, jeder gute (=Opera&FF) Browser for Windows hat heutzutage doch eine Passwort-Funktin, die solche Login-Daten speichert.

Sie können dir wohl kaum vorschreiben, dass du Mosaic benutzen musst ;)

Meflin 11. Dez 2006 17:33

Re: Formular ohnt (Html)Forms ausfüllen
 
Zitat:

Zitat von Philipp_Reitter
aber das mit dem fehler weiß ich auch ned kann da wer andere mal das mal kontrolieren?

meinst du nicht dass du dich in der Zeit, die du brauchst um das zu implementieren, für den Rest deines Lebens manuell bei ogame einloggen kannst :roll: ?


Philipp_Reitter 11. Dez 2006 18:28

Re: Formular ohnt (Html)Forms ausfüllen
 
ja schon aber trotzdem wähs fein...
wie geht denn das mit indys dass man das sendet? und woher weiß ich unter welchem post namen ich das senden muss...!?


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:39 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz