منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سؤالي عن الفيجوال بيسك والشبكة المحلية
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الفكره ببساطة انا بفكر في برنامج يعرفني كام جهاز متصل على الشبكة
الفكره :
البرنامج فيه مفتاح بحث لو ضغطت عليه هايعمل امر PING على الأيبيهات من 1 لـ 255  ويشوف ايه الاي بي اللي هايعمل معاه ريكويست وينزلي كل الايبيهات في داتا جريد فيو وبكده اقدر اعرف كام جهاز متصل على الشبكة والاي بي الخاص بيه

السؤال :
انا ماعملتش اي حاجه قبل كده على الفيجوال بتتعامل مع الشبكات
هل ممكن حد يساعدني بشرح أو كتاب او لينك او فيديو يفيدني اني انفذ البرنامج بالشكل ده ؟
وللجميع جزيل الشكر مقدماً
اظن لو تبحث بقوقل بالانجليزي حتلقى الكثير
If My.Computer.Network.Ping("192.168.1.88") Then
           MsgBox("نعم")
       Else
           MsgBox("لا")
       End If
الف شكر اخي ashfa
هاجربه واعرفكم
تمام الله ينور عليك ويجزيك خير
لكن هو الكود شغال تمام لما اعمل بينج على اي بي واحد
انما انا الفكره اني اعمل متسلسلة بكل الايبي على الشبكة ويحط النتيجة في داتا جريد فيو
فكتبت الكود بالشكل ده :

كود :
Dim IP As String = "192.168.1."
            For I = 0 To 254
                If My.Computer.Network.Ping("192.168.1." & I) Then
                    DataGridView1.Rows.Add()
                    DataGridView1(0, I).Value = I + 1
                    DataGridView1(1, I).Value = ("192.168.1." & I)
                End If
            Next

لكن بيحصل مشكله
Index was out of range. Must be non-negative and less than the size of the collection.
المثال في المرفق
بسح حب اقول شىء ان ip يبتدي من 0 الى  254 مجموع 255  لا يوحد ip يحمل 255 اخر شيء 254

اتمنى ان يكون المثال على حسب طلبك

حولة ارفع المرفق مرتين بس ما اقدر اشوف المرفق عشن كدا برفع المرفق على مركز الخليج

http://www.gulfup.com/?OVmMdb
الف الف الف شكر
هو ده الكود اللي أنا كنت محتاجه
بارك الله فيك