Button einer Web-Seite "drücken" lassen

[XeRo]

Hi.

ich will, dass mein programm, nach dem durchsuchen des quelltextes, automatisch auf einer Internetseite einen Button drücken lässt.

Button sieht wie folgt aus:

Zitat:

<input type="hidden" name="skill" value="Make"><input type="Submit" name="Machen" value="Machen" class="formular_transp">

So, jetzt hab ich leider keine ahnung wie das gehen soll...Wenn möglich möchte ich auf Komponenten wie TWebBrowser verzichten.

Kann mir da jemand helfen ? ;-)

[DGL-luke]

das hört sich ganz eindeutig an, als wolltest du ein Browsergame hacken. und sowas machen wir hier nicht.

obwohl es sowas von einfach ist... alle buttons in browsergames sind links(auch und gerade submit-buttons), und links kann man folgen... leute, wenn ihr schon cracken wollt, wieso stellt ihr euch dann so an?

[XeRo]

Nein, das will ich nicht ;-)

und wo ist da

Zitat:

<input type="hidden" name="skill" value="Make"><input type="Submit" name="Machen" value="Machen" class="formular_transp">

der link versteckt???
hab keine ahnung wie das gehen soll...

[DGL-luke]

der link is im action-attribut des form-tags :stupid:
wenn in method dann get drinsteht, hast du sowieso schon gewonnen.

[Treffnix]

Mit dem Webbrowser wärs relativ einfach. webbrowser click

Ohne musste dir den Link halt zusammenbasteln. Klappt aber auch nicht immer. Das <form> hat irgendwo ein Target eingetragen. Dahinter die Werte mit ?<wert>=<value>&<wert2>=<value2>&.....

[XeRo]

Danke erstmals.

[XeRo]

Habs jetzt doch mit TWebbrowser gemacht ;-)

hab folgendes Script verwendet:

Delphi-Quellcode:

PROCEDURE ClickOnButton(WebBrowser1:TWebBrowser; BT_text:STRING); 
VAR 
  ovElements,ovFrames: OleVariant; 
  i,j,k: Integer; 
BEGIN 
  IF Webbrowser1.OleObject.Document.Frames.Length > 1 THEN 
  BEGIN 
        ovFrames := Webbrowser1.OleObject.Document.Frames; 
        FOR j := 0 TO (ovFrames.Length - 1) DO 
            FOR k := 0 TO (ovFrames.Item(j).Document.Forms.Length - 1) DO 
            BEGIN 
                ovElements := ovFrames.Item(j).Document.Forms.Item(k).elements; 
                FOR i := 0 TO (ovElements.Length - 1) DO 
                  IF ((ovElements.Item(i).tagName = 'INPUT') 
                    AND (ovElements.Item(i).type = 'submit') 
                    AND (ovElements.Item(i).Value = BT_text)) THEN 
                        ovElements.Item(i).Click; 
            END; 
  END 
  ELSE 
  BEGIN 
      FOR j := 0 TO (WebBrowser1.OleObject.Document.forms.Length - 1) DO 
      BEGIN 
          ovElements := WebBrowser1.OleObject.Document.forms.item(j).elements; 
          FOR i := 0 TO (ovElements.Length - 1) DO 
              IF ((ovElements.item(i).tagName = 'INPUT') 
                AND (ovElements.item(i).type = 'submit') 
                AND (ovElements.item(i).Value = BT_text)) THEN 
                    ovElements.item(i).Click; 
      END; 
  END; 
END;

Danke @All.

[pain]

und was mach ich, wenn mehrere buttons die gleiche beschriftunghaben???

[Waldteufel]

Hi.

Das name-Attribut sollte auf jeden Fall eindeutig sein. :zwinker:

[pain]

Zitat:

<form action="irgendwas.php" method="POST">
<input type="hidden" name="make" value="irgendwas1">
<input type="hidden" name="form" value="">
<input type="Submit" name="Machen" value="Machen" class="formular_transp">
</form>

<form action="irgendwas.php" method="POST">
<input type="hidden" name="make" value="irgendwas2">
<input type="hidden" name="form" value="">
<input type="Submit" name="Machen" value="Machen" class="formular_transp">
</form>

:gruebel: