如何用VB实现修改本机的IP、掩码、网关和DSN？

来源：百度知道 编辑：UC知道 时间：2024/05/10 22:59:18
一个VB窗口中，只有2个按扭。
Command1:设置本地连接属性TCP/IP协议为“自动获取”。
Command2设置本地连接属性TCP/IP协议为：
192.168.1.2（IP）
255.255.255.0（掩码）
192.168.1.1（网关）
202.96.128.166（DSN）
希望是可以直接运行的代码！谢谢

Declare Function GetNetworkParams Lib "iphlpapi.dll" (FixedInfo As Any, pOutBufLen As Long) As Long
Declare Function GetIfTable Lib "iphlpapi.dll" (ByRef pIfTable As MIB_IFTABLE, ByRef pdwSize As Long, _
ByVal bOrder As Long) As Long
Declare Function GetIfEntry Lib "iphlpapi.dll" (pIfRow As MIB_IFROW) As Long

Type MIB_IFROW '保存结果信息
wszName(0 To 511) As Byte '接口名称的Unicode字符串，必须为512字节
dwIndex As Long '接口编号
dwType As Long '接口类型，参看IP_ADAPTER_INFO类型的Type成员
dwMtu As Long '最大传输单元
dwSpeed As Long '接口速度(字节)
dwPhysAddrLen As Long '由bPhysAddr获得的物理地址有效长度
bPhysAddr(0 To 7) As Byte '物理地址
dwAdminStatus As Long '接口管理状态
dwOperStatus As Long '操作状态，以下值之一:
dwLastChange As Long '操作状态最后改变的时