Cara Membuat Aplikasi Loginner Wifi.ID (mode manual) - Free Source

Tutorial kali ini merupakan tutorial yang tidak jauh dengan tutorial kemarin, di mana kita akan mencoba membuat project loginner wifi.id. Beda dengan kemarin yang menggunakan metode otomatis, sekarang kita akan coba mencoba dengan metode manual.

Apa itu metode manual dan otomatis?
Metode Manual adalah metode yang di mana kita memasukan url secara langsung ke dalam aplikasi.
Sedangkan Metode Otomatis yang sudah kita bahas di tutorial sebelumnya adalah metode bagaimana kita tidak perlu copy url ke dalam aplikasi, karena kita akan otomatis generate URL dari portal wifi.id secara langsung menggunakan komponen tambahan synalist.

Tetapi permasalahanya di sini adalah bagaimana kalau suatu saat portal wifi.id mengalami ganguan, yang tidak lama ini sudah terjadi. Karna itu kita membutuhkan sebuah aplikasi yang tidak mengharuskan kita terlebih dahulu redirect ke dalam portal wifi.id tersebut.

Untuk teman-teman yang ingin menggunakan contoh dari aplikasinya silahkan bisa di download di link di bawah ini
Solusi Portal Wifi.ID Maintenance - Login Menggunakan Aplikasi 

Dan juga :
tutorial membuat aplikasi loginner wifi.id menggunakan delphi7

 
Baiklah langsung saja menuju tutorialnya :

1. Yang pertama tentu teman-teman harus membuat sebuah project baru,
2. Save project yang sudah di buat dengan nama bebas.
3. Silahkan teman-teman masukan komponen-komponen di bawah ini :
 

1 Buah Timer
5 Buah Edit box
nama : BaseURL,FinalURL, welcome, gw_id, versiURL
1 Buah Memo
dan 1 buah Button

dan jika semua sudah sesuai, saatnya lanjut ke koding, Masukan kode ini tepat 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;

Kemudian jika sudah, klik 2x pada komponen Timer, kemudian masukan kode ini di dalamnya

var
wbURL, wel, vers, gw_id, mac : String;
begin
wbURL := BaseURL.Text;
vers := FindPattern(BaseURL.Text, '.id/', '/default/');
gw_id := FindPattern(BaseURL.Text, 'gw_id=', '&client');
wel := FindPattern(BaseURL.Text, 'welcome', '.wifi.id/');
mac := FindPattern(BaseURL.Text, '&client_mac=', '&wlan=');
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 := '';
 //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;

Saya tidak akan menjelaskan maksut dari koding di atas karna sudah saya jelaskan pada tutorial sebelumnya. Sekarang klik 2x pada tombol button, dan masukan kode ini

Memo1.Clear;
ResponseHolder := TStringStream.Create('');
if httpPostURL(FinalURL.Text, 'username=Masdag.com@telkom.co.id&password=tutorialgratis&gw_id='+gwid.Text, ResponseHolder) then
Memo1.Text:=(ResponseHolder.DataString);

Siahkan ganti yang warna merah dengan akun yang teman-teman punya :).
Jika masih bingung, saya sudah menyiapkan source codenya,

SOURCE CODE LINK

untuk password silahkan inbox FB saya : www.facebook.com/ahwanul.mubin

TAGS :

cara membuat loginner wifi.id dengan delphi7

download loginner wifi.id

inject wifi.id

tutorial membuat aplikasi

Bagikan Artikel ini