بدست آوردن ip

[Esmail-Sanaei]

با سلام و خسته نباشید خدمت دوستان عزیز
دستوری که از طریق اون بتونم بفهمم که چه ip وارد سیستمم شده و بتونم از سیستم خارجش کنم . :متفکر:

[yavari]

سلام

متاسفانه متوجه منظورتون نشدم . :خجالت:
اگه منظورتون آی پی لوکال هست این کدش :


Dim LocalHostName As String = Net.Dns.GetHostName()
Dim ipEntry As Net.IPHostEntry = Net.Dns.GetHostByName(LocalHostName)
Dim IpAddr As Net.IPAddress() = ipEntry.AddressList
Dim i As Integer = 0
Do While i < IpAddr.Length
txtIP.Text += IpAddr(i).ToString()
Exit Do
Loop

وگرنه بیشتر توضیح بدین .
موفق باشید

[Esmail-Sanaei]

مثل دستور netstat توی dos
میخوام بفهمم که در حال حاضر چه ip هایی به سیستم من متصل شدن

[peymannaji]

این چیزی که شما میگید کاملا واضح هست تو رویداد لود فرمتون آپی فرد رو بگیرید و در یک دیتا بیس ذخیره کنید و در رویداد formclosing مربوط به فرمتون هم آپی فرد رو از دیتا بیس پاک کنید که دقیقا آپی هایی که به سیستمتون متصل شدن رو داشته باشید ... البته ممکنه راه بهتری هم باشه که دوستا راهنمایی بفرمایند .

[علیرضا مداح]

سلام ،
http://www.codeproject.com/KB/IP/tcpserver_clientip.aspx

[Esmail-Sanaei]

ip دستگاه مقابل رو که به سیستم من از طریق شبکه lan وصله