طلب مساعده لإنشاء متصفح بـIP وهمي

السلام عليكم

اخي الكريم /اختي الكريمة

يمكنك البحث عن طلبك في منتديات برمجة الانترنت

حيث توجد الامثلة الوافرة

بالتوفيق

جرب هذ االكود

وضعه في تيمر مدته 10 ثواني

        Dim managementClass As New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim mgObjCollection As ManagementObjectCollection = managementClass.GetInstances()

        For Each mgObject As ManagementObject In mgObjCollection
            If Not CType(mgObject("IPEnabled"), Boolean) Then Continue For

            Try
                Dim objNewIP As ManagementBaseObject = Nothing
                Dim objSetIP As ManagementBaseObject = Nothing
                Dim objNewGate As ManagementBaseObject = Nothing

                objNewIP = mgObject.GetMethodParameters("EnableStatic")
                objNewGate = mgObject.GetMethodParameters("SetGateways")

                ' Set the default gateway (decided to declare and initialise
                ' variables rather than attempting to initialize the array
                ' while communicating with the WMI.
                Dim tmpStrArray() As String = {Gateway}

                objNewGate("DefaultIPGateway") = tmpStrArray
                Dim tmpIntArray() As Integer = {1}
                objNewGate("GatewayCostMetric") = tmpIntArray

                ' Set the IP address and subnet.
                tmpStrArray(0) = IPAddress
                objNewIP("IPAddress") = tmpStrArray
                tmpStrArray(0) = SubnetMask
                objNewIP("SubnetMask") = tmpStrArray

                objSetIP = mgObject.InvokeMethod("EnableStatic", objNewIP, Nothing)
                objSetIP = mgObject.InvokeMethod("SetGateways", objNewGate, Nothing)
            Catch ex As Exception
                MessageBox.Show("An error occured: " + ex.Message)
            End Try
        Next