Ben size Source kodalrını yazım Kendiniz Yapmak istersenizveya projenizde Kullanamk isterseniz

Araç Gereçlerimiz:
1 Adet = Vısual basic
1 Adet = Asp Dosyası

Asp Dosyasının içine

<%
Dim ip_adresi
ip_adresi = Request.ServerVariables("REMOTE_ADDR") ' ip adresini Alıyoruz
Response.Write(ip_adresi) // ekrana Gönderiyoruz
%>
-----------------------------------------------------------------------------
Bir Visual basic projesi Acıp buna Bir adet TExtbox ve bir adet INET objesi ekliyorsunuz.
Daha Sonra

Örnek :

sub ip_bul ()
text1 = inet1.openurl(" Asp Dosyasınnı Bulundugu URL Yazılacak ")
end sub

ve ip adresini programınıza yazdırdınız

okumaya Üşenenler için hazır projesi :P yaptımda isteyen idrebilir

AÇIK KAYNAK KODU:
http://www.vmreboot.com/ip.zip