السلام عليكم أخواني الأعضاء .
السؤال هو أريد أن أقوم بالإتصال بالإنترنت وقطع الإتصال من داخل برنامجي ولم أجد حل لذالك أرجوكم أفيدوني بحل لهذه المشكلة
قطع الاتصال على النت فقط بدون أن تتأثر الشبكة المحلية بذالك
نعني الشبكة تكون شغالة مشاركة الملفات في الشبكة شغال بس يكون مافي نت لما اعمل قطع إتصال النت من البرنامج يقطع النت فقط وتضل الشبكة شغالة هل يوجد كود او مثال معكم.
وجزاكم الله ألف خير ساعدوني
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , أعتقد أن ذلك غير ممكن إذا تريد تعطيل الإنترنت فقط فهذا فقط يكون من الراوتر أو المودم أو الجهاز الذي يزود الشبكة بالإنترنت .
السلام عليكم
جرب التالي
لقطع الاتصال
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
اتمني الفائدة للجميع .
(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 لم استطيع التعامل معه ولم أجد شروحات كافية له في النت
وجزاك الله كل خير وشكراُ
السلام عليكم
اخي ياسر الكود يعمل بشكل جيد
مانوع اتصال الانترنيت الذي تستخدمه
جرب الكود التالي لتغيير الـــ 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" الي نوع اتصالك .
بالتوفيق .
السلام وعليكم
شكراً لك أخي وجزاك الله خيرا
أنا استخدم الاتصال Local Area Connection عن طريق الكيبل
منفذ Ethernet
كيف أحدد نوع هذا الإتصال في الكود بدل "Wi-Fi" ماذا أضع ما هي العبارة التي تعبر عن ذالك الإتصال
يكمن تشرح لي كيف أنا أقوم بتصميم برنامج ينضم إتصال النت على الشبكة المحلية لعدد 10 إجهزة
ملاحضة كمان أخي هذه الأوامر تعمل على إي نظام XP or 7
وعفواً شغلناك معنا أخي جزالك الله ألف خير
وعليكم السلام ورحمه الله وبركاته
اخي ياسر
انا استخدم وندوز 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
بالتوفيق اخي .
شكراً أخي على المجهود وجزاك الله ألف خير وعفواً على الأزعاج
بالنسبة للأكواد السابقة والتي تقوم بقطع الإتصال فهي شغالة 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
ويا ليت أخي تعدل بكود قطع الإتصال كي يعمل على الشبكة السلكية
لان با يكون أمر قطع الإتصال أفضل من أمر تغيير الأيبي
وعفواً على الأزعاج أخي
وبارك الله لك ولوالديك وأسكنكم فسيح جناتة أمين يارب
امين يارب العالمين وجزاك الله الف خير
اخي مانوع نظام التشغيل لديك .