找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › netsh 设置多网卡问题 【已解决】
12下一页
返回列表 发新帖
查看: 6317|回复: 16

[AU3基础] netsh 设置多网卡问题 【已解决】

[复制链接]
qw5838132
发表于 2020-3-22 16:52:44 | 显示全部楼层 |阅读模式
本帖最后由 qw5838132 于 2020-3-24 16:18 编辑

做一个设置多网卡的工具，现在单网卡没有问题，但是加多一张网卡的时候就只能设置新加的网卡，原网卡没反应了，把新网卡拆了，原网卡又能设置了，论坛上找了好多帖子都解决不了，来求救大神们了
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants。 au3>
#include <ComboConstants.au3>
#include <GuiStatusBar.au3>
#Include <Array.au3>
#Region ### START Koda GUI部分### Form =
Global Const $ aArray = GetAdapterProperty（）
$ Form1 = GUICreate（ “ Form1”，615,438、192、124）
$ Button1 = GUICtrlCreateButton（“确定”，
440，328，75，25 ）$ IPAddress1 = _GUICtrlIpAddress_Create（$ Form1、96、128、130、21）; 80
_GUICtrlIpAddress_Set（$ IPAddress1，“ 192.168.0.0”）
$ IPAddress2 = _GUICtrlIpAddress_Create（$ Form1，96，176，130，21）; 128
_GUICtrlIpAddress_Set（$ IPAddress2，“ 255.255.255.0”）
$ IPAddress3 = _GUICtrlIpAddress_Create（$ Form1,96，224，130，21）; 176
_GUICtrlIpAddress_Set（$ IPAddress3，“ 192.168.0.0”）
$ IPAddress4 = _GUICtrlIpAddress_Create（$ Form1，96，264，130，21）; 224
_GUICtrlIpAddress_Set（$ IPAddress4，“ 192.168.0.1”）
$ IPAddress5 = _GUICtrlIpAddress_Create（$ Form1,96，304，130 ，21）; 264
_GUICtrlIpAddress_Set（$ IPAddress5，“ 192.168.0.2”）

$ Combo1 = GUICtrlCreateCombo（“请拖动选择网卡”，25，90，280，25，BitOR（$ CBS_DROPDOWNLIST，$ CBS_AUTOHSCROLL））
$ aaa = _ArrayToString（ $ aArray）
; _ArrayDisplay（$ aArray）
GUICtrlSetData（$ Combo1，$ aaa）

GUISetState（@SW_SHOW）
#EndRegion ### END Koda GUI部分###

While 1
         $ nMsg = GUIGetMsg（）
         开关$ nMsg
                   Case $ GUI_EVENT_CLOSE
                            退出
       案例$ Button1
                       $ ipset = GUICtrlRead（$ Combo1）
                            $ ip = _GUICtrlIpAddress_Get（$ IPAddress1）
                            $ ym = _GUICtrlIpAddress_Get （$ IPAddress2）
                            $ wg = _GUICtrlIpAddress_Get（$ IPAddress3）
                            $ dns = _GUICtrlIpAddress_Get（$ IPAddress4）
                            $ dns1 = _GUICtrlIpAddress_Get（$ IPAddress5）
                            ; MsgBox（64，“ ok”，$ ip）
                            ; MsgBox（64，“ ok”，$ ipset）
                            RunWait（@ ComSpec＆'/ c netsh接口ip设置地址'＆$ ipset＆'static'＆“”＆$ ip＆“”＆$ ym＆“”＆$ wg＆ “”＆'gwmetric = 1'，``@SW_HIDE）
                            RunWait（'netshinterface ip set dns name ='＆$ ipset＆'source = static addr ='＆$ dns＆'register = PRIMARY'，“ c：\ windows \ system32“，@SW_HIDE）
                            RunWait（'netshinterface ip add dns name ='＆$ ipset＆'addr ='＆$ dns1＆'index = 2'，” c：\ windows \ system32“，@ SW_HIDE）
                            ; MsgBox（64 ，”ok“，$ ipset）

         EndSwitch
WEnd

Func GetAdapterProperty（）
       本地$ objShare
       本地$ objEveryColl
        $ objShare = ObjCreate（“ HNetCfg.HNetShare.1”）
       如果不是IsObj（$ objShare），则返回
       $ objEveryColl = $ objShare.EnumEveryConnection
       如果不是IsObj（$ objEveryColl），然后返回
       本地$ objNetConn，$ objShareCfg，$ objNCProps，$ str
       本地$ aProps [0] [5]
       对于$ objNetConn在$ objEveryColl
                $ objShareCfg = $ objShare.INetSharingConfigurationForINetConnection（$ objNetConn）
                如果IsObj（$ objShareCfg）然后
                        $ objNCProps = $ objShare.NetConnectionProps（$ objNetConn）
                        如果IsObj（$ objNCProps）然后
                                ReDim $ aProps [UBound（$ aProps）+1] [2]
                                $ aProps [UBound（$ aProps）-1] [0] = $ objNCProps.Name
                        EndIf
                EndIf
       Next
       返回$ aProps
EndFunc; ==> GetAdapterProperty

回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
229989799
发表于 2020-3-22 16:57:46 | 显示全部楼层
为何不搜素一下
https://www.autoitx.com/thread-56350-1-1.html
回复

举报

zghwelcome
发表于 2020-3-22 17:27:16 | 显示全部楼层
看上去是命令行写的有问题

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <ComboConstants.au3>
#include <GuiStatusBar.au3>
#include <Array.au3>
#Region ### START Koda GUI section ###Form=
Global Const $aArray = GetAdapterProperty()
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Button1 = GUICtrlCreateButton("确定", 440, 328, 75, 25)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 96, 128, 130, 21) ;80
_GUICtrlIpAddress_Set($IPAddress1, "192.168.0.0")
$IPAddress2 = _GUICtrlIpAddress_Create($Form1, 96, 176, 130, 21) ;128
_GUICtrlIpAddress_Set($IPAddress2, "255.255.255.0")
$IPAddress3 = _GUICtrlIpAddress_Create($Form1, 96, 224, 130, 21) ;176
_GUICtrlIpAddress_Set($IPAddress3, "192.168.0.0")
$IPAddress4 = _GUICtrlIpAddress_Create($Form1, 96, 264, 130, 21) ;224
_GUICtrlIpAddress_Set($IPAddress4, "192.168.0.1")
$IPAddress5 = _GUICtrlIpAddress_Create($Form1, 96, 304, 130, 21) ;264
_GUICtrlIpAddress_Set($IPAddress5, "192.168.0.2")

$Combo1 = GUICtrlCreateCombo("请下拉选择网卡", 25, 90, 280, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
$aaa = _ArrayToString($aArray)
;_ArrayDisplay($aArray)
GUICtrlSetData($Combo1, $aaa)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        $ipset = GUICtrlRead($Combo1)
                        $ip = _GUICtrlIpAddress_Get($IPAddress1)
                        $ym = _GUICtrlIpAddress_Get($IPAddress2)
                        $wg = _GUICtrlIpAddress_Get($IPAddress3)
                        $dns = _GUICtrlIpAddress_Get($IPAddress4)
                        $dns1 = _GUICtrlIpAddress_Get($IPAddress5)
                        ;MsgBox(64,"ok",$ip)
                        ;MsgBox(64,"ok",$ipset)
                        RunWait(@ComSpec & ' /c netsh interface ip set address "' & $ipset & '" static' & " " & $ip & " " & $ym & " " & $wg & " " & 'gwmetric=1', '', @SW_HIDE)
                        RunWait('netsh interface ip set dns name = "' & $ipset & '" source = static addr = ' & $dns & ' register = PRIMARY', "c:\windows\system32", @SW_HIDE)
                        RunWait('netsh interface ip add dns name = "' & $ipset & '" addr = ' & $dns1 & ' index=2', "c:\windows\system32", @SW_HIDE)
                        ;MsgBox(64,"ok",$ipset)

        EndSwitch
WEnd

Func GetAdapterProperty()
        Local $objShare
        Local $objEveryColl
        $objShare = ObjCreate("HNetCfg.HNetShare.1")
        If Not IsObj($objShare) Then Return
        $objEveryColl = $objShare.EnumEveryConnection
        If Not IsObj($objEveryColl) Then Return
        Local $objNetConn, $objShareCfg, $objNCProps, $str
        Local $aProps[0][5]
        For $objNetConn In $objEveryColl
                $objShareCfg = $objShare.INetSharingConfigurationForINetConnection($objNetConn)
                If IsObj($objShareCfg) Then
                        $objNCProps = $objShare.NetConnectionProps($objNetConn)
                        If IsObj($objNCProps) Then
                                ReDim $aProps[UBound($aProps) + 1][2]
                                $aProps[UBound($aProps) - 1][0] = $objNCProps.Name
                        EndIf
                EndIf
        Next
        Return $aProps
EndFunc   ;==>GetAdapterProperty

回复

举报

qw5838132
 楼主| 发表于 2020-3-22 17:38:53 | 显示全部楼层
zghwelcome 发表于 2020-3-22 17:27
看上去是命令行写的有问题
[au3]
#RequireAdmin

不知道哪里出问题了，能帮忙看一下吗
回复

举报

qw5838132
 楼主| 发表于 2020-3-22 17:39:41 | 显示全部楼层
229989799 发表于 2020-3-22 16:57
为何不搜素一下
https://www.autoitx.com/thread-56350-1-1.html

我是个新手，这个代码我有看过，太费劲了，看不太明白
回复

举报

zghwelcome
发表于 2020-3-22 17:59:41 | 显示全部楼层
qw5838132 发表于 2020-3-22 17:39
我是个新手，这个代码我有看过，太费劲了，看不太明白

改过了，还有问题吗
回复

举报

qw5838132
 楼主| 发表于 2020-3-22 18:38:51 | 显示全部楼层
zghwelcome 发表于 2020-3-22 17:59
改过了，还有问题吗

还是只能修改新加的网卡，原网卡没反应
回复

举报

xyx115
发表于 2020-3-23 17:01:42 | 显示全部楼层
首先需要识别所有网卡，然后在具体操作的时候，可以使用netsh或者wmic或者api修改ip。具体的网上都有教程。重点：1.网卡识别；2.全面的可靠的彻底的IP修改；3.输入的ip的验证和设置完成后的状态检查。4.UI编写，让基本操作可视化。没有什么困难的。把你的1个问题分解成若干个具体的问题。哪些问题可以查资料解决，哪些问题解决不了。修改ip不论是批处理还是AU3，写起来都没有难度。
回复

举报

xyx115
发表于 2020-3-23 17:25:06 | 显示全部楼层
看了一下，你这边的几个问题。
1.你获取的网卡列表过于简单，无法知道哪个网卡是虚拟的还是物理的。不知道mac地址、index、网卡名称，ip、dns等信息。只知道连接名称。不便于你后续的检查和操作。而且也不便于用户选择正确的网卡。
建议：重新使用恰当的网卡列表获取UDF。并应用获取到的这些参数，助力你后面的程序使用或者用户辨识。
2.修改ip地址是系统重要操作。需要加入UAC权限（提权）
3.一个runwait你用出了两种技术。建议再参考一下。另外我场景写过一个获取回显的批处理udf。建议使用这样的，方便分析回现结果。
4.仔细分析了你的修改ip的代码，并且和我以前写的做了对比，实际命令基本没有区别。
5.综上，目前你只需要加个管理员权限，就可以了。为方便查看执行结果，建议用我写的udf。为方便用户查看和选择，建议强化ui


netsh interface ip set address "以太网" static 192.168.0.0 255.255.255.0 192.168.0.0 gwmetric=1
netsh interface ip set dns name = "以太网" source = static addr = 192.168.0.1 register = PRIMARY
netsh interface ip add dns name = "以太网" addr = 192.168.0.2 index=2


rem 修改IP地址，子网掩码，默认网关
Netsh interface IP set Address "以太网" Static !ip! !子网掩码! !默认网关! 1 >nul 2>nul
rem 修改首选DNS
Netsh interface IP set dns "以太网" static !首选DNS! primary >nul 2>nul
rem 修改备用DNS
Netsh interface IP add dns "以太网" !备用DNS! >nul 2>nul
回复

举报

xyx115
发表于 2020-3-23 17:32:47 | 显示全部楼层
附件是我去年随手写的一个简易的ip修改工具。使用没有任何问题，唯一的缺陷就是DHCP后，不会再去获取新的ip并显示到界面上，需要关闭程序重新打开。

支持手动输入ip，dhcp。
修改ip地址时操作完整，不会遗漏。
在使用VPN等软件，导致ip地址配置异常（例如ip正常，dns不正常等，有奇效。可正确清除）
供参考。

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

qw5838132
 楼主| 发表于 2020-3-24 09:57:36 | 显示全部楼层
xyx115 发表于 2020-3-23 17:25
看了一下，你这边的几个问题。
1.你获取的网卡列表过于简单，无法知道哪个网卡是虚拟的还是物理的。不知道 ...

我做的这个工具是我自己用的，不是给别人用的，平时经常用到修改IP，我的想法是尽量精简，不要太多的按钮，不需要太多的功能，UI是我随便乱建的，成品不是这样的，这个udf是h版主发出来的，其实还可以设别很多功能，我给精简掉了
回复

举报

qw5838132
 楼主| 发表于 2020-3-24 10:13:26 | 显示全部楼层
xyx115 发表于 2020-3-23 17:01
首先需要识别所有网卡，然后在具体操作的时候，可以使用netsh或者wmic或者api修改ip。具体的网上都有教程。 ...

测试的时候发现netsh interface ip set address name = "本地连接 5" source = static address = 192.168.1.1 mask = 255.255.255.0 gateway = 192.168.1.2 gwmetric = 1  这样run 是没问题的，所有有个想法，把他建成一个文本，再读取出来然后再run  但是测试后又发现，只要是中文名字的网卡，写入到文本就会换行，这个怎么解决呢，能帮忙测试一下吗，我把代码发出来
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <ComboConstants.au3>
#include <GuiStatusBar.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>

#Region ### START Koda GUI section ###Form=
Global Const $aArray = GetAdapterProperty()
$wenjian = @ScriptDir & "\ceshi.txt"    ;新建文本到当前脚本位置
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Button1 = GUICtrlCreateButton("确定", 440, 328, 75, 25)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 96, 128, 130, 21) ;80
_GUICtrlIpAddress_Set($IPAddress1, "192.168.0.0")
$IPAddress2 = _GUICtrlIpAddress_Create($Form1, 96, 176, 130, 21) ;128
_GUICtrlIpAddress_Set($IPAddress2, "255.255.255.0")
$IPAddress3 = _GUICtrlIpAddress_Create($Form1, 96, 224, 130, 21) ;176
_GUICtrlIpAddress_Set($IPAddress3, "192.168.0.0")
$IPAddress4 = _GUICtrlIpAddress_Create($Form1, 96, 264, 130, 21) ;224
_GUICtrlIpAddress_Set($IPAddress4, "192.168.0.1")
$IPAddress5 = _GUICtrlIpAddress_Create($Form1, 96, 304, 130, 21) ;264
_GUICtrlIpAddress_Set($IPAddress5, "192.168.0.2")

$Combo1 = GUICtrlCreateCombo("请下拉选择网卡", 25, 90, 280, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
$aaa = _ArrayToString($aArray)
;_ArrayDisplay($aArray)
GUICtrlSetData($Combo1, $aaa)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        $ipset = GUICtrlRead($Combo1)
                        $ip = _GUICtrlIpAddress_Get($IPAddress1)
                        $ym = _GUICtrlIpAddress_Get($IPAddress2)
                        $wg = _GUICtrlIpAddress_Get($IPAddress3)
                        $dns = _GUICtrlIpAddress_Get($IPAddress4)
                        $dns1 = _GUICtrlIpAddress_Get($IPAddress5)
                        ;MsgBox(64,"ok",$ip)
                        ;MsgBox(64,"ok",$ipset)
                                                If FileExists($wenjian) = 0 Then
                                                IniWrite($wenjian, "ni", "hao","netsh interface ip set address name = """& $ipset& """ source = static address = "& $ip &" mask = "& $ym &" gateway = "& $wg &" gwmetric = 1")
                                                ;IniWrite($wenjian, "ni", "hao", "netsh interface ipv4 set address name = & $ipset&  source = static address = & $ip & mask = & $ym & gateway = & $wg & gwmetric = 1")
                                                Local $sRead = IniRead($wenjian, "ni", "hao", "Default Value")       
                                                MsgBox($MB_SYSTEMMODAL, "", "字段是 " & $sRead)
                                                ;FileDelete($wenjian)
                                                EndIf
                                                ;MsgBox($MB_SYSTEMMODAL, "", "字段是1 " & $sRead)
                        ;RunWait(@ComSpec & ' /c netsh interface ip set address "' & $sRead & '" static' & " " & $ip & " " & $ym & " " & $wg & " " & 'gwmetric=1', '', @SW_HIDE)
                        RunWait('netsh interface ip set dns name = "' & $ipset & '" source = static addr = ' & $dns & ' register = PRIMARY', "c:\windows\system32", @SW_HIDE)
                        RunWait('netsh interface ip add dns name = "' & $ipset & '" addr = ' & $dns1 & ' index=2', "c:\windows\system32", @SW_HIDE)
                        ;MsgBox(64,"ok",$ipset)

        EndSwitch
WEnd

Func GetAdapterProperty()
        Local $objShare
        Local $objEveryColl
        $objShare = ObjCreate("HNetCfg.HNetShare.1")
        If Not IsObj($objShare) Then Return
        $objEveryColl = $objShare.EnumEveryConnection
        If Not IsObj($objEveryColl) Then Return
        Local $objNetConn, $objShareCfg, $objNCProps, $str
        Local $aProps[0][5]
        For $objNetConn In $objEveryColl
                $objShareCfg = $objShare.INetSharingConfigurationForINetConnection($objNetConn)
                If IsObj($objShareCfg) Then
                        $objNCProps = $objShare.NetConnectionProps($objNetConn)
                        If IsObj($objNCProps) Then
                                ReDim $aProps[UBound($aProps) + 1][2]
                                $aProps[UBound($aProps) - 1][0] = $objNCProps.Name
                        EndIf
                EndIf
        Next
        Return $aProps
EndFunc   ;==>GetAdapterProperty
回复

举报

qw5838132
 楼主| 发表于 2020-3-24 10:17:14 | 显示全部楼层
xyx115 发表于 2020-3-23 17:01
首先需要识别所有网卡，然后在具体操作的时候，可以使用netsh或者wmic或者api修改ip。具体的网上都有教程。 ...

应该是跟编码有问题，英文名字的网卡是识别在一行，中文名字的就会换行出现
回复

举报

floor6ggg
发表于 2020-3-24 11:51:38 | 显示全部楼层
本帖最后由 floor6ggg 于 2020-3-24 11:56 编辑

试试：
$ipset = StringStripWS(GUICtrlRead($Combo1),1)
应该是在第43行的代码，

回复

举报

floor6ggg
发表于 2020-3-24 11:52:49 | 显示全部楼层
直接删除行首的换行符
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-16 09:01 , Processed in 0.077331 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表