چه آی پی هایی متصل شده به مودم؟

[amirdragon 12]

با سلام به اساتید محترم

من  دارم  رو یه برنامه کار میکنم که توش نیاز دارم ببینم چه آی پی هایی به مودم وصل هستند 

ub StartPing
Dim Command As String
Dim Result As Int
Dim Ph As Phone
Dim Adr As String
Dim Start As Int
Dim stop As Int
Dim M As Int

Command = File.Combine(File.DirInternalCache, "command")
Adr="192.168.1."
Start=1
stop=254
For M=Start To stop
File.WriteString(File.DirInternalCache, "command", "ping -w 1 -c 1 -n " & Adr & M  & CRLF & "exit")
Dim StdOut, StdErr As StringBuilder
StdOut.Initialize
StdErr.Initialize
Result = Ph.Shell("sh", Array As String(Command), StdOut, StdErr)
Dim R As String
R=StdOut.ToString
If R.Contains("1 received") Then
'Log(Adr & M & " On")
Msgbox(Adr & M & " On","")
Else
'Log(Adr & M & " Off")
Msgbox(Adr & M & " off","")
End If
Next
End Sub

من از نمونه برنامه بالا استفاده کردم جواب داد  ولی همه آی پی ها  متصل رو نشون نمیده ،

از اساتید محترم میخوام تا راهنماییم کنن با تشکر

[مهدی ایزدی 9,203]

درود

به نظرم دلیلش میتونه این باشه که حلقه ی فور داره خیلی سریع از 1 تا 254 رو تست میکنه که البته اون رو هم کنید 255 چون آخریش 255 هست !

البته قبلش باید M رو توی همون Globals مساوی 1 قرار بدید که حلقه از 1 شروع شه.

در کل :

به جای حلقه از Timer استفاده کنید و مثلا Interval رو مساوی 200-300 قرار بدید تا با سرعت کمتری ping رو انجام بده

اون M رو فقط کافیه توی خط آخر یکی بهش اضافه کنید یعنی: M = M + 1

تا تایمر کارش رو انجام بده

نتیجه کار رو گزارش کنید ببینید جواب گرفتید یا خیر

[amirdragon 12]

با تشکر از کمک شما

کارایی که گفتین رو قبلا هم انجام داده بودم ولی دوباره بازم تست کردم ، ولی بازم نشد ، مسئله اینجاست که همه رو نشون میده الا  pc یا لپتاپ !!!

ممکنه این سوالی که میکنم مسخره باشه ولی آیا ممکنه این قضیه بخاطر فایر وال باشه ؟؟؟!!

اگه اینطوره پس چطور اپ هایی مثل NETWORK IP SCANNER  میتونن این کارو کنن

آیا روش دیگه ای به غیر از ping گرفتن برای اینکار وجود داره؟

 

 

 

( ببخش خیلی سوال پرسیدم )