سلام دوستان خوبم.چطوري ميشه IP سرور رو پيدا كرد

[jahanmanesh]

سلام دوستان خوبم.چطوري ميشه IP سرور رو پيدا كرد؟
منظورم اينه كه فرض كنيد يه برنامه چت نوشتيم يا كلا يه برنامه تحت شبكه نوشتيم.ميخوايم خود كلاينت بگرده و IP سرور رو پيدا كنه!
ميدونم ميشه IP رو از روي نام سرور گرفت ولي ميخوام خود برنامه بتونه خودكار اينكارو بكنه!

از مهندسين عزيز كمك ميخوام :اشتباه:

[Nima NT]

با استفاده از کامپوننت IPWorks میتونی این کار رو انجام بدی ، بخشی به اسم Ping داره.

[bah_jaf]

Net.Dns.GetHostEntry("server").AddressList(0).ToString

[jahanmanesh]

عزيزان منمنون كه پاسخ داديد.
ديديد وقتي بازي ميكنيم اگه بازي رو ببريم روي شبكه لوكال كاپيوترا سري هم ديگه رو پيدا ميكنن و يكي ميشه هاست و ديگري كلاينت، همچين آي پي پيدا كردني منظورم هست:افسرده:

[jahanmanesh]

با استفاده از کامپوننت IPWorks میتونی این کار رو انجام بدی ، بخشی به اسم Ping داره.

مرسي از پاسختون

اين كامپوننت رو از كجا ميشه گير آورد،مجانيه؟

[bah_jaf]

سلام
ببین دوست عزیز میتونی با ستفاده از دستور زیر ای پی خودت رو به دست بیاری و در اون رنج ای پی بگردی دنبل بقیه ای پی ها نمونه کدشو برات میزارم:

Dim LocalHostName As String = Net.Dns.GetHostName()
Dim ipEntry As Net.IPHostEntry = Net.Dns.GetHostEntry(LocalHostName)
Dim IpAddr As Net.IPAddress() = ipEntry.AddressList
MyIp = IpAddr(0).ToString
While InStr(MyIp, ".") <> 0
MyIp = Mid(MyIp, InStr(MyIp, ".") + 1)
End While
MyIp = Space(3 - Len(Trim(MyIp))) + Trim(MyIp)

تا اینجا ای پی خودت رو داری حالا روی اون رنج میتونی سرچ انجام بدی :

For i As Integer = 2 To 255
RaiseEvent Progress_persent((i / 255) * 100)
Dim x As New Net.NetworkInformation.Ping()
Dim ip As String = "192.168.1." & Trim(Str(i))
MsgBox(x.Send("server").ToString)
If x.Send(ip, 0.001).Status = Net.NetworkInformation.IPStatus.Success Then
_IndexCount += 1
_listName(_IndexCount, 1) = ip
_listName(_IndexCount, 2) = System.Net.Dns.Resolve(ip).HostName.ToString()
End If
Next i