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.