Problem beim Seitenaufbau

[freaktonx]

Hey ich bin dabei mir ein kleines Programm zu schreiben dass den Router neustartet dann eine Seite aufruft und dann das gleiche immer wieder. Aber das Problem ist das sich die Seite immer ganz schnell neu läd und nich wie ich mir das vorgestellt habe nur einmal. Wäre nett wenn mir jemand sagen könnte was ich da ändern muss damit die Seite sich nur einmal pro durchlauf aufbaut.

Delphi-Quellcode:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shellapi, StdCtrls, OleCtrls, SHDocVw, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Start: TButton;
    Timer1: TTimer;
    ProgressBar1: TProgressBar;
    Edit1: TLabeledEdit;
    Beenden: TButton;
    StatusBar1: TStatusBar;
    WebBrowser1: TWebBrowser;
    ProgressBar2: TProgressBar;
    procedure StartClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BeendenClick(Sender: TObject);
    procedure WebBrowser1ProgressChange(ASender: TObject; Progress,
      ProgressMax: Integer);
      end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StartClick(Sender: TObject);
  var  Exe : string;
begin
timer1.Enabled := true;
Exe := 'C:\RouterReconnect.exe';
ShellExecute(Application.Handle, 'open', PChar(Exe), '', Pchar(ExtractFileDir(Exe)), SW_SHOW);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
   var Exe : string;
         i : integer;
begin
 progressbar1.position := progressbar1.position +1;
 for i := 1 to 1 do begin
 if progressbar1.position = progressbar1.max then
 begin
 Webbrowser1.Navigate(Edit1.text);
end;
end;

 if progressbar2.Position = progressbar2.max then
 begin
   progressbar1.position :=0;
 end; 

 if progressbar1.Position = progressbar1.Min then
 begin
 Exe := 'C:\RouterReconnect.exe';
 ShellExecute(Application.Handle, 'open', PChar(Exe), '', Pchar(ExtractFileDir(Exe)), SW_SHOW);
end;
end;

procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress: Integer; ProgressMax: Integer);
begin
  if progressbar2.Position < progressbar2.max then
  begin
    progressbar2.Max:=progressMax;
    progressbar2.Position:=Progress;
  end
    else
    begin
      progressbar2.Position:=0;
    end;
end;

procedure TForm1.BeendenClick(Sender: TObject);
begin
 application.Terminate;
end;

end.

gruß freaktonx

[Luckie]

Kannst du uns noch sagen wozu das gut sein Soll? Meinen Verdacht will ich hier aber erst mal nicht äußern.

[freaktonx]

Ich will mir mit dem Programm bei Pennnergame selber spenden. was dachtest du denn?

gruß freaktonx

[BUG]

Zitat:

Zitat von freaktonx

Ich will mir mit dem Programm bei Pennnergame selber spenden. was dachtest du denn?

gruß freaktonx

Das heißt, du willst mit einem Bot bei Pennergame betrügen und erwartest dabei in einem seriösen Delphiforum Hilfe?

MfG,
Bug

[freaktonx]

Ja warum nicht ich habe nichts davon gelesen das man sich nicht selber spenden darf!! :mrgreen: Es ist ledeglich verboten Flaschen bots oder Bugs zu benutzen und das ist ja nichts davon oder??

MfG freaktonx

[BUG]

Zitat:

3.2 Das Spiel darf nur über einen herkömmlichen Internet-Browser gespielt werden.
3.3 Ebenfalls sind alle Scripte verboten, die den Server stark belasten. Legale Skripte sind im Forum hinterlegt.

Btw: Schon die Tatsache das du die IP-Adresse wechseln musst, um dein Vorhaben mehrfach auszuführen, sollte dir zu denken geben.

MfG,
Bug

[freaktonx]

Zitat:

3.2 Das Spiel darf nur über einen herkömmlichen Internet-Browser gespielt werden.

Es ist ja im Prinzip ein herkömmlichen Internet-Browser da die Anwendung ja über IE läut.

Zitat:

3.3 Ebenfalls sind alle Scripte verboten, die den Server stark belasten. Legale Skripte sind im Forum hinterlegt.

...und der Server wird dadurch auch nicht mehr als üblich überlastet.

MfG freaktonx

[BUG]

Zitat:

Zitat von freaktonx

Es ist ja im Prinzip ein herkömmlichen Internet-Browser da die Anwendung ja über IE läut.

Im Prinzip ja, aber das wird Pennergame anders sehen.
Hier sicher kommt es darauf an, daß der Browser in seiner Funktion als Browser (dh. zum manuellen Aufrufen von Internetseiten) benutzt wird.

Zitat:

Zitat von freaktonx

...und der Server wird dadurch auch nicht mehr als üblich überlastet.

Wenn er durch Spenden an dich so stark belastet wäre, das der Traffic nicht unüblich ist, müsstest du kein Programm einsetzten.

Kommen wir zur

AGB

8.3 Der Einsatz von Software zur systematischen oder automatisierten Steuerung und/oder Reproduktion bzw. Auswertung der Leistungen oder einzelner Funktionen (durch z.B. Bots, Makros, Skripte, etc.) ist unzulässig.

MfG,
Bug

PS: Poste den Spendenlink doch in diesem Thema ... man spendet doch gerne Spielgeld :mrgreen:

[freaktonx]

naja dann werde ich mal weiter google quälen... mal sehen ob ich dann ne Antwort bekomme.

Mfg freaktonx

P.s. Falls mir noch jemand eine Antwort geben kann/will pn an mich