منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] مثال لقطع الإتصال بالإنترنت وإعادة الإتصال (/showthread.php?tid=18233)

الصفحات: 1 2

مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - ياسر عبد الكريم - 03-12-16

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


وجزاكم الله ألف خير ساعدوني

RE: مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - Ahmed_Mansoor - 03-12-16

وعليكم السلام ورحمة الله وبركاته

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

RE: مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - AL_BRNS - 03-12-16

السلام عليكم

جرب التالي

لقطع الاتصال

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

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


RE: مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - ياسر عبد الكريم - 03-12-16

(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 لم استطيع التعامل معه ولم أجد شروحات كافية له في النت

وجزاك الله كل خير وشكراُ

RE: مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - AL_BRNS - 04-12-16

السلام عليكم

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

مانوع اتصال الانترنيت الذي تستخدمه

RE: مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - AL_BRNS - 04-12-16

جرب الكود التالي لتغيير الـــ  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" الي نوع اتصالك  .

بالتوفيق .


RE: مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - ياسر عبد الكريم - 04-12-16

السلام وعليكم

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

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

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


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

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

وعفواً شغلناك معنا أخي جزالك الله ألف خير

RE: مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - AL_BRNS - 05-12-16

وعليكم السلام ورحمه الله وبركاته

اخي ياسر 
انا استخدم وندوز 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 



بالتوفيق اخي .


RE: مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - ياسر عبد الكريم - 05-12-16

شكراً أخي على المجهود وجزاك الله ألف خير وعفواً على الأزعاج

بالنسبة للأكواد السابقة والتي تقوم بقطع الإتصال فهي شغالة 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

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

RE: مثال لقطع الإتصال بالإنترنت وإعادة الإتصال - AL_BRNS - 06-12-16

امين يارب العالمين وجزاك الله الف خير

اخي مانوع نظام التشغيل لديك .