تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤالي عن الفيجوال بيسك والشبكة المحلية
#1
الفكره ببساطة انا بفكر في برنامج يعرفني كام جهاز متصل على الشبكة
الفكره :
البرنامج فيه مفتاح بحث لو ضغطت عليه هايعمل امر PING على الأيبيهات من 1 لـ 255  ويشوف ايه الاي بي اللي هايعمل معاه ريكويست وينزلي كل الايبيهات في داتا جريد فيو وبكده اقدر اعرف كام جهاز متصل على الشبكة والاي بي الخاص بيه

السؤال :
انا ماعملتش اي حاجه قبل كده على الفيجوال بتتعامل مع الشبكات
هل ممكن حد يساعدني بشرح أو كتاب او لينك او فيديو يفيدني اني انفذ البرنامج بالشكل ده ؟
وللجميع جزيل الشكر مقدماً
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#2
اظن لو تبحث بقوقل بالانجليزي حتلقى الكثير
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
[صورة مرفقة: aburawdah.gif]
الرد }}}
#3
If My.Computer.Network.Ping("192.168.1.88") Then
           MsgBox("نعم")
       Else
           MsgBox("لا")
       End If
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود , Sajad
#4
الف شكر اخي ashfa
هاجربه واعرفكم
الرد }}}
#5
تمام الله ينور عليك ويجزيك خير
لكن هو الكود شغال تمام لما اعمل بينج على اي بي واحد
انما انا الفكره اني اعمل متسلسلة بكل الايبي على الشبكة ويحط النتيجة في داتا جريد فيو
فكتبت الكود بالشكل ده :

كود :
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.
الرد }}}
تم الشكر بواسطة:
#6
المثال في المرفق
بسح حب اقول شىء ان ip يبتدي من 0 الى  254 مجموع 255  لا يوحد ip يحمل 255 اخر شيء 254

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

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

http://www.gulfup.com/?OVmMdb
0 101010101010101010101010
1 010101010101010101010101
1 0101010101010101010101010
الرد }}}
تم الشكر بواسطة:
#7
الف الف الف شكر
هو ده الكود اللي أنا كنت محتاجه
بارك الله فيك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جهاز ارسال رسائل SMS من خلال برنامج فيجوال بيسك جيولوجي مبتدئ 5 1,422 27-01-26, 12:13 PM
آخر رد: fath
  مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك ahmedfa71 13 2,823 09-07-25, 11:24 PM
آخر رد: أبو خالد الشكري
  [VB.NET] حفظ تنسيق الفورم ثم تطبيقة علي فورم اخر فيجوال بيسك abo ragab 7 1,566 09-07-25, 12:45 AM
آخر رد: abo ragab
  كيف يمكن تحويل ملف تنفيذى الى فيجوال بيسك 2010 walkady 2 997 07-02-25, 07:57 PM
آخر رد: الورد2
Lightbulb [مشروع] مطلوب برنامج نظام صيدليه بالفيجوال بيسك 2010 May-5 13 11,520 07-02-25, 07:55 PM
آخر رد: الورد2
  تركيب منظومة على الشبكة المحلية ahlamalgomate2020 2 409 02-11-24, 12:09 AM
آخر رد: ahlamalgomate2020
  السلام عليكم ممكن كود بحث فى برنامج مصمم بالفيجوال بيسك وقاعدة بيانات اكسس خالد كامل1 1 629 08-10-24, 02:37 PM
آخر رد: salamandal
  [VB.NET] مساعدة فيجول بيسك foxsero 0 348 04-09-24, 04:29 AM
آخر رد: foxsero
  [VB.NET] طلب طريقة فاعلة في ربط الفيجوال ستوديو 2022 مع قاعدة بيانات mdb WellyG 4 906 29-07-24, 12:14 AM
آخر رد: عبد العزيز البسكري
  فتح ملف اكسيل عن طريق الفيجوال بيسك 2015 Emam emam 0 393 19-07-24, 05:14 PM
آخر رد: Emam emam

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم