MAC 地址可以手工更改，在AU3中怎么作用。-已解决问题区-AUTOIT CN

yjf982 发表于 2008-11-25 00:52:09

MAC 地址可以手工更改，在AU3中怎么作用。

MAC 地址可以手工在硬件管理里边更改，在AU3中应该怎么改啊。请各们高手给一个回复吗。谢谢。

netegg 发表于 2008-11-25 08:37:20

能在管理中修改，没理由api做不到，而且据所知，好像有这个函数

st1109 发表于 2008-11-25 08:48:48

修改MAC地址
#cs
MAC Address Changer by Alexsandro Percy

2007/03/05 - now it runs on win9x
2007/03/02 - first release

- Important notes:
When you change a value, reboot the system to take effect
If your network fail after Mac address change, click on Restore to back original value. Restart again.

- Tips:
The red square indicates that value was modified.
The first two digits must be 00 - like 00:11:22:33:44:55 - or your network card won't work
#ce

#include <GUIConstants.au3>

$UseInterface = 1
;verifica玢o de par鈓etros
If $CmdLine Then
For $i = 1 to $CmdLine
Select
Case $CmdLine[$i] = "-log"
$UseInterface = 0
Case $CmdLine[$i] = "-?"
MsgBox( 64, "Help", "-log: inicia sem interface" )
Exit
Case Else
EndSelect
Next
EndIf

Global $AdapterList = GetAdaptersList( )
dim $WS_EX_CLIENTEDGE
If $UseInterface Then
AutoItSetOption ( "GUIOnEventMode", 1 )

$frmMacChanger = GUICreate( "MAC Address Changer - by A. Percy", 329, 70 )
$cboAdapters = GUICtrlCreateCombo( "", 8, 8, 313, 21, -1 )

$txtMac0 = GUICtrlCreateInput( "", 8, 40, 21, 21, -1, $WS_EX_CLIENTEDGE )
GUICtrlSetLimit( -1, 2 )
$txtMac1 = GUICtrlCreateInput( "", 33, 40, 21, 21, -1, $WS_EX_CLIENTEDGE )
GUICtrlSetLimit( -1, 2 )
$txtMac2 = GUICtrlCreateInput( "", 58, 40, 21, 21, -1, $WS_EX_CLIENTEDGE )
GUICtrlSetLimit( -1, 2 )
$txtMac3 = GUICtrlCreateInput( "", 83, 40, 21, 21, -1, $WS_EX_CLIENTEDGE )
GUICtrlSetLimit( -1, 2 )
$txtMac4 = GUICtrlCreateInput( "", 108, 40, 21, 21, -1, $WS_EX_CLIENTEDGE )
GUICtrlSetLimit( -1, 2 )
$txtMac5 = GUICtrlCreateInput( "", 133, 40, 21, 21, -1, $WS_EX_CLIENTEDGE )
GUICtrlSetLimit( -1, 2 )

$gphModified = GUICtrlCreateGraphic( 158, 42, 17, 17 )
GUICtrlSetBkColor( -1, 0xFF0000)

$Restore = GUICtrlCreateButton( "Restore", 195, 38, 60, 25 )
$Change = GUICtrlCreateButton( "Change", 260, 38, 60, 25 )

For $i = 1 to $AdapterList
GUICtrlSetData( $cboAdapters, $AdapterList[$i] )
Next

;atribui玢o de eventos para os controles
GUISetOnEvent( $GUI_EVENT_CLOSE, "ExitProgram" )

GUICtrlSetOnEvent( $txtMac0, "GuiCheckHex" ) ;da?para baixo ele garante que aceitar?apenas numeros hexadecimais
GUICtrlSetOnEvent( $txtMac1, "GuiCheckHex" )
GUICtrlSetOnEvent( $txtMac2, "GuiCheckHex" )
GUICtrlSetOnEvent( $txtMac3, "GuiCheckHex" )
GUICtrlSetOnEvent( $txtMac4, "GuiCheckHex" )
GUICtrlSetOnEvent( $txtMac5, "GuiCheckHex" )

GUICtrlSetOnEvent( $Restore, "GuiRestoreMac" )
GUICtrlSetOnEvent( $Change, "GuiChangeMac" )
GUICtrlSetOnEvent( $cboAdapters, "GuiShowMac" )

;seleciona o primeiro item
GUICtrlSetData( $cboAdapters, $AdapterList )
GuiShowMac( )

GUISetState( @SW_SHOW )

While 1
Sleep( 100 )
WEnd
Else
$LogFileHndl = FileOpen( @ScriptDir & "\MacLog.log", 1 )
If $LogFileHndl <> -1 Then
$OutString = "--" & @CRLF
For $i = 1 to $AdapterList
$Line = ""
If StringLen( $AdapterList[$i] ) Then $Line = $Line & " >>> " & $AdapterList[$i]
If StringLen( $AdapterList[$i] ) Then $Line = $Line & " >>> Modified"
$OutString = $OutString & $AdapterList[$i] & $Line & @CRLF
Next
FileWrite( $LogFileHndl, $OutString )
EndIf
FileClose( $LogFileHndl )
EndIf

Exit

;------------------------------------------------------------------------------------------------------------
Func GuiClearMac( )
GUICtrlSetData( $txtMac0, "" )
GUICtrlSetData( $txtMac1, "" )
GUICtrlSetData( $txtMac2, "" )
GUICtrlSetData( $txtMac3, "" )
GUICtrlSetData( $txtMac4, "" )
GUICtrlSetData( $txtMac5, "" )
EndFunc

;------------------------------------------------------------------------------------------------------------
Func GuiCheckHex( )
Local $Data = GUICtrlRead( @GUI_CTRLID )
Dec ( $Data )
If @error Then
GUICtrlSetData( @GUI_CTRLID, "" )
Else
GUICtrlSetData( @GUI_CTRLID, StringUpper( $Data ) )
EndIf
EndFunc

;------------------------------------------------------------------------------------------------------------
Func GuiRestoreMac( )
GuiClearMac( )
GuiChangeMac( )
EndFunc

;------------------------------------------------------------------------------------------------------------
Func GuiChangeMac( )
Local $NewMac = GUICtrlRead( $txtMac0 ) & GUICtrlRead( $txtMac1 ) & GUICtrlRead( $txtMac2 ) & GUICtrlRead( $txtMac3 ) & GUICtrlRead( $txtMac4 ) & GUICtrlRead( $txtMac5 )
Local $MacLen = StringLen( $NewMac )

If $MacLen = 12 or $MacLen = 0 Then
If WriteNewMac( $AdapterList, GUICtrlRead( $cboAdapters ), $NewMac ) Then
$AdapterList = GetAdaptersList( )
GuiShowMac( )

;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes and No, Default Button=Second, Icon=Warning
If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox( 308, "Reboot system","Would you like to reboot the system for now?" )
If $iMsgBoxAnswer = 6 Then ;Yes
Shutdown( 2 )
EndIf
EndIf
Else
MsgBox( 0, "Error", "The new MAC address must contain 12 hex digits or empty for delete" )
EndIf
EndFunc

;------------------------------------------------------------------------------------------------------------
Func GuiShowMac( )
$Adapter = GUICtrlRead( $cboAdapters )
GUICtrlSetBkColor( $gphModified, $GUI_BKCOLOR_TRANSPARENT )
GuiClearMac( )
If StringLen( $Adapter ) Then
Local $i = 0
For $i = 1 to $AdapterList
If $AdapterList[$i] = $Adapter Then
Local $Mac = $AdapterList[$i]
If StringLen( $Mac ) = 0 Then
$Mac = $AdapterList[$i]
Else
GUICtrlSetBkColor( $gphModified, 0xFF0000 )
EndIf
$Mac = StringReplace( $Mac, ":", "" )
GUICtrlSetData( $txtMac0, StringMid( $Mac, 1, 2 ) )
GUICtrlSetData( $txtMac1, StringMid( $Mac, 3, 2 ) )
GUICtrlSetData( $txtMac2, StringMid( $Mac, 5, 2 ) )
GUICtrlSetData( $txtMac3, StringMid( $Mac, 7, 2 ) )
GUICtrlSetData( $txtMac4, StringMid( $Mac, 9, 2 ) )
GUICtrlSetData( $txtMac5, StringMid( $Mac, 11, 2 ) )
ExitLoop
EndIf
Next
EndIf
EndFunc

;------------------------------------------------------------------------------------------------------------
Func WriteNewMac( $AdapterList, $AdapterName, $NewMac = "" )
If UBound( $AdapterList ) Then
Local $i
Local $AdapterKey = ""
For $i = 1 to $AdapterList
If $AdapterList[$i] = $AdapterName Then
$AdapterKey = $AdapterList[$i]
EndIf
Next
If StringLen( $AdapterKey ) Then
If StringLen( $NewMac ) Then
RegWrite( $AdapterKey, "networkaddress", "REG_SZ", $NewMac )
Else
RegDelete( $AdapterKey, "networkaddress" )
EndIf
return 1
EndIf
EndIf
return 0
EndFunc

;------------------------------------------------------------------------------------------------------------
Func GetAdaptersList( )
Local $Adapters
$Adapters = 0

If @OSTYPE = "WIN32_NT" Then
;Use WMI
Local $o_WMIService = ObjGet( "winmgmts:\\" & @ComputerName & "\root\CIMV2" )
Local $Items = $o_WMIService.ExecQuery( "SELECT Name, MACAddress FROM Win32_NetworkAdapter", "WQL", 0x30 )
If IsObj( $Items ) Then
Local $objItem
For $objItem In $Items
$Adapters += 1
ReDim $Adapters
$Adapters[$Adapters] = $objItem.Name ;adapter name
$Adapters[$Adapters] = $objItem.MACAddress ;adapter real mac address
Local $AdapterReg = GetAdapterRegKey( $objItem.Name )
$Adapters[$Adapters] = $AdapterReg ;adapter regkey
$Adapters[$Adapters] = $AdapterReg ;virtual mac
Next
EndIf
Else
;Use a lista do registro se for win9x
Local $AdapterRegList = GetAdapterRegKey( )
Local $i = 0
For $i = 1 to $AdapterRegList
$Adapters += 1
ReDim $Adapters
$Adapters[$Adapters] = $AdapterRegList[$i] ;adapter name
$Adapters[$Adapters] = "" ;adapter real mac address
$Adapters[$Adapters] = $AdapterRegList[$i] ;adapter regkey
$Adapters[$Adapters] = $AdapterRegList[$i] ;virtual mac
Next
EndIf
return $Adapters
EndFunc

;------------------------------------------------------------------------------------------------------------
Func GetAdapterRegKey( $Adapter = "" )
Local $RetVal
Local $NetKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}"
If @OSTYPE = "WIN32_WINDOWS" Then
$NetKey = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Net"
EndIf
Local $i = 0
While 1
$i += 1
Local $Key = RegEnumKey( $NetKey, $i )
If @error <> 0 Then ExitLoop
Local $AdapterKey = $NetKey & "\" & $Key
Local $j = 0
While 1
$j += 1
Local $Value = RegEnumVal( $AdapterKey, $j )
If @error <> 0 Then ExitLoop
If $Value = "DriverDesc" Then
If $Adapter <> "" Then
;vai retornar somente o adaptador que pedi
If $Adapter = RegRead( $AdapterKey , $Value ) Then
$RetVal = $AdapterKey
$RetVal = RegRead( $AdapterKey, "networkaddress" )
ExitLoop
EndIf
Else
;retorne a lista com os adaptadores
Redim $RetVal[$i + 1]
$RetVal = $i
$RetVal[$i] = RegRead( $AdapterKey , $Value )
$RetVal[$i] = $AdapterKey
$RetVal[$i] = RegRead( $AdapterKey, "networkaddress" )
EndIf
EndIf
Wend
Wend
return $RetVal
EndFunc

;------------------------------------------------------------------------------------------------------------
Func ExitProgram()
Exit
EndFunc

[ 本帖最后由 st1109 于 2008-11-25 08:49 编辑 ]

txen548 发表于 2022-1-17 18:47:38

楼上的，非常感谢，正需要此代码，谢谢~~~

页: [1]

AUTOIT CN's Archiver

MAC 地址可以手工更改，在AU3中怎么作用。