المشاركات : 49
المواضيع 13
الإنتساب : Jun 2013
السمعة :
1
الشكر: 36
تم شكره 62 مرات في 17 مشاركات
03-12-16, 12:19 AM
السلام عليكم أخواني الأعضاء .
السؤال هو أريد أن أقوم بالإتصال بالإنترنت وقطع الإتصال من داخل برنامجي ولم أجد حل لذالك أرجوكم أفيدوني بحل لهذه المشكلة
قطع الاتصال على النت فقط بدون أن تتأثر الشبكة المحلية بذالك
نعني الشبكة تكون شغالة مشاركة الملفات في الشبكة شغال بس يكون مافي نت لما اعمل قطع إتصال النت من البرنامج يقطع النت فقط وتضل الشبكة شغالة هل يوجد كود او مثال معكم.
وجزاكم الله ألف خير ساعدوني
ALHUMIDI Soft
المشاركات : 2,008
المواضيع 58
الإنتساب : Oct 2014
السمعة :
1,005
الشكر: 31833
تم شكره 22865 مرات في 2187 مشاركات
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , أعتقد أن ذلك غير ممكن إذا تريد تعطيل الإنترنت فقط فهذا فقط يكون من الراوتر أو المودم أو الجهاز الذي يزود الشبكة بالإنترنت .
المشاركات : 84
المواضيع 3
الإنتساب : Oct 2013
السمعة :
15
الشكر: 90
تم شكره 271 مرات في 94 مشاركات
السلام عليكم
اخي ياسر الكود يعمل بشكل جيد
مانوع اتصال الانترنيت الذي تستخدمه
المشاركات : 49
المواضيع 13
الإنتساب : Jun 2013
السمعة :
1
الشكر: 36
تم شكره 62 مرات في 17 مشاركات
04-12-16, 09:07 PM
(آخر تعديل لهذه المشاركة : 04-12-16, 09:18 PM {2} بواسطة ياسر عبد الكريم.)
السلام وعليكم
شكراً لك أخي وجزاك الله خيرا
أنا استخدم الاتصال Local Area Connection عن طريق الكيبل
منفذ Ethernet
كيف أحدد نوع هذا الإتصال في الكود بدل "Wi-Fi" ماذا أضع ما هي العبارة التي تعبر عن ذالك الإتصال
يكمن تشرح لي كيف أنا أقوم بتصميم برنامج ينضم إتصال النت على الشبكة المحلية لعدد 10 إجهزة
ملاحضة كمان أخي هذه الأوامر تعمل على إي نظام XP or 7
وعفواً شغلناك معنا أخي جزالك الله ألف خير
ALHUMIDI Soft
المشاركات : 49
المواضيع 13
الإنتساب : Jun 2013
السمعة :
1
الشكر: 36
تم شكره 62 مرات في 17 مشاركات
شكراً أخي على المجهود وجزاك الله ألف خير وعفواً على الأزعاج
بالنسبة للأكواد السابقة والتي تقوم بقطع الإتصال فهي شغالة 100% بس على شبكة Wi-Fi ولاكن لا تعمل على الشبكات من نوع Local Area Connection
جربت الامثلة ولم تعمل ياليت أخي تعدل في الكود لكي يعمل على شبكة Local Area Connection
أما بالنسبة لكود تعديل الايبي فأنه لم يشتغل معي ولاكن أستعنت بأحد المواقع الأجنبية وعملت تعديل بسيط علية وشتغل تمام وغير الأيبي في جميع الأنظمة
وهذه نسخة معدلة من الكود كي تعم الفائدة للجميع
Private Sub Command1_Click()
Text1.Text = "192.186.1.45" ' New IP address
Text2.Text = "255.255.255.0" ' New Mask
Text3.Text = "192.186.1.1" ' New Default gateway
Text4.Text = "cmd.exe /c netsh interface ipv4 set address name=" _
& """" & "Local Area Connection" & """" & " " & " " & "static" & " " & Text1.Text & " " & Text2.Text & " " & Text3.Text
Shell (Text4.Text), vbNormalFocus
End Sub
ويا ليت أخي تعدل بكود قطع الإتصال كي يعمل على الشبكة السلكية
لان با يكون أمر قطع الإتصال أفضل من أمر تغيير الأيبي
وعفواً على الأزعاج أخي
وبارك الله لك ولوالديك وأسكنكم فسيح جناتة أمين يارب
ALHUMIDI Soft
المشاركات : 84
المواضيع 3
الإنتساب : Oct 2013
السمعة :
15
الشكر: 90
تم شكره 271 مرات في 94 مشاركات
امين يارب العالمين وجزاك الله الف خير
اخي مانوع نظام التشغيل لديك .