在VB.Net中传递整个数组

如何解决在VB.Net中传递整个数组

| 我是编程的初学者。我写了一个脚本来使用VB设置DNS设置。我能够设置主地址。 但是，我不知道如何设置辅助地址，因为它将需要使用数组。 如何才能做到这一点？

Dim DNS As String() = {\"192.168.1.1\",\"192.168.1.2\"}

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 objSetIP As ManagementBaseObject = Nothing
        Dim objNewDNS As ManagementBaseObject = Nothing
        objNewDNS = objMO.GetMethodParameters(\"SetDNSServerSearchOrder\")

        \'Set DNS to DHCP
        objNewDNS(\"DNSServerSearchOrder\") = New String() {DNS()}
        objSetIP = objMO.InvokeMethod(\"SetDNSServerSearchOrder\",objNewDNS,Nothing)
        Console.WriteLine(\"Updated IPAddress,SubnetMask and Default Gateway!\")
    Catch ex As Exception
        MessageBox.Show(\"Unable to Set IP : \" & ex.Message)
    End Try
Next objMO

    

解决方法

        在VB.Net中，

Dim

关键字实际上是Dimension的缩写，可用于声明数组。 只需在变量或类型上加上方括号，然后就可以拥有数组了。

Dim arrayOfString As String()

要么

Dim arrayOfString() As String

当然，它要复杂得多。您可能想用预定义数量的元素（假设5）声明数组，假设为4。

Dim arrayOfInt(4) As Int

或者，您可能想为数组分配许多预定义值。

Dim arrayofInt As Int() = {1,2,3,4,5}

您还可以使用此语法，

Dim arrayOfStrings = New String() {\"1.2.3.4\",\"5.6.7.8\"}

例如。你的例子

Dim DNS As String() = {\"192.168.1.1\",\"192.168.1.2\"} 

似乎完全有效。 在您的示例中，您不幸使用了WMI。我看到您想在

\"Win32_NetworkAdapterConfiguration\"

类上调用

\"SetDNSServerSearchOrder\"

方法。

objNewDNS = objMO.GetMethodParameters(\"SetDNSServerSearchOrder\")

将objNewDNS设置为

ManagementBaseObject

，ѭ12是

\"SetDNSServerSearchOrder\"

方法的参数集合。

\"SetDNSServerSearchOrder\"

采用一个称为

\"DNSServerSearchOrder\"

的参数，如此处所述，它恰好是字符串数组。 因此，除非我弄错了，并且假设字符串数组

DNS

是您的搜索顺序，否则您的代码应为：

\'Set DNS to DHCP         
objNewDNS(\"DNSServerSearchOrder\") = DNS 
objMO.InvokeMethod(\"SetDNSServerSearchOrder\",objNewDNS)

请注意，此代码丢弃方法调用的返回值。 编辑： 从您的评论看来，

objMO.InvokeMehtod

调用返回的对象实际上是

ManagementBaseObject

。这包装了被调用方法的\“ returnValue \”。因此，如有必要，类似以下代码的东西将帮助您获得返回值。

\'Set DNS to DHCP         
objNewDNS(\"DNSServerSearchOrder\") = DNS 
Dim oResult As ManagementBaseObject = _
    objMO.InvokeMethod(\"SetDNSServerSearchOrder\",objNewDNS)
Dim result As Integer = CType(oResult[\"returnValue\"],Integer)

因此，您的问题与声明数组的能力无关，而与WMI的乏味接口有关。我想您可能需要再打几次电话才能使控制台输出完全有效，但是希望这对您有所帮助。