Verdiğim kodlar ip adresinizi öğrenmenizi sağlar. Bu kodlar ile ipsorgu.com a bağlanır ve ip adresinizi öğrenebilirsiniz. Buyrun arkadaşlar bir çok kişi için işe yarıyacağından eminim. Kod: 'formunuza inet nesnesini ekleyin ve projenize aşağıdaki kodları girin. Function VeriAl Dim Baslangic, Bitis, Uzunluk As Long Baslangic = InStr(1, AnaMetin, OnMetin) + Len Bitis = InStr Uzunluk = Bitis - Baslangic VeriAl = Mid End Function Private Sub Command1_Click Text1 = VeriAl(Inet1. OpenURL , "IP Adresi ") End Sub Yapamayan arkadaşlarda BURDAN proje halini indirebilir. lütfen karmalarınızı esirgemeyin -

dostum winsock ile 1 satır da öğrene biliyosun msgbox winsock1. localip olması lazım yinede uğraşmışın saol

aynen öyle bende bu mantıkla ip sorgulatıyorum ama bu siteden değil

Evt ama o local ip yi verir. 10.0 lı veya 192.0 lı olanı verir. Bu kodlar ile dış ip yi öğrenebiliriz