Selamlar,
Bir çoğunuz projenizi artık sunucu üzerinden yapmaya başladı. Peki programı yükleyen kişinin pc ip'sini nasıl alabilirsiniz. Öncelikle Cmd üzerinden local ip adresinizi ipconfig yazarak bulabilirsiniz. Ancak internete bağlandığınız ve takip edildiğinde evinizin adresine kadar bulunabilen ip adresini nasıl öğrenebilirsiniz.
İşte kodlar.
Projemize system.net ve system.io'yu ekliyoruz.
Formun altına değişkenlerimizi tanımlıyoruz.
Daha sonra fonksiyonumuzu ekliyoruz.
Fonksiyonu çalıştıracağımız kontrolün içerisine
yazıyoruz.
MyIP değişkenini ip adresinin yazılmasını istediğiniz yere ekliyorsunuz. Dikkat etmeniz gereken konu ise GetMtIP() Fonksiyonunu çağırmadan MyIP değişkenin değeri boş olacaktır.
Örnek :
ya da
Bir çoğunuz projenizi artık sunucu üzerinden yapmaya başladı. Peki programı yükleyen kişinin pc ip'sini nasıl alabilirsiniz. Öncelikle Cmd üzerinden local ip adresinizi ipconfig yazarak bulabilirsiniz. Ancak internete bağlandığınız ve takip edildiğinde evinizin adresine kadar bulunabilen ip adresini nasıl öğrenebilirsiniz.
İşte kodlar.
Projemize system.net ve system.io'yu ekliyoruz.
Kod:
Imports System.Net
Imports System.IOFormun altına değişkenlerimizi tanımlıyoruz.
Kod:
Dim MyIP As StringDaha sonra fonksiyonumuzu ekliyoruz.
Kod:
Private Function GetMyIP() As Net.IPAddress
Dim client As New WebClient
client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR1.0.3705;)")
Dim baseurl As String = "http://checkip.dyndns.org/"
Dim proxy As IWebProxy = WebRequest.GetSystemWebProxy()
proxy.Credentials = CredentialCache.DefaultNetworkCredentials
client.Proxy = proxy
Dim data As Stream
Try
data = client.OpenRead(baseurl)
Catch ex As Exception
End Try
Dim reader As StreamReader = New StreamReader(data)
MyIP = reader.ReadToEnd()
data.Close()
reader.Close()
MyIP = MyIP.Replace("<html><head><title>Current IP Check</title></head><body>Current IP Address:", "").Replace("</body></html>", "").ToString()
MyIP = MyIP.Trim
End FunctionFonksiyonu çalıştıracağımız kontrolün içerisine
Kod:
GetMyIP()MyIP değişkenini ip adresinin yazılmasını istediğiniz yere ekliyorsunuz. Dikkat etmeniz gereken konu ise GetMtIP() Fonksiyonunu çağırmadan MyIP değişkenin değeri boş olacaktır.
Örnek :
Kod:
MsgBox(MyIP)
Kod:
textbox1.text=MyIP
?
