Merhaba Arkdaşlar Bize Lazım Olacak Kodlar Biraz Paylaşmak İstedim.Altıntı ve kendi Duzeltmelerim vardır.Emeğe Saygı Lutfen Teşekurler.

IP Adesi Oğrenme (What is My IP İle)
Once Boş Kısıma
Private Overloads Function IPogren() As String
Try
Dim Spy As New System.Net.WebClient
Dim ipStr As String = System.Text.Encoding.ASCII.GetString(Spy.DownloadD ata(?http://automation.whatismyip.com/n09230945.asp?))
Spy.Dispose()
Return (ipStr)
Catch
Return (?Coder kaNon?)
End Try
End Function
kullanımı
Msgbox(IPogren)
__________________