CARA MENAMPILKAN NAMA KOMPUTER DAN IP ADDRES DI INJECT DELPHI 7

Kali ini saya akan memberikan tutor cara menampilkan nama Computer dan IP Addres di Inject,
agar Nama Computer dan IP Addres bisa tampil di Inject Ada 7 Langkah yang harus kita kerjakan,



ALAT YANG DIBUTUHKAN
1.Software Delphi 7                                   Download Disini
2.Inject                                                     Download Disini
3.Kemauan
4.Kesabaran
5.Kopi Secangkir dan Makanan ringan

Ok langsung aja kita praktekan:)

#LANGKAH PERTAMA#
1.-Buka Software Delphi 7
  -Buka Inject yang sudah Ane Kasih di atas atau
  -Inject buatan kamu sebelumnya
  Sekarang Perhatikan Dengan Baik
  -Tambahkan Status bar dengan cara Double klik Status bar yang berada di {tab Win32} seprti gambar dibawah

#LANGKAH KEDUA#
2.-Bagi Status bar menjadi 2 form / 2 panel
  -Caranya double klik Status bar yang sudah anda tambahkan di langkah 1
  -Klik Add new 2x dan harus seperti gambar di bawah ini

#LANGKAH KETIGA#
3.-Sekarang tinggal melakukan coding
  -Tambahkan Winsock di uses seperti gambar di bawah ini

#LANGKAH KEEMPAT#
4.-Cari tulisan ini {$R *.dfm} 
  -Tambahkan code dibawah ini Tepat dibawahnya {$R *.dfm}

  function GetIPFromHost (var HostName, IPaddr, WSAErr: string): Boolean;
type
Name = array[0..100] of Char;
PName = ^Name;
var
HEnt: pHostEnt;
HName: PName;
WSAData: TWSAData;
i: Integer;
begin
Result := False;
if WSAStartup($0101, WSAData) <> 0 then begin
WSAErr := 'Winsock is not responding."';
Exit;
end;
IPaddr := '';
New(HName);
if GetHostName(HName^, SizeOf(Name)) = 0 then
begin
HostName := StrPas(HName^);
HEnt := GetHostByName(HName^);
for i := 0 to HEnt^.h_length - 1 do
IPaddr :=
Concat(IPaddr,
IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
SetLength(IPaddr, Length(IPaddr) - 1);
Result := True;
end
else begin
case WSAGetLastError of
WSANOTINITIALISED:WSAErr:='WSANotInitialised';
WSAENETDOWN      :WSAErr:='WSAENetDown';
WSAEINPROGRESS   :WSAErr:='WSAEInProgress';
end;
end;
Dispose(HName);
WSACleanup;
end;

#LANGKAH KELIMA#
5.-Tambahkan Timer / Gambar Jam yang berada di {tab System}
  -Caranya dengan Double Klik Timer / gambar jam seperti gambar berikut

#LANGKAH KEENAM#
6.-Double Klik Timer / gambar jam yang sudah anda tambahkan
  -Masukan code ini di atas bagin

 var Host, IP, Err: string;

  -Dan masukan kode ini di bawah begin

 if GetIPFromHost(Host, IP, Err) then begin
statusbar1.Panels[0].Text:=Host  ;
statusbar1.Panels[1].Text:=IP;
end
else
MessageDlg(Err, mtError, [mbOk], 0);

#LANGKAH KETUJUH#
7.-Klik ran / gambar segi tiga jika sudah benar akan tampak gambar  seperti di bawah ini

Note : Jika Tidak Muncul Nama Computer Dan IP Addres mungkin ada yang kurang / salah memasukan code nya, Silahkan Ulangi Lagi.

TUTOR VEDEO CARA MENAMPILKAN IP DI INJECT DENGAN DELPHI 7

Klik Disini

CREAT BY : FATKHUR ROZAK

FB                   : https://www.facebook.com/fatkhur.rozak.925
GRUP FB         : Klik Disini
BLOG              : Klik Disini


Itulah TUTORIAL Dalam Menampilkan Nama Computer dan IP Addres
Terimakasih Telah Membaca Dan Mengunjungi Blog TRIK INTERNET GRATIS