本帖最后由 lin6051 于 2017-3-20 22:53 编辑
回复 5# xymc
说的 好明白了啊...
$wk='{5BF54C7E-91DA-457D-80BF-333677D7E316}' ;获取自己的 网卡名称 自己论坛搜索
$r=getmac()
If $r='' Then
msgbox(0,'','是默认mac')
Else
msgbox(0,'','改动的mac:'&$r)
Endif
Func getmac()
For $i=0 To 99
$j='000'&$i
If $i>9 Then $j='00'&$i
$reg='HKLM\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\'&$j
If RegRead($reg, 'NetCfgInstanceId')=$wk Then Return RegRead($reg, 'NetworkAddress') ;读取mac
Next
Endfunc
;修改就是 把注册表NetworkAddress值改后 然后重启一下相应的网卡
下面这样写比较高端Func getmac()
For $i=0 To 99 ;不知道最多是不是9999?
$reg='HKLM\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\'&StringFormat('%04u',$i)
If RegRead($reg, 'NetCfgInstanceId')=$wk Then Return RegRead($reg, 'NetworkAddress') ;读取mac
Next
Endfunc
|