Tutorial Cara Membuat Simple Tool Wifi Adhoc

Halo Kawan2, jumpa lagi dgn ' The Nubitol '
Kali ini kita akan membuat Adhoc Wifi Connection

apakah adhoc wifi itu ,. Untuk sharing koneksi ke wifi bawaan pc/laptop

Bagaimana Kelanjutanya, yuk..tarik mangggg...

Pertama2 , buka Delphi 7 nya dulu

Sblm nya kita buat output folder nya dulu ya

terus,. Kita masukan :

1. 1 buah sMemo
2. 1 buah sGroupbox
3. 4 buah sButton
4. 2 buah sEdit
5. 1 buah Doscommand

terus,. kita set tombol button nya :

sButton1 = SET SSID
sButton2 = START
sButton3 = CLEAR LOG
sButton4 = CLOSE

sButton1 = SET SSID,  klik 2x , masukan :
var
  DosCommand1 : TDosCommand;
  set : string;
begin
  sMemo1.Clear;
  if sEdit11.GetTextLen < 1 then
  begin
    Application.MessageBox('Isi SSID terlebih dahulu.', 'Error', MB_OK or MB_ICONERROR);
  end
  else if sEdit2.GetTextLen < 8 then
  begin
    Application.MessageBox('Password minimal 8 karakter.', 'Error', MB_OK or MB_ICONERROR);
  end
  else
  begin
    DosCommand1 := TDosCommand.Create(nil);
    set:= 'netsh wlan set hostednetwork ssid='+sEdit1.Text+' key='+sEdit2.Text+' mode=allow';
    DosCommand1.CommandLine := set;
    DosCommand1.OutputLines := log.Lines;
    DosCommand1.Execute;
    beep;
  end;

sButton2 = START  ,klik 2x , masukan :

var
  DosCommand1 : TDosCommand;
  set: string;
begin
  if sButton2.Caption = 'START' then
  begin
    sMemo1.Clear;
    DosCommand1:= TDosCommand.Create(nil);
    set := 'netsh wlan start hostednetwork';
    DosCommand1.CommandLine := set;
    DosCommand1.OutputLines := log.Lines;
    DosCommand1.Execute;
    sButton2.Caption := 'STOP';
    beep;
  end
  else if sButton2.Caption = 'STOP' then
  begin
    sMemo1.Clear;
    DosCommand1 := TDosCommand.Create(nil);
    set := 'netsh wlan stop hostednetwork';
    DosCommand1CommandLine := set;
    DosCommand1.OutputLines := sMemo1.Lines;
    DosCommand1.Execute;
    sButton2.Caption := 'START';
    beep;
  end;

sButton3 = CLEAR LOG , klik 2x, masukan :

log.Clear;

sButton4 = CLOSE, klik 2x, masukan :

Close;

Untuk mempercantik tool, kita ksh alphaskin ya

jangan lupa, form nya di rapikan dulu

Kita ksh nama :

Skrng kita, tester

di sini , saya akan mencotohkan koneksi emnggunakan Tun2Sock

Kita buka dl injeknya

Sekalian Kita set dl SSID nya dan pasword nya

kita tester koneksinya dl,.kalo sudah konek gini,.
baru kita share wifi kita
ke tap t2s nya trs kita share di sana. baru tombol wifi adhoc nya
kita start, biasanya terdetek wireles conect 2

skrng kita share wifi adhoc nya

nah, begitu saja,. wifi share tool kita sdh bisa di nikmati bersama2

Demikian tutorial ala ' The Nubitol '

Jangan lupa mampir ke

thenubitol.blogspot.com

sampai jumpa laen kesempatan,.

Cheerrssssssssss.....................

Untuk Lebih jelasnya, Simak Video Tutorial nya di Bawah ini

Download Wifi Adhoc