（PC）一键切换网卡ip1.0（VB自制）欢迎指正

dlsmayday · 发表于 2020-12-21 17:38

本帖最后由 dlsmayday 于 2020-12-22 10:37 编辑

该软件为自制，有问题提出来学习学习
主要是好几个办公地方和家里ip老要改，就自己写了一个

1自动获取网卡信息
2ip写完整再点添加方案
3下拉菜单选方案可以点删除
4下拉菜单选择方案+选择网卡可以点应用
5可下拉菜单选网卡点修改为DHCP
大概就这样

2020-12-22编辑： v1.0 有个bug，会导致只能修改名称叫“以太网”的网卡ip，现重新上传v1.1，已修复

一键切换网卡ip1.1.7z (10.16 KB, 下载次数: 2195)

judgecx · 发表于 2020-12-21 21:02

IPSwitcher这个工具也是跟这个一样下载来看看谢谢楼主

dlsmayday · 发表于 2020-12-26 14:28

AlexGong 发表于 2020-12-26 12:25
相见恨晚，以前都是用命令协程bat脚本切换

netsh interface ip set address "以太网" dhcp

没错，就是这个调用
Set objShell = CreateObject("WScript.Shell")
objShell.Run "Netsh interface ip set address Name=" & Combo2.Text & " Source=dhcp", 0
objShell.Run "Netsh interface ip Set Dns Name=" & Combo2.Text & " Source=dhcp", 0

Set objShell = CreateObject("WScript.Shell")
objShell.Run "Netsh interface ip set address Name=" & Combo2.Text & " static " & Text1 & " " & Text2 & " " & Text3 & " ", 0
objShell.Run "Netsh interface ip Set Dns Name=" & Combo2.Text & " static " & Text4 & "", 0
objShell.Run "netsh interface ip add dns Name=" & Combo2.Text & " " & Text5 & "", 0

Netsh interface ip add address “以太网” 就可以加不带网关的内网测试地址了

yoyoma211 · 发表于 2020-12-21 22:05

这个感觉满实用的，下载收藏了先，奥利给

bcllo · 发表于 2020-12-21 23:14

真不戳！实用小工具！

3404071 · 发表于 2020-12-22 04:19

谢谢分享正需要

花木男 · 发表于 2020-12-22 08:17

这个小工具是IT运维人员的福音啊！感谢分享啦~

undola · 发表于 2020-12-22 08:27

再加个代{过}{滤}理设置呗

shimeng0624 · 发表于 2020-12-22 08:36

好东西必须得收藏。你辛苦了。

lilexus · 发表于 2020-12-22 09:55

非常实用的软件啊，家里刚好需要随时切换指定ip地址和网关呢，这个小巧功能实用，谢谢分享。

dlsmayday · 发表于 2020-12-22 10:12

昨晚睡觉，突然想起来有个功能没写完，可能会存在一个小bug。该bug会导致：目前只能修改win10 叫“以太网”的网卡ip，在改了在改了

帐号		自动登录	找回密码
密码			注册[Register]

[原创工具] （PC）一键切换网卡ip1.0（VB自制）欢迎指正

免费评分

本帖被以下淘专辑推荐:

个人中心