VB设置默认上网网卡

VB设置默认上网网卡
VB获取电脑上网卡的信息，并设置默认上网使用的网卡（电脑上有两块网卡，都可以连外网） --------------------编程问答-------------------- 这是在发布项目外包么?

--------------------编程问答-------------------- 是的，老马你包了吧…… --------------------编程问答-------------------- vb.net里实现很简单。
就给你VB里使用api的代码吧。这是本人写的一个传输软件的部分代码。

Dim Ret As Long, lXH As Long, bByt() As Byte, sIP As String, IPNum As Long
        Dim IPTab As MIB_IPADDRTABLE

        '第一次调用得到size
        Call GetIpAddrTable(ByVal 0, Ret, True)
        If Ret <= 0 Then GoTo ShowErr
        ReDim bByt(Ret - 1) As Byte

        '第二次调用得到IP地址表
        Call GetIpAddrTable(bByt(0), Ret, False)               '得到IP地址表放入上限为ret的字节数组
        Call CopyMemory(IPTab.dEntrys, bByt(0), 4)
        For lXH = 0 To IPTab.dEntrys - 1
                Call CopyMemory(IPTab.IPInfo(lXH), bByt(lXH * Len(IPTab.IPInfo(0)) + 4), Len(IPTab.IPInfo(lXH)))
                sIP = ConvNum2Str(IPTab.IPInfo(lXH).dwAddr)
                        IPNum = IPNum + 1
                        ReDim Preserve SYS_IPlist(IPNum)
                        SYS_IPlist(IPNum) = sIP
                End If
                '"子网掩码 : " & ConvNum2Str(IPTab.IPInfo(lXH).dwMask) & vbCrLf
                '"广播地址 : " & ConvNum2Str(IPTab.IPInfo(lXH).dwBCastAddr) & vbCrLf
        Next

补充：VB ,  网络编程