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.