论坛 › 『 作品展览 』 › IP设置工具(支持多网卡，IPX协议修改。)

viplight 发表于 2010-3-22 02:08:46

IP设置工具(支持多网卡，IPX协议修改。)

本帖最后由 viplight 于 2010-3-28 09:31 编辑

修改方式为注册表修改，防止多数软件修改IP后会注销的问题不过修改后要重启机器方能生效

源码免费下载
2010.03.23更新
1.修复内部网络号设置问题
2.增加IP的判断
3.修正了没有网卡时GUI无法显示
2010.03.23 18：03
IP设置工具 10.03.23.1.exe （281.44 KB ）
2010.03.22 更新
1.本次修正了前版本不出现的241变量声明错误的问题（我想可能是我获取网卡ID时候有所问题(*^__^*) 嘻嘻）

2.修正了当网卡为自动不能转为固定的现象（前面那个没有想得那么周全）


2010.03.22 20：48
IP设置工具 10.03.22.2.exe （281.44 KB ）



==============================================================================
2010.03.22 发布
自2010年03月14日开始研究本程序经过了这么多天终于完成了
希望大家帮忙测试，有什么BUG提出，（我是新手在提出BUG的同时也麻烦你提提你的宝贵意见）



2010.03.22 02.08
威盘下载（282.18 KB）

zmj2008 发表于 2010-3-22 03:32:37

运行出错   241 变量没在开始声明

heilulu 发表于 2010-3-22 08:49:20

同上                  :face (13):

viplight 发表于 2010-3-22 11:42:33

:face (3):不会吧，你们用的是XP系统吗？
能截图给我看看吗？郁闷起的啊

mxkor 发表于 2010-3-22 14:20:23

先支持一下 一会试试

mxkor 发表于 2010-3-22 14:54:33

本帖最后由 mxkor 于 2010-3-22 15:07 编辑

首先感谢楼主的分享 顺路附上测试结论+图
1#程序在win7(32bit)下无法执行


2#windowsXP下可以执行，但结果好象有点问题
（1）若原来是用自动IP的，不会转为固定IP模式
   能设网关、DNS，但设不了掩码与IP
（2）INI中设定：机名前缀＝PC，1号IP=M，程序中设定本机编号为N
若N＝1，机名改成PC1，机IP改成.M正确
若N >1，机名改成PCN，机IP改成.N而非M+N-1

mxkor 发表于 2010-3-22 15:09:20

另外，在点确定前，进行一下配置，
有一定机率会修正2＃（2）错误 ＠.＠

另问2个问题
1＃是不是用netsh做的设置？
2＃如何读取网卡数和网卡名？

viplight 发表于 2010-3-22 20:57:26

本帖最后由 viplight 于 2010-3-22 21:16 编辑

回复 6# mxkor


    我这程序是在XP环境下编写的至于其他版本的系统我也没有测试过
我对INI的算法是这样的，当设置了1号IP不为空和0时候将设置为指定的IP （一般网吧的路由IP也就是网关都是192.168.0.1等方便自动更改）
其他的当N>1时，且没有设置IP偏移的话就回事本机编号



语言表达不好大概就是这样（(*^__^*) 嘻嘻）

viplight 发表于 2010-3-22 21:11:13

回复 7# mxkor


    我来回答你的问题，，，
1： 我不是用NETSH做的IP修改（某些软件发现IP变化就会注销，而用这个命令修改的话就会，我用的是注册表）
2：下面这个函数获取到的网卡信息Func _InetIsOffline()
                Return DllCall("url.dll","bool","InetIsOffline","DWORD",0)
EndFunc

;======================================================
;
; 函数名称:      _NetworkAdapterInfo()
; 详细信息:      获得网卡信息
; 返回值说明:
; 以二维数组方式返回.例如 $info=_NetworkAdapterInfo()
; $info=网卡数量
; $info第一块网卡的标志1
; $info第二块网卡的标志2
; $info第一块网卡的网卡名称
; $info第二块网卡的网卡名称
; $info第一块网卡的默认网关
; $info第一块网卡的DNS主机名称(本机名称)
; $info第一块网卡的IP地址
; $info第一块网卡的主DNS
; $info第一块网卡的次DNS
; $info第一块网卡的子网掩码
; $info第一块网卡的MAC地址
; $info第一块网卡的连接名称
; 注意，此UDF不会获取已经禁用的网卡。
; 如果有需要，请删除' WHERE IPEnabled != 0'和' WHERE NetConnectionStatus >0'
; 作者:            thesnow(rundll32@126.com)
;
;======================================================
Func _NetworkAdapterInfo()
        Local $colItems = ""
        Local $objWMIService
        Local $NetworkAdapterID = 0
        Local $NetworkAdapterName = ""
        Local $NetworkAdapterGateway = ""
        Local $NetworkAdapterHostName = ""
        Local $NetworkAdapterIPaddress = ""
        Local $NetworkAdapterDNS1 = ""
        Local $NetworkAdapterDNS2 = ""
        Local $NetworkAdapterSubnet = ""
        Local $NetworkAdapterMAC = ""
        Local $NetworkAdapterNetConnectionID = ""
        Local $NetworkAdapterInfo ;最高10块网卡.
        $NetworkAdapterInfo = 0
        $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled != 0", "WQL", 0x10 + 0x20)
        $colItem2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionStatus >0', "WQL", 0x10 + 0x20)
        If IsObj($colItems) Then
                For $objItem In $colItems
                        $NetworkAdapterName = $objItem.Description
                        $NetworkAdapterGateway = $objItem.DefaultIPGateway(0)
                        $NetworkAdapterHostName = $objItem.DNSHostName
                        $NetworkAdapterIPaddress = $objItem.IPAddress(0)
                        $NetworkAdapterDNS1 = $objItem.DNSServerSearchOrder(0)
                        $NetworkAdapterDNS2 = $objItem.DNSServerSearchOrder(1)
                        $NetworkAdapterSubnet = $objItem.IPSubnet(0)
                        $NetworkAdapterMAC = $objItem.MACAddress
                        $NetworkAdapterID += 1
                        $NetworkAdapterInfo = $NetworkAdapterID
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterID
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterName
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterGateway
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterHostName
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterIPaddress
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterDNS1
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterDNS2
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterSubnet
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterMAC
                Next
        Else
                Return $NetworkAdapterInfo
        EndIf

        If IsObj($colItem2) Then
                $NetworkAdapterID = 0
                For $objItem2s In $colItem2
                        $NetworkAdapterNetConnectionID = $objItem2s.NetConnectionID
                        $NetworkAdapterID += 1
                        $NetworkAdapterInfo[$NetworkAdapterID] = $NetworkAdapterNetConnectionID
                Next
                Return $NetworkAdapterInfo
        Else
                Return $NetworkAdapterInfo
        EndIf
EndFunc   ;==>_NetworkAdapterInfo

hlywhp 发表于 2010-3-28 15:21:32

最好能加上反恐序号啊

pchome2000 发表于 2010-3-29 13:52:11

学习一下先。。。。。。。。。。。。。。。

yikang8888 发表于 2010-12-17 15:57:59

{:face (382):}学习学习

ljf840212 发表于 2011-3-29 14:51:50

支持~不错的东西{:face (411):}{:face (258):}

pingfan5888 发表于 2012-5-24 15:44:29

看看不错的样子。

shandongdong 发表于 2013-10-9 10:38:15

mark
感谢楼主分享

查看完整版本: IP设置工具(支持多网卡，IPX协议修改。)