Ins Internet verbinden-Seite auswählen nen klick realisieren

krillator · Hält's aus hier Beiträge: 5

Hallo, also ich wollte nur ein kleines Programm schreiben, womit ich
im Internet eine Seite aufrufe. Und auf dieser Seite in einem bestimmten feld einen Namen angeben kann.
Das möchte ich eben alles nur mit einem klick realisieren, ohne immer auf diese Seite gehen zu müssen um dort nen Namen einzugeben.
Kenne mich mit Internetabindung unter Delphi leider nicht aus.
also vielen Dank gruß Krillator :roll:

matze · Verfasst: Fr 24.01.03 21:36

schau dir mal den quellcode der seite an !!

normalerweise wenn du auf die seite drauf gehst, dann was in ein feld eintipps und auf absenden klickst wird der inhalt des textfeldes per POST oder GET übertragen. schau dir an, wie die seite den inhalt überträgt und dann ist der rest ein kinderspiel !!

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Himmelsdrache · Hält's aus hier Beiträge: 5

Kinderspiel?
will sowas auch machen, hab aber keine ahnung wie das gehen soll
ich hab ein formular (method=post) und mehrere inputs
wie kann ich das jetzt mitnem delphi programm automatisch abschicken?

matze · Verfasst: Mo 03.02.03 17:42

Das stichwort heisst INDY !!!

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Himmelsdrache · Hält's aus hier Beiträge: 5

aaahja... danke

nur... wie installier ich die indy-komponente?
runtergeladen hab ichse mir, das sind jetzt etliche pas-datien, einige bat, dpk und 2 exe-dateien
was nun?
im delphi menü komponenten installieren? und dann?

kenn mich noch nicht so gut mit delphi aus

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Himmelsdrache hat folgendes geschrieben:

nur... wie installier ich die indy-komponente?

Das ist eine andere Frage. Bitte dafür ein eigenes Topic erstellen!

Gruß
TINO

matze · Verfasst: Di 04.02.03 20:42

das ist alles im readme file beschrieben !! das ist extrem simpel

_________________
In the beginning was the word.
And the word was content-type: text/plain.

F.Art · Beiträge: 434

Ich habe noch eine alternatieve.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw, ComCtrls, StdCtrls, jpeg, ExtCtrls;
type
  TForm1 = class(TForm)
    Nummer: TEdit;
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure delay(msec:longint);
var
start,stop:longint;
begin
start := gettickcount;
repeat
stop := gettickcount;
application.processmessages;
until (stop - start ) >= msec;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Document: OleVariant;
begin
WebBrowser1.Navigate('http://www.test.html');
repeat
Application.ProcessMessages;
Sleep(0);
until WebBrowser1.ReadyState = READYSTATE_COMPLETE;
Document:= WebBrowser1.Document;
Document.all.item('Name').value := Name.Text;
Document.all.item('AGB').checked:=true;
Document.all.item('send').click;
delay(3000);
end;
end.

rmasterb · Beiträge: 71

markieren

Quelltext

1:	Document.all.item('send').click;

was ist jetzt wenn der button den ich klicken will keinen namen hat? sprich name="" kommt in der html nicht vor. gibt es einen standart namen für buttons?? zb.: Button1 wie bei delphi

wenn ich in delphi "Document." schreibe kommt keine delphihilfe und in der normalen delphihilfe habe ich auch nichts zu olevarant gefunden. was kann man noch alles mit OleVariant machen? kennt einer vieleicht ein nützliches tutorial??

F.Art · Beiträge: 434

Du kannst auch bei Javascript

markieren

Quelltext

1:	Document.all.item('smsform').submit;

Wenn du ein speziellen HTML Quelltext hast poste den doch mal bitte.

rmasterb · Beiträge: 71

das ist der ausschnitt:

markieren

Quelltext

1:
2:
3:
4:
5:

 Nick:
         <input type="text" name="login" maxlength="30" class="inputtitel">
 Passwort:
         <input type="password" name="pwd" maxlength="30" class="inputtitel">
         <input type="submit" value="Einloggen" class="buttontitel">

wie man sieht kommt da beim button kein name="". ich habe es mit "einloggen" probiert aber das funzt nicht

F.Art · Beiträge: 434

versuch doch mal 'Einloggen'.click
und der komplette html quelltext original wäre gut

rmasterb · Beiträge: 71

hier haste den quelltext:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

<html>
<head>
<title>www.The-Arena.de | Die Arena erwartet dich!</title>
<style type="text/css">
<!--
body {  background-color: #000000; background-image: none}
-->
</style>
<link rel="stylesheet" href="styleog.css" type="text/css">
</head>

<body bgcolor="#000000" text="#000000" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" bgcolor="#000000">
  <tr>
  <td>
<center><a href="http://62.146.220.95/nt-bin/click.exe?a100005" TARGET="_blank"><img border="0" src="http://62.146.220.95/nt-bin/show.exe?a100005" width="468" height="60"></a></center>
  </td>
  </tr>
  <tr>
          <td align=center>
            <a href="signup_frame.php?werber=&PHPSESSID=4840e1ad85aad3ca823d207b7975034f">Anmelden</a> | <a href="anleitung_frame.php?werber=&PHPSESSID=4840e1ad85aad3ca823d207b7975034f">Was
            ist The-Arena?</a></td>
  </tr>
  <tr>
<td>
  <div align=left></div><div align=right><a href="logindaten.php?werber=&PHPSESSID=4840e1ad85aad3ca823d207b7975034f">Nickname/Passwort vergessen</a></div>
</td>  </tr>
  <tr>
    <td valign="middle" align="center">
      <img src="http://www.chat-hamm.de/Arena/titel_bg.jpg">
      <br>
      <br>
<form action="http://s7.the-arena.de/login2a.php" target="_self" method="post"><input type="hidden" name="PHPSESSID" value="4840e1ad85aad3ca823d207b7975034f" />
          Nick:
         <input type="text" name="login" maxlength="30" class="inputtitel">
         Passwort:
         <input type="password" name="pwd" maxlength="30" class="inputtitel">
         <input type="submit" value="Einloggen" class="buttontitel">
        </form>
      <br>
      <a href="agb.php?werber=&PHPSESSID=4840e1ad85aad3ca823d207b7975034f">AGB</a> | <a target="_blank" href="http://forum.the-arena.de/viewforum.php?f=7">FAQ</a>
      | <a target="_blank" href="community.php?werber=&PHPSESSID=4840e1ad85aad3ca823d207b7975034f">Community</a> | <a href="werben.php?werber=&PHPSESSID=4840e1ad85aad3ca823d207b7975034f">Hier
      werben?</a> | <a href="impressum.php?werber=&PHPSESSID=4840e1ad85aad3ca823d207b7975034f">Kontakt</a> | <a href="media.php?werber=&PHPSESSID=4840e1ad85aad3ca823d207b7975034f">Statistik</a></td>
  </tr></table>

<script language="JavaScript" type="text/javascript" src="http://ads.adtrading.de/popup.php?sid=45&lid=94&type=PopUp"></script>

</body>
</html>

-Razor- · Hält's aus hier Beiträge: 6

ach ne....da wollte jemand ein Auto-Login Programm für "The Arena" schreiben, um Ruhmpunkte zu kassieren....

naja...jetzt kriegt man für die Logins ja eh keine Ruhmpunkte mehr.....hab ich aber auch gemacht :wink:

JustusJonas · Beiträge: 222

WebBrowser1.OleObject.Document.Forms.item(0).submit;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme