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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤالي عن الفيجوال بيسك والشبكة المحلية (/showthread.php?tid=12915)

سؤالي عن الفيجوال بيسك والشبكة المحلية - الفيومي116 - 08-08-15

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

السؤال :
انا ماعملتش اي حاجه قبل كده على الفيجوال بتتعامل مع الشبكات
هل ممكن حد يساعدني بشرح أو كتاب او لينك او فيديو يفيدني اني انفذ البرنامج بالشكل ده ؟
وللجميع جزيل الشكر مقدماً

RE: سؤالي عن الفيجوال بيسك والشبكة المحلية - سعود - 09-08-15

اظن لو تبحث بقوقل بالانجليزي حتلقى الكثير

RE: سؤالي عن الفيجوال بيسك والشبكة المحلية - ashfa - 09-08-15

If My.Computer.Network.Ping("192.168.1.88") Then
           MsgBox("نعم")
       Else
           MsgBox("لا")
       End If

RE: سؤالي عن الفيجوال بيسك والشبكة المحلية - الفيومي116 - 10-08-15

الف شكر اخي ashfa
هاجربه واعرفكم

RE: سؤالي عن الفيجوال بيسك والشبكة المحلية - الفيومي116 - 10-08-15

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

كود :
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.

RE: سؤالي عن الفيجوال بيسك والشبكة المحلية - salfig - 11-08-15

المثال في المرفق
بسح حب اقول شىء ان ip يبتدي من 0 الى  254 مجموع 255  لا يوحد ip يحمل 255 اخر شيء 254

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

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

http://www.gulfup.com/?OVmMdb

RE: سؤالي عن الفيجوال بيسك والشبكة المحلية - الفيومي116 - 13-08-15

الف الف الف شكر
هو ده الكود اللي أنا كنت محتاجه
بارك الله فيك