تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مثال لقطع الإتصال بالإنترنت وإعادة الإتصال
#1
Lightbulb 
السلام عليكم أخواني الأعضاء .
السؤال هو أريد أن أقوم بالإتصال بالإنترنت وقطع الإتصال من داخل برنامجي ولم أجد حل لذالك أرجوكم أفيدوني بحل لهذه المشكلة
قطع الاتصال على النت فقط بدون أن تتأثر الشبكة المحلية بذالك
نعني الشبكة تكون شغالة مشاركة الملفات في الشبكة شغال بس يكون مافي نت لما اعمل قطع إتصال النت من البرنامج يقطع النت فقط وتضل الشبكة شغالة هل يوجد كود او مثال معكم.


وجزاكم الله ألف خير ساعدوني
ALHUMIDI Soft
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , أعتقد أن ذلك غير ممكن إذا تريد تعطيل الإنترنت فقط فهذا فقط يكون من الراوتر أو المودم أو الجهاز الذي يزود الشبكة بالإنترنت .
الرد }}}
#3
السلام عليكم

جرب التالي

لقطع الاتصال

PHP كود :
Private Sub Command1_Click()
Shell ("cmd.exe /c ipconfig/release"), vbHide
End Sub 

للاتصال

PHP كود :
Private Sub Command2_Click()
Shell ("cmd.exe /c ipconfig/renew"), vbHide
End Sub 

ويمكن استعمال هذا الكود ايضاً لتغيير الــ IP

اتمني الفائدة للجميع .
الرد }}}
تم الشكر بواسطة: ياسر عبد الكريم , Ahmed_Mansoor , Ahmed_Mansoor
#4
(03-12-16, 08:51 PM)AL_BRNS كتب : السلام عليكم

جرب التالي

لقطع الاتصال

PHP كود :
Private Sub Command1_Click()
Shell ("cmd.exe /c ipconfig/release"), vbHide
End Sub 

للاتصال

PHP كود :
Private Sub Command2_Click()
Shell ("cmd.exe /c ipconfig/renew"), vbHide
End Sub 

ويمكن استعمال هذا الكود ايضاً لتغيير الــ IP

اتمني الفائدة للجميع .

شكراَ جزيلاً أخي البرنس جزاك الله ألف خير

بس أخي جربت الاوامر ولم تعمل لم تقوم بعملها
جربت امر قطع الإتصال ولم يعمل يمكن تشوف الكود وتجربة
ويا ليت كمان تشرح لي طرقية تغيير IP إذا لم ينجح امر قطع الإتصال يمكن عن طريق الامر هذا نغير IP الروتر من Default Gateway
إذا أستطعنا تغيير هذا الـIP نستطيع قطع النت على الجهاز من دون قطع الإتصال بالشبكة حاولت أنا أمس تغيير الـIP عن طريق هذا الامر من مواجهة الأوامر ولم يكن لي خبرة في بناء جملة تغيير الـIP لم استطيع التعامل معه ولم أجد شروحات كافية له في النت

وجزاك الله كل خير وشكراُ
ALHUMIDI Soft
الرد }}}
تم الشكر بواسطة: AL_BRNS
#5
السلام عليكم

اخي ياسر الكود يعمل بشكل جيد

مانوع اتصال الانترنيت الذي تستخدمه
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , ياسر عبد الكريم
#6
جرب الكود التالي لتغيير الـــ  IP

PHP كود :
Private Sub Command7_Click()
Text1.Text "192.168.3.8" ' New IP address
Text2.Text = "255.255.255.0" ' 
New Mask
Text3
.Text "192.168.3.1" ' New Default gateway
Shell ("cmd.exe /c netsh interface ipv4 set address name=") & _
"Wi-Fi" & " " & " " & ("static" & " " & Text1.Text & " " & Text2.Text & " " & Text3.Text), vbHide
End Sub 

ان لم تكن متصل بشبكة Wi-Fi  فقم بتغيير "Wi-Fi" الي نوع اتصالك  .

بالتوفيق .
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , ياسر عبد الكريم
#7
السلام وعليكم

شكراً لك أخي وجزاك الله خيرا

 أنا استخدم الاتصال Local Area Connection عن طريق الكيبل
منفذ Ethernet

كيف أحدد نوع هذا الإتصال في الكود بدل "Wi-Fi" ماذا أضع ما هي العبارة التي تعبر عن ذالك الإتصال


يكمن تشرح لي كيف أنا أقوم بتصميم برنامج ينضم إتصال النت على الشبكة المحلية لعدد 10 إجهزة

ملاحضة كمان أخي هذه الأوامر تعمل على إي نظام XP or 7

وعفواً شغلناك معنا أخي جزالك الله ألف خير
ALHUMIDI Soft
الرد }}}
تم الشكر بواسطة:
#8
وعليكم السلام ورحمه الله وبركاته

اخي ياسر 
انا استخدم وندوز 8
وهده الاكواد تعمل عندي بشكل ممتاز
انا لست خبير في الشبكات او في الفيجوال بيسك بل مجرد هاوي  احاول ان افيد واستفيد
انصحك اولا بالبحث عن شرح لعمل برنامجك وعند الحاجة الي اي مساعدة فأنا واعضاء هذا المنتدي الراقي والمحترم لن نبخل عليك باي معلومة بقدر المستطاع
بالنسبة لنوع اتصالك اعتقد سيصبح الكود كالتالي

PHP كود :
Private Sub Command7_Click()
Text1.Text "192.168.3.8" ' New IP address
Text2.Text = "255.255.255.0" ' 
New Mask
Text3
.Text "192.168.3.1" ' New Default gateway
Shell ("cmd.exe /c netsh interface ipv4 set address name=") & _
"Local Area Connection" & " " & " " & ("static" & " " & Text1.Text & " " & Text2.Text & " " & Text3.Text), vbHide
End Sub 



بالتوفيق اخي .
الرد }}}
تم الشكر بواسطة: ياسر عبد الكريم
#9
شكراً أخي على المجهود وجزاك الله ألف خير وعفواً على الأزعاج

بالنسبة للأكواد السابقة والتي تقوم بقطع الإتصال فهي شغالة 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
الرد }}}
تم الشكر بواسطة: AL_BRNS
#10
امين يارب العالمين وجزاك الله الف خير

اخي مانوع نظام التشغيل لديك .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد طريقه او مثال ...للطباعة من الجهتين في الاكتيف ريبورت scsi7000 4 433 02-11-23, 11:06 PM
آخر رد: Microformt
  [vb6.0] هل يوجد مثال لاعداد جداول الاوقات المدرسي 2003amin 0 190 15-08-23, 01:11 PM
آخر رد: 2003amin
  محتاج مثال لتحويل (QR barcode) الي نص scsi7000 2 318 04-08-23, 09:19 AM
آخر رد: scsi7000
  [vb6.0] من لديه طريقه مثال او كود لارسال ملف من vb6 الي WhatsApp scsi7000 2 1,693 21-11-21, 05:45 PM
آخر رد: mona82
Question [سؤال] امل المساعده في مثال التعامل مع المخزون allayl 10 4,363 05-11-21, 05:52 PM
آخر رد: Abdellah
  [سؤال] أريد النصيحة بخصوص الإتصال بقاعدة البيانات hamada salah90 2 1,205 16-09-21, 01:13 PM
آخر رد: hamada salah90
Question [vb6.0] كيف انشي لبرنامجي المرفق تصفح سجلات مثال الذي في الصوره ؟؟ Microformt 3 1,347 24-05-21, 10:01 AM
آخر رد: Ahmed_Mansoor
  احناج مثال لكيفية استيراد بيانات من ملف اكسيل الى قاعدة البيانات عن طريق الفيجوال amro1965 0 1,454 19-01-21, 06:22 PM
آخر رد: amro1965
Question هل يمكن مثال يظهر رقم التدرج الولي لي أي صورة ؟؟ Microformt 0 952 21-11-20, 04:50 PM
آخر رد: Microformt
  [vb6.0] كيف احفظ التقرير باكثر من صيغه مثال ( في ملف PDF و Excel وWord ) في برنامجي المرفق ؟ Microformt 4 2,255 19-07-20, 03:03 AM
آخر رد: princeofislam

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


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