Cara Membuat Direct IP Pada Inject
www.mbahhanif.site - Halo Mbah. Disini sudah pada tau tentang direct Ip pada inject ? kalau belum mari kita bahas permasalahn ini. direct ip default yaitu 127.0.0.1 kalau mau menginginkan inject yang mampu membaca Ip seperti gambar disamping ini. Penasaran kan. Mudah kok, dengan memasukkan beberapa script dibawah ini. Menurut anda apakah Membuat seperti ini sudah dibayangkan, Buang rasa itu sejauh ini. karena para progamers aja yakin kalau bisa.
Pada mekanika pembuatan inject, perlu tambahan tambahan yang ada seperti halnya pembahasan berikut ini yang mengenai bisa mendeteksi ip anda saat berinternetan tanpa membuka website website penyedia ip agar bisa melihatnya. cukup menggunakan tools buatan sendiri, maka jauh berbeda dengan buatan orang lain.
Apa itu direct Ip Inject ?
Sebuah alat untuk melihat Ip yang anda gunakan saat ini juga untuk tidak usah lagi melihat di cmd atau google membuat anda repot saja. hahaha. Maka dari itu Tools Ini Diciptakan untuk mempermudah kegiatan anda saat ini.
Bagaimana Cara membuatnya Direct Ip Pada inject?
Cukup mudah dan sangat simple sekali. Hanya membutuhkan script yang sudah saya sediakan dibawah ini. untuk tutorialnya sudah saya berikan beserta gambarnya. untuk itu mari kita belajar pemograman saat ini juga, sampai kapan lagi ditunda tunda.
Langkah Langkah Membuat Direct IP pada Inject Sendiri:
Persiapan :
1. Berdoa Terlebih Dahulu
2. Anda Harus Mempunyai Delphi-7 Terlebih Dahulu
3. Script Yang Mbah Sudah Sediakan
4. Ikuti Langkah Langkah Berikut Dengan Benar
Praktek :
1. Tambahkan Componen Jam Pada Form Kosong Berikut Ini,Contoh Dibawah ini:
2. Kemudian Tambahkan Componen XP man Pada Form Kosong Berikut ini, Contoh Seperti Gambar Berikut Ini:
3. Tambahkan Component Statusbar Dibagian Bawah Form Kosong Berikut Ini, contoh Seperti Dibawh Ini:
4. Setelah Itu Klik StatusBar 2x Maka Akan Muncul Editing, Pada Editing Ini, Pertama Berbentuk kosongan, nah cara menambahkan dengan Klik New Pada Icon Yang Sudah Ditandai Oleh Mbah, Buat 3 Lembar Baru:
5. Ganti Nomor 1 Dengan nama IP, Yang lain Biarkan Kosongan Begitu Saja: Dengan Cara Pilih IP Kemudian Pada Perintah Text Kita Ganti, Lihat Contoh Sebagai Berikut Ini:
6. Setelah Semua Selesai Dengan Diatas, Maka Saatnya Pengodingan Pada Script Yang Sudah mbah Sediakan, Klik 2x Pada Jam Maka Akan Muncul Perintah Kosong, Maka Dari itu Masukkan Script Dibawah gambar Ini:
Scriptnya Dibawah:
var Host, IP, Err: string;
begin
if GetIPFromHost(Host, IP, Err) then begin
stsBr1.Panels[0].Text:=Host ;
stsBr1.Panels[2].Text:=IP;
end
else
MessageDlg(Err, mtError, [mbOk], 0);
end;
7. Kemudian Masukkan Script Ini Terserah Penempatannya,Saran saya Dibawah Script Pada Jam. Scriptnya Dibawah gambar Ini:
Scriptnya:
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;
8. Pada USES, Kita Tambahkan Perintah WinSock, Ini Berhubungan Dengan Componen IP Man Tadi Yang Kita Telah Ditambahkan Tadi, Lihat Gambar Berikut Ini:
9. Langkah Terakhir Yaitu RUN Atau F9. Hal Ini Membuat Inject Yang Kita Kerjakan Ada Kesalahannya Atau Tidak:
10. Kalau 100% Sempurna Setelah Kita Run Maka Project Berhasil Kita Buat
11. Langkah Terakhir Yaitu Kita Build Sebagi Inject Dan Menggatinya Nama
12. Selesai :D
Catatan :
1. Apabila Terjadi Kesalahan, Cek Pada Nama Componen Pada Bagian Bar Kiri Bawah
2. Ganti Nama Sesuai Dengan Perintahnya Yang Menunjukan Tanda Merah
Semoga bermanfaat
Related Post