Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Internetbutton (Java) drücken (https://www.delphipraxis.net/39336-internetbutton-java-druecken.html)

Stübi 1. Feb 2005 10:43


Internetbutton (Java) drücken
 
Hallo zusammen

Auf der Website Natelskyline kann man als registriertet Swisscomkunde gratis sms-versenden.
Nun meine Frage: Wenn man auf den Logginbutton drückt kommt ein Popupfenster (java) dort kann man seine Natelnummer und das Passwort eingeben. Ich möchte nun nur noch den Button "Weiter" drücken können (Nummer und Passwort einfügen geht ohne Problem), jedoch bin ich mit meinem Latein am Ende, ich habe überhaupt keine Ahnung wie ich den Button Programmtechnisch drücken könnte (ist für die Fertigstellung meines Programms das letzte Hindernis).

Mögliche Namen für den Button und Editfelder sind:
isiwebuserid => Meine Natelnummer (Editfeld)
isiwebpasswd => Mein Passwort (Editfeld)
isiwebjavascript
isiwebappid
isiwebmethod
isiweburi
isiwebargs
NATELNum

Bin für jede Hilfe dankbar

Gruss stübi

tester008 1. Feb 2005 18:10

Re: Internetbutton (Java) drücken
 
also bei einem javascript kannst du dir das leicht machen

du füllst die seite aus und machst
Delphi-Quellcode:
webbrosernavigate 'javasciprtname'
und fertig

Tubos 1. Feb 2005 18:35

Re: Internetbutton (Java) drücken
 
Bitte beachten: JavaScript und Java sind zwei unterschiedliche Programmiersprachen!

Bei diesem Popup handelt es sich nicht um Java.

Zitat:

Ich möchte nun nur noch den Button "Weiter" drücken können (Nummer und Passwort einfügen geht ohne Problem),
Es gibt Browser (z.B. Opera), die so eine Funktion von Haus aus eingebaut haben. Aber ich vermute mal dass du es selber machen willst.

shmia 1. Feb 2005 19:16

Re: Internetbutton (Java) drücken
 
Delphi-Quellcode:
procedure SubmitWebForm(webform:OleVariant);
var
   i : Integer;
   formitem : OleVariant;
   itemtype, itemname : string;
begin
   // Schleife über alle Items eines WebFormulars
   For i:= webform.Length-1 downto 0 do
   begin
      formitem := webform.Item(i);
      itemtype := UpperCase(formitem.Type);
      itemname := UpperCase(formitem.Name);

      // if it's a submit button: click it
      if itemtype = 'SUBMIT' then
      begin
         formitem.Click;
         Exit;
      end
      else if (itemtype='BUTTON') and (itemname='SUBMIT') then
      begin
         formitem.Click;
         Exit;
      end
   end;

   // try default submit Method
   webform.submit;
end;

// erstes Formular abschicken
SubmitWebForm(WebBrowser1.OleObject.document.forms.Item(0));

Stübi 3. Feb 2005 07:30

Re: Internetbutton (Java) drücken
 
Danke vielmals für die schnellen und guten Antworten, mit der Procedure von shmia bin ich weitergekommen und kann nun endlich mein Projekt abschliessen.

Gruss Stübi


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

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