系统_修改DNS

陈炳强

之前的命令只能设置首选DNS  这个可以设置自动获取 首选 备用一起设置或者单独设置都可以

  

子程序名	返回值类型	公开	备 注
系统_修改DNS	逻辑型		如果首选DNS跟备用DNS都不填则默认设置成自动获取,成功返回真,失败返回假
参数名	类 型	参考	可空	数组	备 注
连接名称	文本型				为空则自动获取单前连接的网络名称
首选DNS	文本型				格式：1.1.1.1
备用DNS	文本型				格式：1.1.1.1
错误原因	文本型				可以提供一个文本变量,接收当修改失败时的错误信息

变量名	类 型	静态	数组	备 注
DNS命令	文本型
名称	精易_网卡信息		0
名称2	精易_网卡信息_彗星		0
数量	整数型
返回文本	文本型

判断 (连接名称 ＝ “”)
数量 ＝ 系统_取网卡信息 (名称)
判断 (数量 ＞ 0)
连接名称 ＝ 名称 [1].连接名称
数量 ＝ 系统_取网卡信息_彗星版 (名称2)  ' 怕第一个取不到多加一条,也可以只用一条
连接名称 ＝ 名称2 [1].连接名称




判断 (首选DNS ＝ “” 且 备用DNS ＝ “”)
DNS命令 ＝ “cmd /c netsh interface ip set dns name=” ＋ #引号 ＋ 连接名称 ＋ #引号 ＋ “ source=dhcp”
判断 (首选DNS ≠ “” 且 备用DNS ≠ “”)
DNS命令 ＝ “cmd /c netsh interface ip set dns ” ＋ 连接名称 ＋ “ static ” ＋ 首选DNS
返回文本 ＝ 系统_取DOS执行结果 (DNS命令)
如果真 (寻找文本 (返回文本, “确定”, , 假) ＞ 0)
DNS命令 ＝ “cmd /c netsh interface ip add dns name=” ＋ #引号 ＋ 连接名称 ＋ #引号 ＋ “ addr=” ＋ 备用DNS ＋ “ index=2”
返回文本 ＝ 系统_取DOS执行结果 (DNS命令)
如果真 (寻找文本 (返回文本, “确定”, , 假) ＞ 0)
返回 (真)

错误原因 ＝ 子文本替换 (返回文本, #换行符, “”, 倒找文本 (返回文本, #换行符, , 假) － 2, 1, 真)  ' 因为在执行完毕之后,会自动加上一个换行符.这回造成在取错误时候的不便,因此将其去掉
返回 (假)
判断 (首选DNS ＝ “” 且 备用DNS ≠ “”)
DNS命令 ＝ “cmd /c netsh interface ip add dns name=” ＋ #引号 ＋ 连接名称 ＋ #引号 ＋ “ addr=” ＋ 备用DNS ＋ “ index=2”
判断 (首选DNS ≠ “” 且 备用DNS ＝ “”)
DNS命令 ＝ “cmd /c netsh interface ip set dns ” ＋ 连接名称 ＋ “ static ” ＋ 首选DNS



返回文本 ＝ 系统_取DOS执行结果 (DNS命令)
如果真 (寻找文本 (返回文本, “确定”, , 假) ＞ 0)
返回 (真)
错误原因 ＝ 子文本替换 (返回文本, #换行符, “”, 倒找文本 (返回文本, #换行符, , 假) － 2, 1, 真)  ' 因为在执行完毕之后,会自动加上一个换行符.这回造成在取错误时候的不便,因此将其去掉
返回 (假)

.版本 2<br /> <br /> .子程序 系统_修改DNS, 逻辑型, , 如果首选DNS跟备用DNS都不填则默认设置成自动获取,成功返回真,失败返回假<br /> .参数 连接名称, 文本型, 可空, 为空则自动获取单前连接的网络名称<br /> .参数 首选DNS, 文本型, 可空, 格式：1.1.1.1<br /> .参数 备用DNS, 文本型, 可空, 格式：1.1.1.1<br /> .参数 错误原因, 文本型, 参考 可空, 可以提供一个文本变量,接收当修改失败时的错误信息<br /> .局部变量 DNS命令, 文本型<br /> .局部变量 名称, 精易_网卡信息, , "0"<br /> .局部变量 名称2, 精易_网卡信息_彗星, , "0"<br /> .局部变量 数量, 整数型<br /> .局部变量 返回文本, 文本型<br /> <br /> .判断开始 (连接名称 ＝ “”)<br />     数量 ＝ 系统_取网卡信息 (名称)<br />     .判断开始 (数量 ＞ 0)<br />         连接名称 ＝ 名称 [1].连接名称<br />     .默认<br />         数量 ＝ 系统_取网卡信息_彗星版 (名称2)  ' 怕第一个取不到多加一条,也可以只用一条<br />         连接名称 ＝ 名称2 [1].连接名称<br />     .判断结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> .判断开始 (首选DNS ＝ “” 且 备用DNS ＝ “”)<br />     DNS命令 ＝ “cmd /c netsh interface ip set dns name=” ＋ #引号 ＋ 连接名称 ＋ #引号 ＋ “ source=dhcp”<br /> .判断 (首选DNS ≠ “” 且 备用DNS ≠ “”)<br />     DNS命令 ＝ “cmd /c netsh interface ip set dns ” ＋ 连接名称 ＋ “ static ” ＋ 首选DNS<br />     返回文本 ＝ 系统_取DOS执行结果 (DNS命令)<br />     .如果真 (寻找文本 (返回文本, “确定”, , 假) ＞ 0)<br />         DNS命令 ＝ “cmd /c netsh interface ip add dns name=” ＋ #引号 ＋ 连接名称 ＋ #引号 ＋ “ addr=” ＋ 备用DNS ＋ “ index=2”<br />         返回文本 ＝ 系统_取DOS执行结果 (DNS命令)<br />         .如果真 (寻找文本 (返回文本, “确定”, , 假) ＞ 0)<br />             返回 (真)<br />         .如果真结束<br /> <br />     .如果真结束<br />     错误原因 ＝ 子文本替换 (返回文本, #换行符, “”, 倒找文本 (返回文本, #换行符, , 假) － 2, 1, 真)  ' 因为在执行完毕之后,会自动加上一个换行符.这回造成在取错误时候的不便,因此将其去掉<br />     返回 (假)<br /> .判断 (首选DNS ＝ “” 且 备用DNS ≠ “”)<br />     DNS命令 ＝ “cmd /c netsh interface ip add dns name=” ＋ #引号 ＋ 连接名称 ＋ #引号 ＋ “ addr=” ＋ 备用DNS ＋ “ index=2”<br /> .判断 (首选DNS ≠ “” 且 备用DNS ＝ “”)<br />     DNS命令 ＝ “cmd /c netsh interface ip set dns ” ＋ 连接名称 ＋ “ static ” ＋ 首选DNS<br /> .默认<br /> <br /> .判断结束<br /> <br /> 返回文本 ＝ 系统_取DOS执行结果 (DNS命令)<br /> .如果真 (寻找文本 (返回文本, “确定”, , 假) ＞ 0)<br />     返回 (真)<br /> .如果真结束<br /> 错误原因 ＝ 子文本替换 (返回文本, #换行符, “”, 倒找文本 (返回文本, #换行符, , 假) － 2, 1, 真)  ' 因为在执行完毕之后,会自动加上一个换行符.这回造成在取错误时候的不便,因此将其去掉<br /> 返回 (假)

y7072

你还是别把链接名称设为可空。。。 第一个链接名称不一定是对的

gqgshi

感谢分享

独自踏雪

新手学习

独自踏雪

这个看起来要好好学习

Magicsky

你只是引号问题，在某些情况下还会报错    配置的 DNS 服务器不正确或不存在。最后把你源码的命令改为
首选“cmd /c netsh interface ip set dns name=” ＋ #引号 ＋ 连接名称 ＋ #引号 ＋ “  source=static addr=” ＋ 首选DNS ＋ “ register=PRIMARY validate=no”
备选“cmd /c netsh interface ip add dns name=” ＋ #引号 ＋ 连接名称 ＋ #引号 ＋ “ addr=” ＋ 备用DNS ＋ “ validate=no”

Magicsky

这个地方有bug，参数 连接名称 这个地方你在应用的时候应该要加上 #引号 将连接名称框起来，默写系统上这个名称是带空格的，你这里不加就会出现问题，提示找不到元素，我这个搞了我好久，最后下载源码看了才发现

a1131935

项目部004 发表于 2019-10-22 18:06
下期版本发布前优化这个命令，感谢反馈与提供！

发现你有的加了有的没加,就很尴尬,

a1131935

建议把 连接名称 用引号 带进dos 一般碰见文字长的 带空格的链接dos 命令就用不了了哦

momo123

此处应该有鼓励~

YJlanglang

还可以写到批处理，然后运行，也可以达到