ExtraForum - 1299 Private Serverlar - Server Dosya Paylaşımları
Would you like to react to this message? Create an account in a few clicks or log in to continue.
ExtraForum - 1299 Private Serverlar - Server Dosya Paylaşımları

Güncel Paylaşım Forumu !
 
AnasayfaGaleriAramaLatest imagesKayıt OlGiriş yap
Eğlence Başladı Rütbeni Seç! TIKLA
Moderatör Alımı Başladı TIKLA

 

 Delphi Modem Resetleme

Aşağa gitmek 
YazarMesaj
ALPA
Site Kurucusu
Site Kurucusu
ALPA


Mesaj Sayısı : 815
Nerden : Ankara
Kayıt tarihi : 02/03/09
Rep Puanı Rep Puanı : 32

Delphi Modem Resetleme Empty
MesajKonu: Delphi Modem Resetleme   Delphi Modem Resetleme Icon_minitimePerş. Nis. 23, 2009 6:51 am

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.
Sayfa başına dön Aşağa gitmek
http://www.weyyo.com
 
Delphi Modem Resetleme
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Delphi Charcase
» Delphi Enabled
» DELPHİ DLL İLE ŞİFRELEME
» DELPHİ DLL İLE DEMO
» DELPHİ DLL İLE ŞİFRELEME

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ExtraForum - 1299 Private Serverlar - Server Dosya Paylaşımları :: Delphi-
Buraya geçin:  

weyyo

knight online serverlar

metin2 serverlar

silkroad serverlar