Modem Resetleme

Modemi resetleyip rapidten kurtulun ben ZOOM X6 da denedin çok iyi çalısıyo başka modemlerde denermisiniz yorumlarınızı bekliyorum..

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdTelnet, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient,shellapi;

type
  TForm1 = class(TForm)
    IdTelnet1: TIdTelnet;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
  
    procedure IdTelnet1Connected(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure IdTelnet1Status(ASender: TObject; const AStatus: TIdStatus;
      const AStatusText: String);
    procedure IdTelnet1Disconnected(Sender: TObject);

    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.IdTelnet1Connected(Sender: TObject);
begin
        Color := clTeal;
        Application.ProcessMessages;
        IdTelnet1.WriteLn(Edit2.Text); //modem kullanıcı adı
        Memo1.Lines.Add('Kullanıcı adı gönderildi...');
        Sleep(1000);
        IdTelnet1.WriteLn(Edit3.Text); //modem şifresi
        Memo1.Lines.Add('Şifre gönderildi...');
        Sleep(1000);
        Memo1.Lines.Add('Restart ediliyor...');
        IdTelnet1.WriteLn(Edit4.Text); //restart etme komutu. belki modem markasına göre değişebilir...
        sleep(1500);
        Memo1.Lines.Add('Restart edildi...');
        Sleep(3000);
        IdTelnet1.Disconnect;
        Memo1.Lines.Add('Kapanıyor...');
        sleep(1500);
        form1.close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        if IdTelnet1.Connected then IdTelnet1.Disconnect

end;

procedure TForm1.IdTelnet1Status(ASender: TObject;
  const AStatus: TIdStatus; const AStatusText: String);
begin
        Memo1.Lines.Add(AStatusText);
end;

procedure TForm1.IdTelnet1Disconnected(Sender: TObject);
begin
form1.close;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open',
'C:\Program Files\modem\dns.bat', nil, nil, SW_SHOWNORMAL);// bat dosyası ile dns önbelleğiyi temizliyoruz..
// ipconfig
ipconfig /flushdns
ipconfig /renew bat dosyasına kaydedelim..

IdTelnet1.Host := Edit1.Text ; //modem IP si (Gateway)
  IdTelnet1.Connect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;

end.