View Full Version : سوال: سلام دوستان خوبم.چطوري ميشه IP سرور رو پيدا كرد
jahanmanesh
یک شنبه 18 بهمن 1388, 12:16 عصر
سلام دوستان خوبم.چطوري ميشه IP سرور رو پيدا كرد؟
منظورم اينه كه فرض كنيد يه برنامه چت نوشتيم يا كلا يه برنامه تحت شبكه نوشتيم.ميخوايم خود كلاينت بگرده و IP سرور رو پيدا كنه!
ميدونم ميشه IP رو از روي نام سرور گرفت ولي ميخوام خود برنامه بتونه خودكار اينكارو بكنه!
از مهندسين عزيز كمك ميخوام :اشتباه:
Nima NT
یک شنبه 18 بهمن 1388, 14:23 عصر
با استفاده از کامپوننت IPWorks میتونی این کار رو انجام بدی ، بخشی به اسم Ping داره.
bah_jaf
یک شنبه 18 بهمن 1388, 14:33 عصر
Net.Dns.GetHostEntry("server").AddressList(0).ToString
jahanmanesh
دوشنبه 19 بهمن 1388, 02:34 صبح
عزيزان منمنون كه پاسخ داديد.
ديديد وقتي بازي ميكنيم اگه بازي رو ببريم روي شبكه لوكال كاپيوترا سري هم ديگه رو پيدا ميكنن و يكي ميشه هاست و ديگري كلاينت، همچين آي پي پيدا كردني منظورم هست:افسرده:
jahanmanesh
دوشنبه 19 بهمن 1388, 02:37 صبح
با استفاده از کامپوننت IPWorks میتونی این کار رو انجام بدی ، بخشی به اسم Ping داره.
مرسي از پاسختون
اين كامپوننت رو از كجا ميشه گير آورد،مجانيه؟
bah_jaf
دوشنبه 19 بهمن 1388, 13:17 عصر
سلام
ببین دوست عزیز میتونی با ستفاده از دستور زیر ای پی خودت رو به دست بیاری و در اون رنج ای پی بگردی دنبل بقیه ای پی ها نمونه کدشو برات میزارم:
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.