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

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









كود :
Imports System.Management
Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Object
Imports System.IO
Imports Microsoft.Win32
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       CType(sender, Control).Capture = False
       WndProc(Message.Create(CType(sender, Control).Handle, 161, 2, 2))
   End Sub

   Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
       CType(sender, Control).Capture = False
       WndProc(Message.Create(CType(sender, Control).Handle, 161, 2, 2))
   End Sub

   Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
       Dim IPAddress As String = "192.168.1.105"
       Dim SubnetMask As String = "255.255.255.0"
       Dim Gateway As String = "192.168.1.100"
       Dim objMC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
       Dim objMOC As ManagementObjectCollection = objMC.GetInstances()
       For Each objMO As ManagementObject In objMOC
           If (Not CBool(objMO("IPEnabled"))) Then
               Continue For
           End If
           Try
               Dim objNewIP As ManagementBaseObject = Nothing
               Dim objSetIP As ManagementBaseObject = Nothing
               Dim objNewGate As ManagementBaseObject = Nothing
               objNewIP = objMO.GetMethodParameters("EnableStatic")
               objNewGate = objMO.GetMethodParameters("SetGateways")
               objNewGate("DefaultIPGateway") = New String() {Gateway}
               objNewGate("GatewayCostMetric") = New Integer() {1}
               objNewIP("IPAddress") = New String() {IPAddress}
               objNewIP("SubnetMask") = New String() {SubnetMask}
               objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)
               objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing)
               MessageBox.Show("Update IP Address, Subnet Mask and Default Gateway!")
           Catch ex As Exception
               MessageBox.Show("Unable to Set IP : " & ex.Message)
           End Try
       Next objMO
   End Sub

   Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
       End
   End Sub

   Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
       Me.WindowState = FormWindowState.Minimized
   End Sub
End Class
الرد
تم الشكر بواسطة: أمجد وضاح
#2
وعليكم السلام ورحمة الله وبركاته
هذا دليل ان ا لكود نجح !
هل عملت release للاي بي؟
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف عمل برنامج تشغل القران الكريم عن طريق النت حاتمي 5 118 15-10-19, 04:38 AM
آخر رد: elgokr
  سؤال حول أفضل طريقة لتصميم برنامج أختيار الأجابة الصحيحة aldery 3 129 14-10-19, 11:18 PM
آخر رد: elgokr
  مشكلة فى المشروع المصمم بفيجوال بيسك 2012 مروان العليانى 4 137 12-10-19, 05:48 PM
آخر رد: elgokr
  [سؤال] كيف تجعل برنامج يتحكم ببرنامج آخر أمجد وضاح 5 245 10-10-19, 04:14 AM
آخر رد: ميدو الفنان
  [VB.NET] مشكلة ظهرت عند التشغيل اسامه الهرماوي 3 91 01-10-19, 02:26 AM
آخر رد: asemshahen5
  [VB.NET] مشكلة ال settings اسامه الهرماوي 1 156 29-09-19, 04:12 PM
آخر رد: اسامه الهرماوي
  مشكلة اختلاف شكل عرض المشروع من جهاز الي جهاز اخر khaled12345 17 11,542 29-09-19, 03:07 PM
آخر رد: nouribenyahia
  مشكلة مع كود البحث محمد ابوخليل 3 119 29-09-19, 02:13 PM
آخر رد: mmali127
  سؤال عن برنامج صندوق استثماري nowiglah 0 69 27-09-19, 02:42 PM
آخر رد: nowiglah
  [VB.NET] مشكلة عند تشغيل البرنامج فى جهاز آخر medosnet 1 101 26-09-19, 02:33 AM
آخر رد: اسامه الهرماوي

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


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