تقييم الموضوع :
  • 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
امين يارب العالمين وجزاك الله الف خير

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف احفظ التقرير باكثر من صيغه مثال ( في ملف PDF و Excel وWord ) في برنامجي المرفق ؟ Microformt 4 360 19-07-20, 03:03 AM
آخر رد: princeofislam
  عملية السحب والافلات في flexgrid( اجراء تعديلعلى مثال ) gonm64 3 396 17-11-19, 02:18 AM
آخر رد: gonm64
  طلب مثال لتتبع حركة المستخدمين مصمم هاوي 4 815 20-01-19, 12:23 AM
آخر رد: مصمم هاوي
  مثال لارسال صورة الى الايميل hsansalhh 9 2,010 10-01-19, 02:04 AM
آخر رد: عبدالله الصافي
  من لديه طريقة او مثال لتحويل الصوره من الفجوال بيسك 6 الى الورد scsi7000 0 615 13-10-18, 09:42 PM
آخر رد: scsi7000
  من لديه طريقة او مثال لتحويل الباركود الدي في الصوره الي تكيت scsi7000 1 848 28-09-18, 01:24 PM
آخر رد: elgokr
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 14 11,669 01-09-18, 03:41 PM
آخر رد: MicroDoha
  مثال لارسال ايميل ويعمل جيداً - واحتاج الى التعديل فى التنسيق Ashraf Elafify 2 739 15-08-18, 12:23 PM
آخر رد: Ashraf Elafify
Question [vb6.0] هل يوجد مثال حول عمل باركود نامل المساعده؟؟ Microformt 2 861 09-07-18, 05:28 PM
آخر رد: Microformt
  احبابى فى الله برجاء المساعدة فى البحث بالكود مرفق مثال mhareek 6 1,088 03-05-18, 02:09 PM
آخر رد: mhareek

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


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