Minggu, 29 Maret 2015

Download Source Code Cara Membuat Super Auto Router 2015

Kali ini Saya Mau Berbagi Seputar Download Source Code Cara Membuat Super Auto Router 2015 Yang mungkin anda Butuhkan dan Sebelumnya Juga Sudah dibahas Seputar Cara Mempercepat Koneksi Internet Dengan Dialer ICCID Protection ok tanpa panjang lebar lagi bagi anda yang membutuhkan source code ini bisa anda ambil diakhir postingan dan silahkan kembangkan lagi menurut keperluan masing-masing.

Code Cara Membuat Super Auto Router 2015

Daftar Komponen: IdIPWatch (1), DosCommand (1), Edit (1), Memo (1), Button (1), Timer (1)

unit zonksel1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, IdBaseComponent, IdComponent, IdIPWatch, StdCtrls,
  DosCommand;

type
  TForm1 = class(TForm)
    DosCommand1: TDosCommand;
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    IdIPWatch1: TIdIPWatch;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.clear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var zonksel : String;
    command : TDosCommand;
begin
 Edit1.Text := IdIPWatch1.LocalIP; sleep (10);
 command := TDosCommand.Create(nil);
zonksel := 'Route Add '+ '10.1.89.130';  // contoh lainnya: 202.152.240.050, 10.19.19.19, 10.4.0.10, 10.8.3.8, 10.20.27.250
if '255.255.255.255' <> '' then
zonksel := zonksel + ' Mask ' + '255.255.255.255';
zonksel := zonksel + ' ' + edit1.Text;
if '1' <> '' then
zonksel := zonksel + ' Metric ' + '1';
command.CommandLine := zonksel;
command.Execute;
memo1.lines.add(zonksel+#13#10+'Berhasil Gan...');
Timer1.Enabled := False; sleep (10);
command := TDosCommand.Create(nil);
zonksel := 'Route Delete '+ '10.1.89.130';  // contoh lainnya: 202.152.240.050, 10.19.19.19, 10.4.0.10, 10.8.3.8, 10.20.27.250
command.CommandLine := zonksel;
command.Execute;
memo1.lines.add(zonksel+#13#10#13#10+'Sukses Gan...');
Timer1.Enabled := False; sleep (10);
command := TDosCommand.Create(nil);
zonksel := 'Route Print';
command.CommandLine := zonksel;
command.OutputLines := memo1.Lines;
command.Execute;
memo1.lines.add(zonksel+#13#10#13#10#13#10+'Sukses Gan...');
Timer1.Enabled := False; sleep (10);
command := TDosCommand.Create(nil);
zonksel := edit1.Text;
command.CommandLine := zonksel;
command.OutputLines := memo1.Lines;
command.Execute;
memo1.lines.add(zonksel+#13#10#13#10#13#10#13#10+'Sukses Gan...');
Timer1.Enabled := False;
if (MessageBox(Self.Handle, 'Route Add, Route Delete, Route Print Sukses Gan...', 'Zonksel All Router v.1', MB_OK + MB_ICONINFORMATION)=idOK)then;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled := True;
end;
end.

Selanjutnya; Cara Membuat Program Pemanggil Aplikasi Lain Sebanyak Mungkin

Untuk Download Source Codenya silahkan Ambil DISINI untuk pass rar Source Code Super Route: olgameninggaldunia  dan Hanya Itu Saja Informasi Seputar Download Source Code Cara Membuat Super Auto Route Router 2015 Semoga Bermanfaat dan Membantu Terima Kasih.