Selasa, 26 Mei 2015

Cara Buat Uncheck Dagu IP header Disable Netbios DNS Auto Dial With Delphi 7

Kali ini saya mau bahas Cara Buat Uncheck Dagu IP header Compression Disable Netbios DNS Auto Dial Reconnect With Delphi 7 Terbaru 2015 , tutorial ini adalah kelanjutan dari tutorial yang pernah saya bahas yang lalu tutorial ini saya sengaja buat tunggal tanpa dialer atau mdma biar anda dan sahabat semuanya lebih mudah memahaminya, program ini akan jalan ketika modem atau dialer anda dijalankan bukan terpacu pada tombolnya yang saya sertakan pada gambar di bawah saya sertakan tombol start dan stop untuk menutup tampilan pada masing masing komponen tersebut jadi ketika tombol start dijalankan maka pilihan tersebut tidak bisa diedit lagi karena programnya sedang jalan dan tombol stop untuk menampilkan kembali pilihannya agar bisa diatur lagi, saya sertakan tombolnya karena saya yakin anda menjalankan program dialer atau mdma pasti menggunakan tombol/button jadi silahkan implementasikan pasti anda tahu jawabnnya, dan mari kita langsung praktek.

1. Langkah pertama silahkan buka delphi anda atau anda bisa buka project anda yang sudah jadi yang mau ditambahin opsi ini tutorial ini membutuhkan komponen Migr yang sudah saya bahas DISINI dan siapkan CheckBox (5) edit (2) MagRasEdt (1) Button  (2) anda bisa menggunakan komponen dari alpha control biar kerenan dikit, gambar dibawah ini tombol 2 lupa blum saya masukin pas di ss, oh iya untuk komponen MagRasEdt ada di palette magenta systems setiap komponen yang baru anda instal umumnya berada di palette paling ujung silahkan cari ya.

Cara Membuat Uncheck Dagu Dengan Borland Delphi 7

2. Yang kedua silahkan ganti dulu nama-namanya seperti dibawah ini, kalau anda mau settingan tersebut yang anda gunakan misal biar kesimpan anda harus menambahkan komponen Open dialog tetapi tidak akan dibahas dulu disini karena nantinya malah jadi bingung, yang penting properties ini sudah bisa anda coba dan gunakan.

Cara Membuat Uncheck Dagu Dengan Borland Delphi 7

3. Yang ketiga Tambahkan coding dibawah ini:

    procedure SaveProperties ;
    procedure GetProperties ;

Pasang diatas Private lihat gambar dibawah lalu tekan CTRL + SHIFT + C perhatikan tanda panahnya jika menekannya anda benar maka akan muncul procedure yang saya kasih anak panah dibawahnya.

Cara Membuat Uncheck Dagu Dengan Borland Delphi 7

4. Yang keempat Lalu masukan kode dibawah ini pada masing masing GetProperties dan SaveProperties lihat contoh gambar dibawah:

Pasang di GetProperties;
with MagRasEdt1 do begin
bRemoteDefaultGateway := CheckBox1.Checked;
bHeaderCompression := CheckBox2.Checked;
bDisableNbtOverIP := CheckBox3.Checked;
bReconnectIfDropped := CheckBox4.Checked;
bSpecificNameServers := CheckBox5.Checked;
DNSAddress := Edit1.Text;
DNSAddressAlt := Edit2.Text;

Pasang di SaveProperties;
with MagRasEdt1 do begin
CheckBox1.Checked := bRemoteDefaultGateway;
CheckBox2.Checked := bDisableNbtOverIP;
CheckBox3.Checked := bHeaderCompression;
CheckBox4.Checked := bReconnectIfDropped;
CheckBox5.Checked := bSpecificNameServers;
Edit1.Text := DNSAddress;
Edit2.Text := DNSAddressAlt;

Cara Membuat Uncheck Dagu Dengan Borland Delphi 7

5. Yang kelima silahkan klik Button 1 lalu tambahkan kode;

SaveProperties ;
GetProperties ;
CheckBox1.enabled := false;
CheckBox2.enabled := false;
CheckBox3.enabled := false;
CheckBox4.enabled := false;
CheckBox5.enabled := false;
Edit1.enabled := false;
Edit2.enabled := false;
end;

Cara Membuat Uncheck Dagu Dengan Borland Delphi 7

6. Yang keenam Lalu klik Button 2 atau stop lalu tambahkan kode:

CheckBox1.enabled := true;
CheckBox2.enabled := true;
CheckBox3.enabled := true;
CheckBox4.enabled := true;
CheckBox5.enabled := true;
Edit1.enabled := true;
Edit2.enabled := true;
end;

Cara Membuat Uncheck Dagu Dengan Borland Delphi 7

7. Yang ke 7 silahkan build projectnya, lalu silahkan test hasil projectnya, project ini akan berfungsi jika anda mengaktifkan modem anda saja, jadi project ini akan otomatis berfungsi jika projectnya mengenali dialer modem anda aktif, semoga anda paham maksud saya.. he he

Cara Membuat Uncheck Dagu Dengan Borland Delphi 7

Silahkan agan agan yang cantik dan ganteng silahkan kembangkan lagi code code diatas dan untuk memastikan berhasil tidaknya silahkan cek kembali di properties modem asli anda yang ada pc netbook laptop komputer agan ,Dan cukup sudah hanya itu saja sob info seputar Cara Buat Uncheck Dagu IP header Disable Netbios DNS Auto Dial With Delphi 7 Paling Terbaru 2015 semoga bermanfaat dan bisa membantu saudara dan selamat menunggu bulan suci ramadhan.

Baca Juga; Panduan Dasar Step By Step Buat Payload Internet Gratis 2015