在程序中,我修改了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,查得意思为“路径未找到”,哎呀,怎么回事啊?

解决方案 »

  1.   

    http://community.csdn.net/Expert/topic/3717/3717834.xml
      

  2.   

    尚未用过这个函数.GOOGLE也没找到VB版的引用方式,可以参看一下VC代码:http://szcx.com/programme/list.asp?id=25不知AdapterType字串你是怎样赋值的,从上面VC代码来看,用API获得类型后,还用 MultiByteToWideChar进行了编码转换.另外,修改IP地址,试试下面的方法:
    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