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;
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
CAPSA (Cara Apa Saja) Informasi Download Lagu dan Proxy Free Full Version Blogger
