在程序中,我修改了IP地址,用下面的函数可使IP地址马上生效:AdapterType = 适配器类型 & chr(0) & chr(0) 'string
AdapterIP = "???.???.?.??" & chr(0) & chr(0) 'string
AdapterSubnetMask = "???.???.???.?" & chr(0) & chr(0) 'stringMsgBox DhcpNotifyConfigChange(StrPtr(vbNullString), StrPtr(AdapterType), True, 0, inet_addr(AdapterIP), inet_addr(AdapterSubnetMask), 0)上面代码的返回值为2,查得意思为“路径未找到”,哎呀,怎么回事啊?
AdapterIP = "???.???.?.??" & chr(0) & chr(0) 'string
AdapterSubnetMask = "???.???.???.?" & chr(0) & chr(0) 'stringMsgBox DhcpNotifyConfigChange(StrPtr(vbNullString), StrPtr(AdapterType), True, 0, inet_addr(AdapterIP), inet_addr(AdapterSubnetMask), 0)上面代码的返回值为2,查得意思为“路径未找到”,哎呀,怎么回事啊?
Shell Environ("windir") & "\system32\netsh.exe interface ip set address ""本地连接"" static 192.168.0.100 255.255.255.0 192.168.0.1 1", vbHide '为计算机的“本地连接”指定一个静态的IP地址:192.168.0.100,设置其子网掩码为255.255.255.0,并指定默认网关为192.168.0.1