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

السؤال :
انا ماعملتش اي حاجه قبل كده على الفيجوال بتتعامل مع الشبكات
هل ممكن حد يساعدني بشرح أو كتاب او لينك او فيديو يفيدني اني انفذ البرنامج بالشكل ده ؟
وللجميع جزيل الشكر مقدماً
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#2
اظن لو تبحث بقوقل بالانجليزي حتلقى الكثير
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
#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 من خلال برنامج فيجوال بيسك جيولوجي مبتدئ 4 1,028 05-09-25, 12:37 PM
آخر رد: جيولوجي مبتدئ
  مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك ahmedfa71 13 2,266 09-07-25, 11:24 PM
آخر رد: أبو خالد الشكري
  [VB.NET] حفظ تنسيق الفورم ثم تطبيقة علي فورم اخر فيجوال بيسك abo ragab 7 1,240 09-07-25, 12:45 AM
آخر رد: abo ragab
  كيف يمكن تحويل ملف تنفيذى الى فيجوال بيسك 2010 walkady 2 789 07-02-25, 07:57 PM
آخر رد: الورد2
Lightbulb [مشروع] مطلوب برنامج نظام صيدليه بالفيجوال بيسك 2010 May-5 13 10,800 07-02-25, 07:55 PM
آخر رد: الورد2
  تركيب منظومة على الشبكة المحلية ahlamalgomate2020 2 270 02-11-24, 12:09 AM
آخر رد: ahlamalgomate2020
  السلام عليكم ممكن كود بحث فى برنامج مصمم بالفيجوال بيسك وقاعدة بيانات اكسس خالد كامل1 1 466 08-10-24, 02:37 PM
آخر رد: salamandal
  [VB.NET] مساعدة فيجول بيسك foxsero 0 241 04-09-24, 04:29 AM
آخر رد: foxsero
  [VB.NET] طلب طريقة فاعلة في ربط الفيجوال ستوديو 2022 مع قاعدة بيانات mdb WellyG 4 676 29-07-24, 12:14 AM
آخر رد: عبد العزيز البسكري
  فتح ملف اكسيل عن طريق الفيجوال بيسك 2015 Emam emam 0 281 19-07-24, 05:14 PM
آخر رد: Emam emam

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


يقوم بقرائة الموضوع: