[fouadhdfouad]

(07-09-19, 10:47 PM)aldery كتب : السلام عليكم : كيفكم إن شاء الله تكونو بخير يارب .

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

وجدت لك هدا الكود انا لم اجربه

كود :

Imports System.Management
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim IPAddress As String = "192.168.1.105"
       Dim SubnetMask As String = "255.255.252.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")

               'Set DefaultGateway
               objNewGate("DefaultIPGateway") = New String() {Gateway}
               objNewGate("GatewayCostMetric") = New Integer() {1}

               'Set IPAddress and Subnet Mask
               objNewIP("IPAddress") = New String() {IPAddress}
               objNewIP("SubnetMask") = New String() {SubnetMask}

               objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)
               objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing)

               'Changed this line so I could see if it was executing all of the way
               MessageBox.Show("Updated IPAddress, SubnetMask and Default Gateway!")

           Catch ex As Exception
               MessageBox.Show("Unable to Set IP : " & ex.Message)
           End Try
       Next objMO
   End Sub
End Class