Minggu, 25 Januari 2015

Cara Menampilkan Nama Komputer dan IP Address di Inject Delphi

Berikut adalah Cara Menampilkan Nama Komputer dan IP Address di Inject Delphi mungkin bagi anda ada yang membutuhkan tutorial ini, ok tutorial ini merupakan kelanjutan dari tutorial sebelumnya jadi sebelum anda membaca tutorial ini saya sarankan untuk membaca tutorial Cara Membuat Injek Delphi Terbaru 2015 karena mungkin cara nampilin ip adrees pada kebanyakan injek mungkin anda juga membutuhkannya, oke kita langsung praktek saja yah.. ^_^

1. Langkah Pertama silahkan buka Delphi anda atau Project anda yang sudah dibuat sebelumnya, lalu Langsung perhatikan menuju tulisan WIN32 lalu tambahkan status bar double klik dan lihat lajurnya seperti gambar dibawah ini:

Kumpulan Trik Delphi Terbaru 2015

2. Langkah yang kedua kemudian bagi status bar anda menjadi dua form atau 2 panel seperti dibawah ini dengan cara mengklik status bar yang sudah anda tambahakan pada langkah 1 diatas double klik saja harus seperti nampak gambar dibawah ini, lalu pada status bar 1 lagi klik add new ans dan harus menjadi  status 2 panel kaya gambar editing.

Cara Membuat Jam Daftar Kerja Tabel di Delphi

3. Langkah yang ketiga lalu pindahke Init1.pas atau carai saja tulisan user dibawah interface kaya gambar dibawah ini lalu tambahkan tulisan WINSOCK secara manual jadi anda harus ketik secara manual lihat gambar dibawah ini:

Cara Membuat Kamus di delphi 2015

4. Langkah yang keempat lalu cari tulisan {$R *.dfm} tepat dibawah tulisan implementation, lihat gambar dibawah ini, lalu masukan source kode dibawah:

Trik Jitu Rahasaia bongkar injek delphi terbaru

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

5. Langkah yang kelima klik SYSTEM lalu tambahkan timer atau gambar jam dengan double klik, lihat gambar dibawah ini, lalu double klik gambar jamnya.

Tutorial Delphi Lengkap Terbaru 2015

6. Langkah yang keenam setelah anda mendouble klik gambar jamnya, lalu masukan source kode var Host, IP, Err: string; tepat dibawah procedure TForm1.Timer1Timer(Sender: TObject) lalu masukan sorce kode if GetIPFromHost(Host, IP, Err) then begin
statusbar1.Panels[0].Text:=Host  ;
statusbar1.Panels[1].Text:=IP;
end
else
MessageDlg(Err, mtError, [mbOk], 0);

Tepat dibawah begin, atau kode lengkapnya bisa anda lihat di gambar atau dibawah gambar ini.

Delphi Visual Basic VB6 Tutorial 2015


procedure TForm1.Timer1Timer(Sender: TObject)
var Host, IP, Err: string;
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);

7. Langkah yang terakhir lalu klik ran gambar Segitiga, jika tidak ada yang error atau benar seharusnya previewnya seperti gambar dibawah ini, dan kalau berhasil silahkan save atau save as project anda.

Cara Buat Blog Delphi CMS PHP Phyton Cobra ha ha ha ha

Tutorial ini akan masih berlanjut karena masih banyak yang harus ditambahkan setelah ini misal cara menambahkan player musik disana, pasang alpaskin, pasang auto route, atau bahkan pasang bugs manual host juga bisa dan lain sebaginnya, jadi ditunggu saja ya.

Dan hanya itu saja info seputar Cara Menampilkan Nama Komputer dan IP Address di Inject Delphi 2015 semoga bermanfaat dan membantu dan jika bermanfaat silahkan share dan bagikan ke rekan dan sekaligus buat pacar anda, terima kasih ^_^