Rabu, 01 April 2015

Download Source Code Cara Buat Dial Up Auto Route Sederhana 2015

Download Source Code Dial Up + Auto Route Sederhana 2015 Merupakan Source Code dasar delphi yang akan saya bagikan secara gratis disini dan sebelumnya juga sudah saya bagikan tips seputar Zonksel IBP v.3 Tools Pengganti Injek Bitvise dan Proxifier 2015 ok tanpa panjang lebar lagi bagi anda yang membutuhkan source codenya untuk pelajaran dan silahkan kembangkan lagi bisa anda download secara gratis dibawah ini;

Source Code Dial Up 2015


Komponen Yang Digunakannya; Button (1), Label (1), edit (1), memo (1), doscommand (1), timer (1) dan dibawah ini adalah contoh listing codingnya.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    DosCommand1: TDosCommand;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
  zonksel: boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses shellapi;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  cmd, par, fil, dir: PChar;
begin

if zonksel then
begin
Button1.Caption := 'Sinyal Cinta Dimatikan';
cmd := 'open';
fil := 'rasdial.exe';
par := PChar(Edit1.Text);
dir := 'C:';
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
zonksel := False;  Sleep ($0001);
Timer1.Enabled := True;    sleep (10);
end else
begin

Button1.Caption := 'Sinyal Cinta Dinyalakan';
cmd := 'open';
fil := 'rasdial.exe';
par := PChar(Edit1.Text + ' /DISCONNECT');
dir := 'C:';
ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
zonksel := True;   Sleep ($0001);
end;
end;
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
 resize:= false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
memo1.clear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var capsa:String;
    command : TDosCommand;
begin
command := TDosCommand.Create(nil);
capsa := 'Cinta Ku Ambil di '+ '10.1.89.130';
if '255.255.255.255' <> '' then
capsa := capsa + ' Sampai di ' + '255.255.255.255';
capsa := capsa + ' ' + edit1.Text;
if '1' <> '' then
capsa := capsa + ' Karena Hanya Ada ' + '1';
command.CommandLine := capsa;
command.Execute;
memo1.lines.add(capsa+#$D#$A'Cinta Dihatiku');
Timer1.Enabled := False; Sleep ($0001);

command := TDosCommand.Create(nil);
capsa := 'Cinta Juga Bisa Ku Hapus di '+ '10.1.89.130';
command.CommandLine := capsa;
command.Execute;
memo1.lines.add(capsa+#$D#$A'Sampai Jumpa Cinta');
Timer1.Enabled := False; Sleep ($0001);

command := TDosCommand.Create(nil);
capsa := 'Route Print';
command.CommandLine := capsa;
command.OutputLines := memo1.Lines;
command.Execute;
Timer1.Enabled := False; Sleep ($0001);

if (MessageBox(Self.Handle, 'Cinta Telah Berhasil di Add, Delete dan Print..', 'Happy Browsing Cinta', MB_OK + MB_ICONINFORMATION)=idOK)then;

end;

end.

Artikel selanjutnya; Cara Internet Gratis Terbaru April 2015 Telkomsel With Zonksel Plink v.2

Bagi anda yang mau download contoh source codenya silahkan ambil DISINI atau DISINI dan untuk passrarnya adalah aimeegracecatering.blogspot.com hanya itu saja info seputar Download Source Code Cara Membuat Dial Up MDMA Auto Route Sederhana 2015