ip地址管理配置工具源码可配置临时路由表

项目名 ＝ 组合框_方案下拉.取项目文本 (组合框_方案下拉.现行选中项)
.如果真 (信息框 (“是否删除： ” ＋ 项目名 ＋ “ ？”, 4, “询问”, 主窗口) ＝ #是钮)
局部_Sql语句 ＝ “DELETE from 信息 WHERE 方案名 = ” ＋ #引号 ＋ 项目名 ＋ #引号
调试输出 (局部_Sql语句)
.如果 (数据库.执行SQL语句 (局部_Sql语句) ＝ 假) ' 执行Sql语句添加信息
信息框 (“删除当前方案失败！错误内容提示:” ＋ #换行符 ＋ 数据库.取错误文本 (), #错误图标, “提示”, )
.否则
信息框 (“成功删除”, #错误图标, “提示”, )
.如果结束

.如果真结束
加载方案 ()

命令 ＝ “netsh interface ip set address name=” ＋ #引号 ＋ 组合框1.取项目文本 (组合框1.现行选中项) ＋ #引号 ＋ “ source=static addr=” ＋ IP编辑框_IP地址.地址 ＋ “ mask=” ＋ IP编辑框_掩码.地址 ＋ “ gateway=” ＋ IP编辑框_网关.地址 ＋ “ gwmetric=0” ＋ #换行符
执行最终 (命令)
.如果真 (IP编辑框_dns.地址 ≠ “”)
命令 ＝ “netsh interface ip set dns ” ＋ #引号 ＋ 组合框1.取项目文本 (组合框1.现行选中项) ＋ #引号 ＋ “ source=static addr=” ＋ IP编辑框_dns.地址 ＋ #换行符
执行最终 (命令)
.如果真结束
.如果真 (IP编辑框_dns.地址 ≠ “”)
命令 ＝ “netsh interface ip add dns ” ＋ #引号 ＋ 组合框1.取项目文本 (组合框1.现行选中项) ＋ #引号 ＋ “ addr=” ＋ IP编辑框_dns1.地址 ＋ #换行符
执行最终 (命令)
.如果真结束
.如果真 (选择框1.选中)
命令 ＝ 编辑框_路由脚本.内容 ＋ #换行符
执行最终 (命令)