修改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[0] Then
For $i = 1 to $CmdLine[0]
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[0][0]
GUICtrlSetData( $cboAdapters, $AdapterList[$i][0] )
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[1][0] )
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[0][0]
$Line = ""
If StringLen( $AdapterList[$i][1] ) Then $Line = $Line & " >>> " & $AdapterList[$i][1]
If StringLen( $AdapterList[$i][3] ) Then $Line = $Line & " >>> Modified"
$OutString = $OutString & $AdapterList[$i][0] & $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[0][0]
If $AdapterList[$i][0] = $Adapter Then
Local $Mac = $AdapterList[$i][3]
If StringLen( $Mac ) = 0 Then
$Mac = $AdapterList[$i][1]
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[0][0]
If $AdapterList[$i][0] = $AdapterName Then
$AdapterKey = $AdapterList[$i][2]
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[1][4]
$Adapters[0][0] = 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[0][0] += 1
ReDim $Adapters[UBound($Adapters) + 1][4]
$Adapters[$Adapters[0][0]][0] = $objItem.Name ;adapter name
$Adapters[$Adapters[0][0]][1] = $objItem.MACAddress ;adapter real mac address
Local $AdapterReg = GetAdapterRegKey( $objItem.Name )
$Adapters[$Adapters[0][0]][2] = $AdapterReg[0] ;adapter regkey
$Adapters[$Adapters[0][0]][3] = $AdapterReg[1] ;virtual mac
Next
EndIf
Else
;Use a lista do registro se for win9x
Local $AdapterRegList = GetAdapterRegKey( )
Local $i = 0
For $i = 1 to $AdapterRegList[0][0]
$Adapters[0][0] += 1
ReDim $Adapters[UBound($Adapters) + 1][4]
$Adapters[$Adapters[0][0]][0] = $AdapterRegList[$i][0] ;adapter name
$Adapters[$Adapters[0][0]][1] = "" ;adapter real mac address
$Adapters[$Adapters[0][0]][2] = $AdapterRegList[$i][1] ;adapter regkey
$Adapters[$Adapters[0][0]][3] = $AdapterRegList[$i][2] ;virtual mac
Next
EndIf
return $Adapters
EndFunc
;------------------------------------------------------------------------------------------------------------
Func GetAdapterRegKey( $Adapter = "" )
Local $RetVal[2]
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[0] = $AdapterKey
$RetVal[1] = RegRead( $AdapterKey, "networkaddress" )
ExitLoop
EndIf
Else
;retorne a lista com os adaptadores
Redim $RetVal[$i + 1][3]
$RetVal[0][0] = $i
$RetVal[$i][0] = RegRead( $AdapterKey , $Value )
$RetVal[$i][1] = $AdapterKey
$RetVal[$i][2] = RegRead( $AdapterKey, "networkaddress" )
EndIf
EndIf
Wend
Wend
return $RetVal
EndFunc
;------------------------------------------------------------------------------------------------------------
Func ExitProgram()
Exit
EndFunc
[ 本帖最后由 st1109 于 2008-11-25 08:49 编辑 ] |
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2008-11-25 00:52:09