IT Download

04 September 2016 - www.indoblog.me ok  Guys Langsung saja disimak Informasi dengan Cara Buat Injek Rolling Bug Secara Otomatis Terbaru 2016 With Delphi dan yang dimana mungkin sahabat sahabat membutuhkan tutorial sederhana ini dan silahkan langsung disimak saja ya bray.

Dengan menggunakan tekhnik rolling maka bug server yang kita miliki bisa kita rolling secara otomatis tanpa harus kita memasukan secara manual satu satu akan tetapi dengan cara ini maka akan lebih efektif kita lakukan dan berikut adalah caranya dan silahkan langsung dicoba.

1. Silahkan Tambahkan 1 mapped  ada di palette indy server tetapi harusnya komponen ini sudah ada sebelumnya agar anda tinggal menambahkan saja kemudian silahkan untuk percobaannya silahkan tambahkan 1 timer, 1 combobox, 1 edit.

2. Kemudian kita beralih pada variable form disini kita akan menambahkan data bertype string lalu silahkan masukan coding dibawah ini tepat diatas implementation

putarbug: string=telkomsel.com; // Hanya Contoh saja bray

3. kemudian double klik timer 1 nya, lalu masukan coding dibawah ini:

 Timer1.Interval:= StrToInt(ComboBox1.text);

  Edit1.Text := putarbug;

 if putarbug = telkomsel.com then // Hanya Contoh saja bray

    putarbug := indosat.com else // Hanya Contoh saja bray

 if putarbug = indosat.com then

    putarbug := xl.com else // Hanya Contoh saja bray

 if putarbug = xl.com then

    putarbug := axis.com else // Hanya Contoh saja bray

 if putarbug = axis.com then

    putarbug := tri.com else // Hanya Contoh saja bray

 if putarbug = tri.com then

    putarbug := smartfren.com else // Hanya Contoh saja bray

 if putarbug = smartfren.com then

    putarbug := telkomsel.com;  // Rolling akan dikembalikan lagi ke atas

4. Kemudian masukan variable tadi pada payload punya kamu contohnya seperti dibawah ini:

if (pos(CONNECT,AThread.NetData)<>0) or (pos(HTTP,AThread.NetData)<>0) then

  begin

    payload := GET http://+putarbug+/ HTTP/1.1+#13#10+

               Host: +putarbug+#13#10+

               Connection: Keep-Alive+#13#10#13#10;

    AThread.NetData := AThread.NetData + Payload;

  end;

5. Terakhir pada bagian items > combobox1 masukan line misalkan:

100

250

500

1000

1500

2000

2500

3000

Nah Kemudian silahkan dicoba di run maka dengan begitu maka bug host akan dirolling secara otomatis dan kecepatan rollingnya juga bisa anda atur dengan selera anda, semoga sedikit membantu ya gan.

Sekedar tambahan untuk menghentikan timernya agar bug tidak terus-terusan di rolling setelah konek maka anda bisa menggunakan atau menambahkan i buah button lalu masukan coding:
timer1.enabled:= false;

Atau bisa anda tambahkan pada button start:
timer1.enabled:= true;

Atau pada bagian stop tinggal tambahkan:
timer1.enabled:= false;

Atau jika agar secara otomatis rolling berhenti jika bug sudah terhubung maka bisa anda tambahkan pada bagian events milik IdMappedPortTCP1 > onConnect misalkan dengan menambahkan coding:

if (pos(200 OK,AThread.NetData)<>0)  then
  begin
 timer1.enabled:= false; // Menghentikan rolling secara otomatis jika bug sudah terhubung
  end;

Lihat Juga: Tutorial Cara Buat Program Run As Administrator Dengan Menggunakan Bahasa Delphi

Ok Bagi yang membutuhkan source codenya silahkan comot saja DISINI password rarnya silahkan copas url postingan ini saja dan sekian Cara Buat Injek Rolling Bug Secara Otomatis Terbaru 2016 With Delphi semoga bermanfaat dan membantu dan jika ada yang kurang dipahami silahkan ditanayakan saja ya guys, jangan sungkan sungkan, karena nanti tersesat dijalan lho :D