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...

Demikianlah Artikel tentang Cara membuat Router/Super Router di Delphi 7

Sekian dulu artikel tentang Cara membuat Router/Super Router di Delphi 7, mudah - mudahan bisa memberi manfaat untuk anda semua. jika anda masih binggung atau belum jelas tentang artikel yang saya sampaikan anda bisa berkomentar dan jika anda juga ingin requset tentang beberapa ( Akun SSH Premium,inject PC,Config Http injector,Config KPN,config Eproxy.config Open VPN dan tips dan trick ). di kolom komentar. jika artikel yang saya berikan bermanfaat dan berguna anda juga bisa share artikel saya ke teman teman anda semua ( berbagi itu indah )

• Tweet
• Share
• Share
• Share
• Share

About Admin

Halo Sobat Blogger, Saya Hanyalah Seorang Blogger Pemula dan Saya Berharap Anda dan Saya Bisa Berhasil dan Sukses Kedepannya. Selamat Datang Teman Teman Dan Terima Kasih Sudah Berkunjung Diblog Website kami.

Related Post