ＶＢ６．０编写，仅供研究
乱用出问题别找我．．不过也出不了什么问题．．
呵呵
原理：修改注册表和调用ＩＰＣＯＮＦＩＧ文件更新ＩＰ

源码如下：

'api调用说明
Const REG_SZ As Long = 1
Const HKEY_LOCAL_MACHINE = &H80000002

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
  (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
  ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

'按钮执行程序
Private Sub Command1_Click()
'修改注册表，达到修改ＭＡＣ目的，在只有一张网卡的机器下，注册表的最后子项应该是００００或０００１，这里两个都建立了，就算多了一个，不影响系统运行
  Dim hKey As Long
  RegCreateKey HKEY_LOCAL_MACHINE, "SYSTEM\ControlSet001\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\0001", hKey
  RegSetValueEx hKey, "networkaddress", 0, REG_SZ, ByVal Text1.Text, 100
  RegCloseKey hKey
  RegCreateKey HKEY_LOCAL_MACHINE, "SYSTEM\ControlSet001\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\000", hKey
  RegSetValueEx hKey, "networkaddress", 0, REG_SZ, ByVal Text1.Text, 100
  RegCloseKey hKey
'调用系统ＩＰＣＯＮＦＩＧ文件，先禁用网络连接，再启用以或得新ＩＰ
Dim retval
retval = Shell("C:\WINDOWS\system32\ipconfig.exe /release", 0)
retval = Shell("C:\WINDOWS\system32\ipconfig.exe /renew", 0)
MsgBox "成功更换"

End Sub


[ 此贴被tj.g在2006-09-03 03:15重新编辑 ]

谢谢偶像~

评论说了我想说的,今天要把这个程序研究透~

Quote:

引用第1楼X于2006-09-03 01:51发表的:
谢谢偶像~

评论说了我想说的,今天要把这个程序研究透~

呵呵．你可以把这个工程美化和提高下

我认为可以修改的地方有：
界面
输入限制
读取现有ＭＡＣ
显示ＩＰ
判断当前网卡而不是像我这么懒．．
读取系统变量而不像我使用绝对路径使用ＩＰＣＯＮＦＩＧ文件

Quote:

引用第2楼tj.g于2006-09-03 01:54发表的:

呵呵．你可以把这个工程美化和提高下

我认为可以修改的地方有：
界面
.......

我认为主要功能实现了才是王道~

呵呵~以后换MAC可以省事点了~

从文档里读取MAC功能还是可以实现下的~嘿嘿~

Quote:

引用第2楼tj.g于2006-09-03 01:54发表的:

呵呵．你可以把这个工程美化和提高下

我认为可以修改的地方有：
界面
.......

界面我可以试试，编程就算了~

Quote:

引用第4楼本姓难移于2006-09-03 02:00发表的:

界面我可以试试，编程就算了~

可以啊．．不过要调用ＡＰＩ哦．．你加油

Quote:

引用第3楼X于2006-09-03 02:00发表的:

我认为主要功能实现了才是王道~

呵呵~以后换MAC可以省事点了~

.......

恩．．这个想法不错
马上做给你

Quote:

引用第5楼tj.g于2006-09-03 02:01发表的:

可以啊．．不过要调用ＡＰＩ哦．．你加油

不会，不过要是简单的话可以学一学~

多学点东西不得吃亏的~

内带说明


[ 此贴被tj.g在2006-09-03 02:11重新编辑 ]

Quote:

引用第7楼本姓难移于2006-09-03 02:02发表的:

不会，不过要是简单的话可以学一学~

多学点东西不得吃亏的~

同意．．很简单的，呵呵

Quote:

引用第6楼tj.g于2006-09-03 02:01发表的:


恩．．这个想法不错
马上做给你

还可以写多个ＭＡＣ，选择一个来换．．呵呵
这个你自己来做吧．．我懒得做了

Quote:

引用第8楼tj.g于2006-09-03 02:06发表的:
内带说明

把这个工程给我下

厉害阿，这个软件站有没有阿〉？

Quote:

引用第12楼tod于2006-09-03 02:17发表的:
厉害阿，这个软件站有没有阿〉？

功能不完善,也没测试过,怕有的机器会出错..就不要放上去了

楼主你太洋气了

我是你的FAN