Cara membuat Router/Super Router di Delphi 7

Assalamu'alaikum Wr.WB
ok ...gan..
pada postingan kali ini saya akan mengshare " Cara membuat Router di Delphi 7 "
ok gan..langsung saja kita ke Step by Stepnya gan..

1. Buka Software Delphi 7 agan..
2. Tambahkan komponen-komponen seperti beikut :

+ 1 Memo (nnt komponen ini di gunakan untuk log router ) dan setting ScrollBars menjadi "ssBoth"

+ 4 Edit (untuk kegunaan setiap komponen Edit di bawah ini :

Edit1 : untuk code cmd ( ipconfig )
Edit2 : untuk mask router (cmd) nnt agan kasih text " 255.255.255.255 "
Edit3 : untuk metric router (cmd) nnt agan kasih text " 1 "
Edit4 : untuk tempat IP kita

+ 1 ComboBox (untuk penempatan proxy setiap operator )

+ 6 Button ( untuk kegunaan setiap komponen Button ada di bawah ini :

Button1 : untuk send code cmd

Button2 : untuk Clear / menghapus log di komponen Memo1 tadi

Button3 : untuk tombol Route Add

Button4 : untuk tombol Route Delete

Button5 : untuk tombol Route Print'

Button6 : untuk tombol memuncul kan IP kita di komponen Edit4 tadi

+ 5 Timer (untuk kegunaannya setiap komponen Timer ini ada di bawah ini :

Timer1 : tempat untuk code memunculkan IP kita ( agan setting Enable menjadi False )

Timer2 : tempat untuk code Route Add tadi ( agan setting Enable menjadi False )

Timer3 : tempat untuk code Route Delete ( agan setting Enable menjadi False )

Timer4 : tempat untuk code Route Print ( agan setting Enable menjadi False )

Timer5 : tempat untuk code Config CMD di komponen Edit1 tadi ( agan setting Enable menjadi False )

+ 1 DosCommand ( buat agan yg Delphi 7-nya belum terinstal komponen ini, cara instal komponen DosCommand ada di SINI??? )
+ 1 IdIPWatch

jika sudah di tambahkan semua komponenya jadinya seperti gambar di bawah ini :

3. Masukan Code -Code Dibawah ini Sesuai dengan peletakan pada komponen :

>> Code untuk komponen Timer1 :

Edit4.Text := IdIPWatch1.LocalIP;

>> Code untuk komponen Timer2 ( hilangkan " Begin " terlebih dahulu ) :

var fien : String;
command : TDosCommand;
begin
command := TDosCommand.Create(nil);
fien := 'route add '+ ComboBox1.Text;
if edit2.Text <> '' then
fien := fien + ' mask ' + edit2.Text;
fien := fien + ' ' + edit4.Text;
if Edit3.Text <> '' then
fien := fien + ' metric ' + edit3.Text;
command.CommandLine := fien;
command.Execute;
memo1.lines.add(fien+#13#10#13#10+'Done..!');
Timer2.Enabled := False;
if (MessageBox(Self.Handle, 'Route Add Succes..', 'By Fien Shirayuki', MB_OK + MB_ICONINFORMATION)=idOK)then;

memo1.Clear;

>> Code untuk komponen Timer3 ( hilangkan " Begin " terlebih dahulu ) :

var fien:String;
command : TDosCommand;
begin
command := TDosCommand.Create(nil);
fien := 'route delete '+ ComboBox1.Text;
command.CommandLine := fien;
command.Execute;
memo1.lines.add(fien+#13#10#13#10+'Done..!');
Timer3.Enabled := False;
if (MessageBox(Self.Handle, 'Route Delete Succes..', 'By Fien Shirayuki', MB_OK + MB_ICONINFORMATION)=idOK)then;
memo1.Clear;

>> Code untuk komponen Timer4 ( hilangkan " Begin " terlebih dahulu ) :

var fien:String;
command : TDosCommand;
begin
command := TDosCommand.Create(nil);
fien := 'route print';
command.CommandLine := fien;
command.OutputLines := memo1.Lines;
command.Execute;
Timer4.Enabled := False;

>> Code untuk komponen Timer5 ( hilangkan " Begin " terlebih dahulu ) :

var fien:String;
command : TDosCommand;
begin
command := TDosCommand.Create(nil);
fien := edit1.Text;
command.CommandLine := fien;
command.OutputLines := memo1.Lines;
command.Execute;
Timer5.Enabled := False;

>> Code untuk komponen Button1 ( agan beri caption " Send " ) :

Timer5.Enabled := True;

>> Code untuk komponen Button2 ( agan beri caption " Clear Log " ) :

memo1.Clear;

>> Code untuk komponen Button3 (agan beri caption " Route Add " ) :

Timer2.Enabled := True;

>> Code untuk komponen Button4 (agan beri caption " Route Delete " ) :

Timer3.Enabled := True;

>> Code untuk komponen Button5 (agan beri caption " Route Print " ) :

Timer4.Enabled := True;

>> Code untuk komponen Button6 (agan beri caption " IP/Get Ip " ) :

Timer1.Enabled := True;

>> Lalu agan tambahkan Item Strings pada komponen Combo Box1 :

202.152.240.050
10.19.19.19
10.1.89.130
10.4.0.10
10.8.3.8
10.20.27.250

jadinya seperti gambar di bawah ini kalo udah di tambahin Item Strings :

4. sekarang tinggal agan coba project Router agan...

ok cukup sekian dari postingan kali ini..
jika ada kesalahan tolong di maafkan gan..

Wassalamu'alaikum Wr.Wb...