主题：[求助]项目启动时如何自动切换本机的ip地址？

两块网卡，一块连内网，一块连外网；数据库在内网，日常办公时在外网，如何在启动项目时判断网络，自动切换内外网？？？

呃，你做个批处理不就好了？参考

 

http://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=monline_4_dg&wd=netsh%20interface%20ip&rsv_pq=ac59eed10001977b&rsv_t=0f08IzA5N8OuzCgBGsWyhvW7zXQADvrK6Rxh3vdxRL8y3dG%2BVsABhHBNRbw%2B%2FeEcJPMr&rsv_enter=1&inputT=1254&rsv_sug1=34&rsv_sug3=29&rsv_sug2=0&rsv_sug4=1639

 

 

netsh interface ip set address name="本地连接" gateway=192.168.1.1 gwmetric=0

netsh interface ip set dns name="本地连接" source=static addr=202.102.102.102 register=primary

直接运行cmd命令参考

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("arp -a")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strRst)