Selasa, 19 Mei 2015

Cara Membuat Dialer MDMA Mobile Data Monitor Aplication 2015 With Delphi 7

kali Ini Saya Mau Berbagi Tips Kembali seputar Delphi 7 yaitu Cara Membuat Dialer MDMA Mobile Data Monitor Aplication Terbaru 2015 sebelum saya lanjutkan silahkan baca juga postingan sebelumnya yaitu Cara Download Video Youtube Tanpa Software ok mdma disini adalah sebuah tools pengganti aplikasi modem saya yakin anda pasti sudah tahu tentang maksud postingan ini , harap jadi catatan tutorial buat mdma ini akan dipecah ke dalam beberapa postingan untuk memudahkan anda dalam mempelajarinya contoh mdma yang akan dibuat ini adalah kita akan mengambil beberapa fungsi dari mmda x final karya agan soebish seperti dibawah ini:

Cara Buat MMD MDMA Dialer Modem 2015

Perhatikan gambar diatas itu adalah satu bagiannya yang akan paling banyak saya bahas , jadi nanti kita akan menambahkan atau nanti anda bisa menambahkan parameter apn, type, profile, ip hunter, reconnect, auto route, default gateway, ip header compression, disable netbios, dns tunnel, upgrade qos dan lain lainnya yang paling umum yang sering digunakan , dan saya yakin anda pun tidak akan memperhatikan beberapa parameter yang sudah ada pada mmda saat ini dan postingan disini mari kita akan ambil beberapa settingan pentingnya saja yang biasa admin gunakan juga, mari kita langsung praktek saja, untuk melanjutkan tutorial ini silahkan aktifkan delphi 7 anda.

1. Langkah pertama tambahkan dulu komponen: Button atau BitBtn (4) , ComboBox (1), Timer (3), edit (1), checkbox (8), Status Bar (1), RichEdit (1), Memo (1), XpManifest (1), Bevel (1), Doscommand (1)
Semua komponen tersebut tidak akan semua di bahas pada tutorial kali ini tetapi anda pasang dulu saja semuanya karena sewaktu waktu akan dibuthukan untuk kelanjutannya.

Cara Buat MMD MDMA Dialer Modem 2015

2. Langkah yang kedua silahkan tambahkan uses  Registry, Menus, WinSock, Ras, untk uses ras anda bisa menggunakan konsep shellapi dengan memanggil rasdial.exe

Cara Buat MMD MDMA Dialer Modem 2015

3. Langkah yang ketiga lalu tambahkan kode dibawah tepat dibawah { Private declarations }:

    dialparams: TRasDialParams;
    hras: THRasConn;
    status : Boolean;

Cara Buat MMD MDMA Dialer Modem 2015

4.Langkah yang keempat tambahkan array dan fungsinya tepat dibawah implementation {$R *.DFM}

Function GetIPAddress():String;
type
  pu_long = ^u_long;
var
  varTWSAData : TWSAData;
  varPHostEnt : PHostEnt;
  varTInAddr : TInAddr;
  namebuf : Array[0..255] of char;
begin
  If WSAStartup($101,varTWSAData) <> 0 Then
    Result := 'No. IP Address'
  Else Begin
    gethostname(namebuf,sizeof(namebuf));
    varPHostEnt := gethostbyname(namebuf);
    varTInAddr.S_addr := u_long(pu_long(varPHostEnt^.h_addr_list^)^);
    Result := inet_ntoa(varTInAddr);
  End;
  WSACleanup;
end;

function StatusString(state: TRasConnState; error: Longint): String;
  var
    c: Array[0..100] of Char;
    s: String;
begin
  if error <> 0 then begin
    RasGetErrorString(error, c, 100);
    Result := c;

  end else begin
    s := '';
    case State of
      RASCS_OpenPort:
        s := 'Opening port';
      RASCS_PortOpened:
        s := 'Port opened';
      RASCS_ConnectDevice:
        s := 'Connecting device';
      RASCS_DeviceConnected:
        s := 'Device connected';
      RASCS_AllDevicesConnected:
        s := 'All devices connected';
      RASCS_Authenticate:
        s := 'Authenticating';
      RASCS_AuthNotify:
        s := 'Authentication: notify';
      RASCS_AuthRetry:
        s := 'Authentication: retry';
      RASCS_AuthCallback:
        s := 'Authentication: callback';
      RASCS_AuthChangePassword:
        s := 'Authentication: change password';
      RASCS_AuthProject:
        s := 'Authentication: projecting';
      RASCS_AuthLinkSpeed:
        s := 'Authentication: link speed';
      RASCS_AuthAck:
        s := 'Authentication acknowledged';
      RASCS_ReAuthenticate:
        s := ' Reauthenticating';
      RASCS_Authenticated:
        s := 'Authenticated. Logging on network';
      RASCS_PrepareForCallback:
        s := 'Preparing for callback';
      RASCS_WaitForModemReset:
        s := 'Waiting for modem reset';
      RASCS_WaitForCallback:
        s := 'Waiting for callback';
      RASCS_Projected:
        s := 'Projected';
      RASCS_StartAuthentication:
        s := 'Authenticating';
      RASCS_CallbackComplete:
        s := 'Callback complete';
      RASCS_LogonNetwork:
        s := 'Logging on network';
      RASCS_Interactive:
        s := 'Interactive';
      RASCS_RetryAuthentication:
        s := 'Retry Authentication';
      RASCS_CallbackSetByCaller:
        s := 'Callback set by caller';
      RASCS_PasswordExpired:
        s := 'Password expired';
      RASCS_Connected:
        s := 'Connected';
      RASCS_Disconnected:
        s := 'Disconnected';
    end;
    Result := s;
  end;
end;

procedure TForm1.IPHunter;
var ListIP : TStringList;
    i : Integer;
    curIP : string;
begin
curIP := GetIpAddress;
ListIP := TStringList.Create;
ListIP.Text := Edit1.Text;
ListIP.Text := StringReplace(ListIP.Text,';',#13#10,[rfReplaceAll]);

for i:=0 to ListIP.Count - 1 do begin
if Pos(ListIP[i],curIP) <> 0 then begin
status := True;
RichEdit1.Lines.Add('IP: '+curip+ ' (OK)');
Exit;
end;
end;

if not status then
RichEdit1.lines.Add('IP: '+curip);
Button1.Click;
Form1.Timer1.Enabled:=True;
end;

procedure RasCallback(msg: Integer; state: TRasConnState;
    error: Longint); stdcall
begin
Form1.StatusBar1.Panels[1].Text := statusstring(state, error);
if strcomp(pchar(statusstring(state, error)), 'Connected')= 0 then begin
Form1.timer2.enabled:=true;
end;
if Pos('Connected',Form1.StatusBar1.Panels[1].Text)<> 0 then begin
if Form1.CheckBox1.Checked=True then begin
Sleep(1000);
Form1.IPhunter;
end
end;
end;

Cara Buat MMD MDMA Dialer Modem 2015

5. Langkah kelima Klik Button 1 lalu masukan kode:

var r: integer;
    c: Array[0..100] of Char;
begin
if Button1.Caption='Dial' then begin
Button1.Caption:='Dialing...';
FillChar(dialparams, SizeOf(TRasDialParams), 0);
with dialparams do
begin
dwSize := Sizeof(TRasDialParams);
StrPCopy(szEntryName, ComboBox1.Items[ComboBox1.ItemIndex]);
end;
hRas := 0;
r := RasDial(nil,
nil,
dialparams,
0,
@RasCallback,
hRas);
Button4.Click;
if r <> 0 then begin
RasGetErrorString(r, c, 100);
StatusBar1.Panels[1].Text:= c;
end;
end else begin
if  hRas = 0 then
exit;
if RasHangUp(hRas) <> 0 then
begin
MessageDlg('Error : Cannot hangup connection.', mtCustom,[mbOK] ,0);
end;
end;


Cara Buat MMD MDMA Dialer Modem 2015

6. Langkah yang keenam lalu Klik Button2 oh, iya button 2 sampai 4 anda harus hide show:

var bufsize: Longint;
    numEntries: Longint;
    entries: Array[1..12] of TRasEntryName;
    x: Integer;
begin
entries[1].dwSize := SizeOf(TRasEntryName);
bufsize := SizeOf(TRasEntryName) * 12;
if RasEnumEntries(nil, nil, @entries[1], bufsize, numEntries) = 0 then
begin
if numEntries > 0 then
begin
for x := 1 to numEntries do
ComboBox1.Items.Add(entries[x].szEntryName);
ComboBox1.ItemIndex := 0;
end;
end
else
MessageDlg('Error : Cannot retrieve entry names', mtCustom,[mbOK] ,0);
end;

Cara Buat MMD MDMA Dialer Modem 2015

7. Langkah yang ketujuh klik button3 lalu tambahkan kode:

var fp: LongBool;
    r: Longint;
    c: Array[0..100] of Char;
begin
if ComboBox1.itemindex=-1 then
exit;

FillChar(dialparams, SizeOf(TRasDialParams), 0);
with dialparams do
begin
dwSize := Sizeof(TRasDialParams);
StrPCopy(szEntryName, ComboBox1.Items[ComboBox1.ItemIndex]);
end;

r := RasGetEntryDialParams(nil, dialparams, fp);
if r = 0 then
with dialparams do
begin
if fp then
end
else
begin
RasGetErrorString(r, c, 100);
MessageDlg(('Error : ' + c), mtCustom,[mbOK] ,0);
end;
end;

Cara Buat MMD MDMA Dialer Modem 2015

8. Langkah yang kedelapan klik Button4 lalu tambahkan kode:

with dialparams do
begin
dwSize := Sizeof(TRasDialParams);
StrPCopy(szEntryName, ComboBox1.Items[ComboBox1.ItemIndex]);
StrPCopy(szpassword, '');
RasSetEntryDialParams(nil, dialparams, True);
end;
end;

Cara Buat MMD MDMA Dialer Modem 2015

9. Langkah yang kesembilan lalu klik timer 1 dan tambahkan kode:

if (pos('Connected',StatusBar1.Panels[1].Text)<>0) or (pos('Not connected',StatusBar1.Panels[1].Text)<>0) then
begin
Button1.Click;
Timer1.Enabled:=False;
end;
Cara Buat MMD MDMA Dialer Modem 2015

10. Langkah yang kesepuluh lalu klik timer2 dan tambahkan kode:

procedure TForm1.Timer2Timer(Sender: TObject);
var bufsize: Longint;
    numEntries: Longint;
    x: Integer;
    entries: Array[1..100] of TRasConn;
    stat: TRasConnStatus;
    ipeh : String;
begin
ipeh := GetIPAddress;
entries[1].dwSize := SizeOf(TRasConn);
bufsize := SizeOf(TRasConn) * 100;
FillChar(stat, Sizeof(TRasConnStatus), 0);
stat.dwSize := Sizeof(TRasConnStatus);
if RasEnumConnections(@entries[1], bufsize, numEntries) = 0 then begin
if numEntries > 0 then begin
for x := 1 to numEntries do
with Form1, entries[x] do
begin
hras := hrasconn;
RasGetConnectStatus(hras, stat);
StatusBar1.Panels[1].Text := StatusString(stat.rasconnstate, stat.dwError) ;
Button1.Caption:='Hang up';
ComboBox1.Enabled:=False;
if CheckBox1.Checked = False then
begin
RichEdit1.Text := 'IP: '+ipeh;
end;
end;
end else begin
timer2.enabled:=false;
StatusBar1.Panels[1].Text :='Not connected';
Button1.Caption:='Dial';
ComboBox1.enabled:=true;
end;
end else
Messagedlg ('Error : Cannot retrieve connection details ', mtCustom,[mbOK] ,0);
end;
Cara Buat MMD MDMA Dialer Modem 2015

11. Langkah yang kesebelas klik checkbox1 lalu tambahkan kode:

if CheckBox1.Checked then
Edit1.Enabled := True
else Edit1.Enabled := False;

Cara Buat MMD MDMA Dialer Modem 2015

12. Langkah Yang kedua belas klik form1 lalu tambahkan kode dibawah ini perhatikan tulisannya;

procedure TForm1.FormCreate(Sender: TObject);
begin
hras:=0;
Button2.click;
Button3.click;
end;

13. Langkah Terakhir silahkan build dan gambar dibawah ini adalah contoh yang sudah dimodifikasi tampilannya atau sudah dipindahkan posisinya dan untuk komponennya masih menggunakan yang diatas yang sudah saya sebutkan.

Cara Buat MMD MDMA Dialer Modem 2015

Untuk Contoh Source Code Delphi 7 jadinya bisa anda download DISINI contoh source code jadinya tampilannya sudah diatur seperti diatas, tapi perhatikan yang saya kasih tanda anak panah ditutorial selanjutnya kita akan menambahkan listing programnnya untuk bagian bagian tersebut, oh iya untuk contoh paling paling sederhana untuk dialer yang bukan buatan saya bisa anda coba download juga DISINI untuk sebagai pelajaran karena saya bagikan bentuk listing codingnya sangat mudah dan simple sekali dan bisa anda pelajari juga.

Ya dan hanya Itu saja informasi seputar Cara Membuat Dialer MDMA Mobile Data Monitor Aplication Terbaru 2015 semoga bermanfaat dan membantu terima kasih banyak yah atas kunjungannya jangan kapok buat mampir lagi,, he he

Baca Juga Yank...  Download Barba Tunnel Monitor Tools TCP UDP Forwarding Terbaru 2015