Cara Membuat Aplikasi Loginner Wifi.ID Dengan Borlan Delphi7

Cara Membuat Aplikasi Loginner Wifi.ID Dengan Borlan Delphi7 - Tutorial ini saya buat karna teman-teman di facebook sangat banyak yang request tutorial ini. Maka dari itu admin kali akan share Tutorial Cara Membuat Aplikasi Loginner Wifi.ID Dengan Borlan Delphi7. Apa itu Loginner Wifi.ID? Jika ada teman-teman yang mungkin kebetulan baru pertama berkunjung ke blog saya dan mungkin bertanya demikian, maka saya akan jelaskan apa itu Loginner Wifi.ID



Loginner Wifi.ID adalah aplikasi yang dapat kita gunakan untuk login secara sillent tanpa harus melalui portal wifi.id. Ada beberapa kasus di mana portal wifi.id mengalami maintenance (perbaikan) dan tidak bisa di akses. Karna itu kita memerlukan aplikasi ini untuk login ke jaringan wifi.id tersebut.
Untuk teman-teman yang mungkin hanya ingin aplikasinya bisa langsung ke postingan saya sebelumya di sana sudah saya berikan Link download dan penjelasan bagaiman cara menggunakanya

Solusi Portal Wifi.ID Maintenance - Login Menggunakan Aplikasi

Tutorial Membuat Aplikasi Loginner Wifi.ID Menggunakan Borlan Delphi7

Sebelum melanjutkan tutorial ini teman-teman terlebih memiliki alat yang akan di gunakan di antranya :

1. Aplikasi Borland Delphi7
2. Komponen Synapse, Karna tutorial kali ini kita akan membuat loginner ynag otomatis find URL sobat, jadi komponen synapse di haruskan untuk fatch URL bisa di lakukan otomatis. Untuk komponen synapsenya silahkan ambil > Direct Link atau SourceForge Page
3. Kesabaran

Baiklah jika semua alat di atas sudah lengkap, dan sekarang saatnya kita membuat aplikasinya.

1. Buat sebuah project form baru, nama project terserah
2. Save project terlebih dahulu
3. Taruh komponen Synapse yang sudah di download tadi di polder project, kemudian extrack   langsung ke polder tsb

4.Kemudian buka kembali project yang di buat tadi. Dan masukan kode di bawah ini di Uses 

StrUtils, synacode, httpsend;

5.Kemudia sekarang tambahkan
 

             

- 1 buah Komponen WebBrowser, Visible set false

- 5 buah editbox.

    Caption di kosingin

- nama sesuaikan dengan urutanya seperti ini, BaseUrl, welcome, versiURL, gwid, LoginURL

- dan 1 buah Button

 

Dan sekarang saatnya kita membuat sebuah fungsi FindPattern. Masukan kode ini di bawah {$R *.dfm}

function FindPattern(bSTR, sPattern, ePattern: String) : String var 
 i1, i2 : Integer; begin 
 i1 := Pos(sPattern, bSTR);   if i1 > 0 then    begin 
    i2 := PosEx(ePattern, bSTR, i1 + Length(sPattern));      if i2 > 0 then 
      begin 
       Result := Result + Copy(bStr, i1 + Length(sPattern), i2 - (i1 + 
Length(sPattern)));       end    end; end; 

Ket : bSTR, sPattern, ePattern, dengan outputnya adalah String. bSTR adalah BaseString dimana dalam hal ini adalah BaseURL, sPattern adalah delimeter awal dan ePattern adalah delimiter akhir.

Lanjut kita buat Event Handle dari WebBrowser1, yaitu Event ketika Document yang kita minta Load selesai. Klik WebBrowser1 yang kita buat tadi dan Klik Event pada kotak Object Inspector, cari OnDocumentComplete dan double Klik pada OnDocumentComplete. 

Kemudian masukan terlebih dahulu variable string di bawah ini

wbURL, wel, vers, gw_id : string;
begin
wbURL := WebBrowser1.LocationURL;
BaseURL := wbURL;
vers     := FindPattern(BaseURL.Text, '.id/', 'default/');
gw_id  := FindPattern(BaseURL.Text, 'gw_id=', '&client');
wel      := FindPattern(BaseURL.Text, 'welcome', .wifi.id/'); 

Keterangan:

 wbURL := WebBrowser1.LocationURL; ini untuk menampung URL dari WebBrowser1 variabel wbURL BaseURL.Text := wbURL; Ini untuk menampilkan variabel wbURL ke Edit Box bernama BaseURL, vers := FindPattern(BaseURL.Text, ‘.id/’, ‘/default/’); gw_id := FindPattern(BaseURL.Text, 'gw_id=', '&client'); wel := FindPattern(BaseURL.Text, 'welcome', '.wifi.id/'); ini untuk menampung output dari Fungsi FindPattern saya ambil satu contoh, untuk variabel vers Mengapa bSTR-nya adalah BaseURL.Text? Karena kita mau mengambil string dari text yang ada di BaseURL. Mengapa sPattern-nya diisi ‘welcome’ kk? Karena kita mau mengambil angka setelah kata ‘welcome’ kk, jadi delimeter awalnya ya ‘welcome’, Mengapa ePattern-nya ‘.wifi.id/’ kk? Karena kita mau mengambil string dalam bentuk angka 6 kan? Maka batas akhirnya setelah string angka 6 adalah .wifi.id/, masih binggung? Seperti ini kira2

Lanjut ke penerapan fungsi dari text box yang tadi sudah kita tambahkan. Masukan lagi koding di bawah ini, tepa di koding yang di atas.

if wel <> '' then
 welcome.Text := 'welcome' + wel
 else
 welcome.Text:= '';
 FinalURL.Text := '';
 if vers <> '' then
 versiURL.Text := vers
 else
 versiURL.Text := '';
 FinalURL.Text := '';
 if gw_id <> '' then
 gwid.TExt := gw_id
 else
 gwid.Text := '';
 FinalURL.TExt := '';
  if mac <> '' then
 mach.TExt := mac
 else
 mach.Text := '';
 FinalURL.TExt := '';
 //generate FinalURL Start
if versiURL.Text = 'wifi.id-apt' then
begin
FinalURL.Text := 'http://'+welcome.Text +'.wifi.id/'+'authapt/login/check_login.php';
 end
 else if versiURL.Text = 'wifi.id-new' then
begin
FinalURL.Text := 'http://'+welcome.Text +'.wifi.id/'+'authnew/login/check_login.php';
end
else if versiURL.Text = 'wifi.id-wag' then
begin
FinalURL.Text := 'http://'+welcome.Text +'.wifi.id/'+'authwag/login/check_login.php';
end;
end;

Keterangan:

Koding di atas saya tidak akan jelaskan secara menyeluruh, karena singaktnya begini, apabila variable wel tidak sama dengan kosong maka EditBox dengan nama welcome text nya diganti dengan welcome ditambah variabel wel dan Jika variabel welcome sama dengan kosong maka EditBox dengan nama welcome textnya diganti dengan data Error EditBox dengan nama FinalURL textnya diganti dengan Data Error, FindPattern return dan seterusnya :3.

Koding pada WebBrowser on Document Complete. Selanjutnya pada tahap akhir kita akan koding pada Button.
Klik 2x pada Button kemudian masukan koding di bawah ini, terlebih  dahulu teman-teman hapus kode Begin

var
ResponseHolder : TStringStream;
Begin
ResponseHolder := TStringStream.Create('');
if Button1.Caption = 'Get Data' then 
    WebBrowser1.Navigate('http://masdag.blogspot.com/2017/08/cara-membuat-aplikasi-loginner-wifiid') 
  else 
    if httpPostURL(FinalURL.Text, 'username=Masdag@Telkom.co.id&password=fuckoff&gw_id=' + gwid.Text, ResponseHolder) then 
    ShowMessage(ResponseHolder.DataString); 

Keterangan:

Penjelasan kode di atas seperti ini : ResponseHolder : TStringStream; Ini berguna untuk menampilkan log. Kemudian kode yang di bawah Begin untuk menggunakan Fungsi dari httpsend yang telah kita import di bagian uses tadi, diantara begin dan end; Penjelasan Kode di bawah Begin karena dalam handle WebBrowser1DocumentComplete tadi kita mengganti Caption Button1 ke Login jika FindPattern-nya tidak kosong maka kita melakukan pengecekan ulang untuk Caption-nya. Kira2 seperti itulah, itu untuk fungsi httpPoseURL parameter nya adalah, URL, parameterDanValuePost, StoreDataHolding) yang ini endak usah saya jelaskan. Palingan juga udah pada ngerti :D.

Yang harus di ganti adalah :
masdag@telkom.co.id, password:fuckoff
Masdag meruapakan username dan telkom.co.id adalh domain yang di gunakan, dan password adalah password dari akun

Aplikasi sudah jadi saatnya untuk menyesuaikan tampilan. Untuk mode Manual akan kita bahas pada postingan selanjutnya :D

 

Bagikan Artikel ini