Loading...

Cara Membuat Show/Hide PasswordChar

11:55 AM Add Comment
Cara Membuat Show/Hide PasswordChar [ Delphi ] - Buat yang sering membuat program yang ada form login nya, bagus untuk menggunakan cara ini agar terlihat propesional xD.

Simple dan gak rumit dalam pembuatan nya, cukup tambahkan 2 Label 2 Edit 1 CheckBox dan buat terlihat mirip seperti pada gambar di atas. selanjutnya masukkan cooding ini ke dalam CheckBox atau klik 2x pada CheckBox dan masukkan ini:
  if CheckBox1.Checked then
    Edit2.PasswordChar := '*' else
    Edit2.PasswordChar := #0;
Pada char "*" kamu bisa ganti sesuai selera misanya dengan "+" dsb. Coba RUN (F9) dan lihat hasilnya :)

Download Source Code

Cara Membuat Minimize to Tray Dengan Balloon Message

11:18 AM Add Comment
Cara Membuat Minimize to Tray Dengan Balloon Message [ Delphi ] - Dalam pembuatan suatu program aplikasi dengan delphi, bagusnih kalau di terapkan ke dalam aplikasi yang kamu buat agar terlihat lebih simple dan minimalis.

Disini saya menggunakan komponen TrayIcon yang punya Busines Skin Form (BSF), jadi sebelum menggunakan cara ini download dan install dulu komponen BSF di delphi kamu, Business Skin Form | Mempercantik Form Delphi.

Pertama ambil komponen bsTrayIcon di tab komponen BSF VCL, letakkan pada form dan masukkan ini kedalam Events > onDblClick pada komponen bsTrayIcon.
  if Visible then begin
    Application.Minimize;
  end else begin
    Show;
      Application.Restore;
  end;
Sekarang kita akan membuat Balloon Message nya. Masuk ke tab Events > onHide pada Events Form, dan masukkan ini.
  bsTrayIcon1.ShowBalloonHint('SketBook Tutorial',
            'Minimize To Tray..' + #13 +
            'Klik 2x Untuk Buka Kembali',
            bsbitInfo);
disini kamu bisa merubah kalimat pesan yang nantinya akan muncul sebagai Baloon Message nya.

Sekarang coba RUN (F9) dan coba klik minimize, jika berhasil maka akan tampak seperti pada gambar GIF diatas. yang mau source codenya juga silahkan ambil saja.

Download Source Code

Cara Menginstall Komponen DosCommand di Delphi XE

3:49 PM Add Comment
Cara Menginstall Komponen DosCommand di Delphi XE - Sebenarnya kita bisa menggunakan komponen DosCommand dari Delphi 7, Tapi ada yang harus kita modifikasi dari komponen nya supaya dapat di install di Delphi XE.

Sebagai contoh disini saya menggunakan Delphi XE 6, kalau belum punya bisa download dari link ini Embarcadero Delphi XE6 Full Version. buka file DosCommand.pas dengan Delphi dan temukan ini di bawah implementation,
type TCharBuffer = array[0..MaxInt - 1] of Char;
kemudian ganti dengan ini,
type TCharBuffer = array[0..MaxInt div 8] of Char;
Kemudian kamu save dan komponen pun siap di install.

Cara install nya, buka Delphi XE kamu klik Componen > Install Componen > install into an existing package > klik "..." dan cari file DosCommand.pas yang kamu modif tadi. klik Next

kemudian akan sampe pada form seperti ini, klik "..." pada package name dan pilih "DOSCommand_AN_D9", kemudian Finish.
Klik kanan pada package yang kamu buka tadi dan lakukan Compile, setelah dipastikan tidak ada error, sekarang klik Install. lebih jelas liat GIF di bawah ini.
Jika berhasil maka akan tampil muncul pesan seperti ini.

Untuk link download komponen disini saya siapkan 2 Dos untuk Delphi XE, yang satunya belum di modif dan yang sudah saya modif, terserah mau yang mana :)  kalau yang sudah di modif kamu tinggal install aja, kalau belum ya di modif dulu hahaha...

Download Componen DosCommand Delphi XE

Cara Menginstall Komponen DosCommand di Delphi 7

2:57 PM Add Comment
Cara Menginstall Komponen DosCommand di Delphi 7 - Pertama download dulu komponen doscommand kemudian extrack dan pindahkan file doscommand nya ke dalam folder Lib yang ada di folder instalan Delphi 7 (link download ada di akhir postingan).

Buka Delphi 7  klik File > Open > cari file "DOSCommand_AN_D9" yang kamu pindahkan tadi ke dalam folder Lib delphi.
Setelah itu akan muncul tampilan yang seperti ini, klik Compile > kemudian klik Install.
Dan jika berhasil maka akan tampil popuo message seperti ini, dan komponen DosCommand siap digunakan.
Komponen DosCommand ada di Tab Komponen Samples.
Download Component DosCommand.

SERVER 1 SERVER 2

Cara Membuat Form2 Mengikuti Form1 Ketika Di Move

5:55 AM Add Comment
Cara Membuat Form2 Mengikuti Form1 Ketika Di Move - Untuk design seperti ini biasanya form2 nya berisi tentang informasi seperti tutorial cara pakai, atau mungkin yang kreasi bisa di buat untuk form tambahan seperti input data dll, untuk pemanggilan nya bisa kalian atur sendiri.

Pertama-tama tentu saja kita harus membuat 2 form, atur H-W nya sesuai selera masing-masing. Saya rasa tidak perlu di ajarin pasti sudah pada bisa xixi...
Kemudian pasang Timer dan set Interval nya 1 atau 10, dan masukkan ini kedalam Timer.
Form2.top := Form1.top;
Form2.left := Form1.left + Form1.width;
Kemudian set visible di FORM 2 menjadi TRUE.
* disini supaya FORM 2 akan langsung muncul saat aplikasi di jalankan.

kalau mau yang tidak menggunakan TIMER bisa pakai cara yang ada DISINI.
kalau mau pemanggilan dengan button, kamu hanya perlu memanggil FORM 2 nya dengan perintah.
Form2.Show;
dan project Cara Membuat Form2 Mengikuti Form1 Ketika Di Move sudah selesai, hasil jadinya seperti gambar GIF di atas.
Gimana gampang kan ?,Oke karna gampang untuk tutorial kali ini saya tidak share SOURCE CODE nya hahaha...
Sekian Dan Terimakasih, semoga bisa mudah dipahami dan dapat dimengerti. tunggu tutorial dari SketBook berikutnya yoo..

Contoh Payload Indy9 & Indy10 All Operator 2016

12:22 PM Add Comment

Contoh Payload Indy9 & Indy10 All Operator 2016 - Contoh payload disini saya kumpulkan untuk semua operator indonesia, berdasarkan payload yang terakhirkali work atau yang masih work.

Baca Juga:

Payload TELKOMSEL. (method GET, POST)
===== Indy 9 =====
payload := 'POST http://bug.com/ HTTP/1.1'+#10+
           'Host: bug.com'+#10+
           'Connection: Keep-Alive'+#10#10;
AThread.NetData := StringReplace(AThread.NetData,':443',':443 SHTTP/1.0 200 OK',[rfReplaceAll]);
AThread.NetData := AThread.NetData + payload;

===== Indy10 =====
payload := 'POST http://bug.com/ HTTP/1.1'+#10+
           'Host: bug.com'+#10+
           'Connection: Keep-Alive'+#10#10;
TIdMappedPortContext(AContext).NetData := Netbyte(StringReplace(NetString(AContext),':443',':443 SHTTP/1.0 200 OK',[rfReplaceAll]));
TIdMappedPortContext(AContext).NetData := Netbyte(NetString(AContext) + payload);

Payload INDOSAT #1. (method GET, HEAD)
===== Indy 9 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10#13#10#13#10;
AThread.NetData := AddHeader(AThread.NetData,'X-Online-Host: BUG.com');
AThread.NetData := StringReplace(AThread.NetData,':443',':443 200 OK',[rfReplaceAll]);
AThread.OutboundClient.Write(AThread.NetData + payload);

===== Indy10 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10#13#10#13#10;
TIdMappedPortContext(AContext).NetData := Netbyte(AddHeader(NetString(AContext),'X-Online-Host: BUG.com');
TIdMappedPortContext(AContext).NetData := Netbyte(StringReplace(NetString(AContext),':443',':443 200 OK',[rfReplaceAll]));
TIdMappedPortContext(AContext).OutboundClient.IOHandler.Write(netbyte(NetString(AContext) + payload);

Payload INDOSAT #2. (method GET, HEAD)
===== Indy 9 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10#13#10#13#10;
AThread.NetData := AddHeader(AThread.NetData,'X-Online-Host: BUG.com');
AThread.NetData := StringReplace(AThread.NetData,':443',':443 200 OK',[rfReplaceAll]);
AThread.OutboundClient.Write(AThread.NetData); Sleep(100);
AThread.Netdata := AThread.Netdata + Payload;

===== Indy10 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10#13#10#13#10;
TIdMappedPortContext(AContext).NetData := Netbyte(AddHeader(NetString(AContext),'X-Online-Host: BUG.com');
TIdMappedPortContext(AContext).NetData := Netbyte(StringReplace(NetString(AContext),':443',':443 200 OK',[rfReplaceAll]));
TIdMappedPortContext(AContext).OutboundClient.IOHandler.Write(netbyte(NetString(AContext)); Sleep(100);
TIdMappedPortContext(AContext).NetData := Netbyte(NetString(AContext) + payload);

Payload THREE (Paket CHAT).
===== Indy 9 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10;
AThread.NetData := Back(AThread.NetData,'?Bug.com:80');
AThread.NetData := AddHeader(AThread.NetData,'Host: BUG.com');
AThread.NetData := payload + AThread.NetData;

===== Indy10 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10;
TIdMappedPortContext(AContext).NetData := Netbyte(Back(NetString(AContext),'?Bug.com:80'));
TIdMappedPortContext(AContext).NetData := Netbyte(AddHeader(NetString(AContext),'Host: BUG.com');
TIdMappedPortContext(AContext).NetData := Netbyte(payload + NetString(AContext));

Payload XL-Axiata. (method GET, HEAD, POST)
===== Indy 9 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10+
           'Connection: Keep-Alive'+#13#10#13#10#13#10;
AThread.NetData := AddHeader(AThread.NetData,'BUG.com');
AThread.NetData := AThread.NetData + payload;

===== Indy10 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10+
           'Connection: Keep-Alive'+#13#10#13#10#13#10;
AThread.NetData := AddHeader(AThread.NetData,'BUG.com');
AThread.OutboundClient.Write(AThread.NetData + payload);

Payload Axis #1. (method GET, HEAD, POST)
===== Indy 9 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10+
           'Connection: Keep-Alive'+#13#10#13#10#13#10;
AThread.NetData := AddHeader(AThread.NetData,'X-Online-Host: BUG.com');
AThread.NetData := StringReplace(AThread.NetData,':443',':443 200 OK',[rfReplaceAll]);
AThread.NetData := AThread.NetData + payload;

===== Indy10 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10+
           'Connection: Keep-Alive'+#13#10#13#10#13#10;
AThread.NetData := AddHeader(AThread.NetData,'X-Online-Host: BUG.com');
AThread.OutboundClient.Write(AThread.NetData + payload);

Payload Axis #2. (method GET, HEAD, POST)
===== Indy 9 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10+
           'Connection: Keep-Alive'+#13#10#13#10#13#10;
AThread.NetData := AddHeader(AThread.NetData,'X-Online-Host: BUG.com');
AThread.NetData := StringReplace(AThread.NetData,':443',':443 200 OK',[rfReplaceAll]);
AThread.OutboundClient.Write(AThread.NetData + payload);

===== Indy10 =====
payload := 'GET http://bug.com/ HTTP/1.1'+#13#10+
           'Host: bug.com'+#13#10+
           'Connection: Keep-Alive'+#13#10#13#10#13#10;
TIdMappedPortContext(AContext).NetData := Netbyte(AddHeader(NetString(AContext),'X-Online-Host: BUG.com');
TIdMappedPortContext(AContext).NetData := Netbyte(StringReplace(NetString(AContext),':443',':443 200 OK',[rfReplaceAll]));
TIdMappedPortContext(AContext).OutboundClient.IOHandler.Write(netbyte(NetString(AContext) + payload);

Payload diatas adalah beberapa payload yang sempat work atau mungkin masih work beberapa pekan yang lalu, untuk bug nya bisa kamu cari sendiri ya xD Gimana Cara Mencari / Memanfaatkan Bug Operator ... payload di atas tidak musti sama persis seperti yang saya share, kamu bisa memodifikasi payload kamu bisa menggunakan Simple Payload Generator v6.