@ECHO OFF
REM  QBFC Project Options Begin
REM  HasVersionInfo: Yes
REM  Companyname: cxc工作室
REM  Productname: 强制修改MAC（可恢复）
REM  Filedescription: 支持有线网卡和无线网卡 支持手动输入和随机生成、强制修改MAC（可恢复）
REM  Copyrights: cxc工作室
REM  Trademarks: cxc工作室
REM  Originalname: 强制修改MAC（可恢复）
REM  Comments: 支持有线网卡和无线网卡 支持手动输入和随机生成、强制修改MAC（可恢复）
REM  Productversion:  1.21. 0. 0
REM  Fileversion:  1.21. 0. 0
REM  Internalname: 强制修改MAC（可恢复）
REM  Appicon: E:\图片\我的图片\mac.ico
REM  AdministratorManifest: Yes
REM  QBFC Project Options End
ECHO ON
@echo off
title=一键换MAC （作者cxci 观看vip视频 laziyu.com）
color 0A
mode con cols=60 lines=15
:://获取管理员身份
call :getadmin



:begin
echo.
echo.                        1、有线MAC
echo.                        2、无线MAC
echo.                        
echo.                        0、退出工具
Choice /C 120
echo.正在执行》》》
cls
if "%ErrorLevel%"=="1" (set net_drivers_name=Controller)
if "%ErrorLevel%"=="2" (set net_drivers_name=Wireless)
::if "%ErrorLevel%"=="3" (set net_drivers_name=Virtual)
if "%ErrorLevel%"=="3" (exit)

:004
if "%net_drivers_name%"=="" (goto :begin)

ipconfig /all>cxc2.txt
for /f %%a in ('findstr /n "%net_drivers_name%" "cxc2.txt"') do set cn=%%a
set cnif=%cn:~1,2%
if "%cnif%"==":" (set cn=%cn:~0,1%) else (set cn=%cn:~0,2%)

set /a mac_cn=%cn%
:cn_1
set /a cn-=1
for /f "skip=%cn% tokens=* delims=" %%a in (cxc2.txt) do (
set wan=%%a
call :cn_2
)
:cn_2
echo.%wan%|findstr "适配器">nul || goto :cn_1

:cn_4
for /f "skip=%mac_cn% tokens=* delims=" %%a in (cxc2.txt) do (
set mac=%%a
set /a mac_cn+=1
call :cn_3
)
:cn_3
echo.%mac%|findstr "地址">nul || goto :cn_4







for /f "tokens=1,* delims= " %%a in ("%wan%") do (
set wan=%%b
goto :tiao
)
:tiao
set wan=%wan:~0,-1%
set mac=%mac:~-17%
for /f "tokens=1,2,3,4,5,6 delims=-" %%a in ("%mac%") do set mac=%%a%%b%%c%%d%%e%%f



del /q /s /f cxc2.txt>nul


set a=-1

:002
set /a a+=1
set n=000%a%
set n=%n:~-4%
for /f "tokens=2* delims= " %%a in ('REG.EXE QUERY "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\%n%" /v "DriverDesc"') do set DriverDesc=%%b

echo.%DriverDesc%|findstr "%net_drivers_name%">nul || goto :002
:000
set ss=
echo.当前MAC: %mac% 
echo.网卡名为:%wan%
echo.
echo.     1、随机         2、手动         3、还原
echo.
echo.     0、返回上一级
Choice /C 1230

cls
echo.正在执行》》》
if "%ErrorLevel%"=="1" (goto :suiji)
if "%ErrorLevel%"=="2" (goto :scanf)
if "%ErrorLevel%"=="3" (goto :huanyuan)
cls
goto :begin
:printf
set mac=%mac:~-12%
set macif=%mac:~0,2%
if "%macif%"=="00" (cls &echo.错误输入！！！MAC应为12位数 &goto :scanf)
::if "%macif%"=="00" (cls &echo.错误输入！！！MAC应为12位数 &goto :scanf)
set qiehuan=手动
set fancz=scanf
if "%cz%"=="scanf" (set fancz=suiji &set qiehuan=随机 &echo %mac%|findstr "^[0-9,a-f]*$">nul||goto :fail)
cls
set ss=
echo.%kkk%: %mac%     1、再换  2、确定  3、主页  0、退出
Choice /C 1230
echo.正在执行》》》
if "%ErrorLevel%"=="1" (cls &goto :%cz%)
if "%ErrorLevel%"=="2" (goto :debug)
if "%ErrorLevel%"=="3" (cls &goto :begin)

exit
:suiji

setlocal enabledelayedexpansion



set "temp="
set "kkk=随机数"

set cz=suiji
set mmjs=06A17B28C39D4E5F
for /l %%a in (1,1,10) do (set/a mmxz=!random!%%16
for %%b in (!mmxz!) do set temp=!temp!!mmjs:~%%b,1!)
set macss=0000000000%temp%
set mac3=%macss:~-10%

set "mac2="
set mmjstwo=26AE
for /l %%a in (1,1,1) do (set/a mmxz=!random!%%4
for %%b in (!mmxz!) do set mac2=!mac2!!mmjstwo:~%%b,1!)


set "mac1="
set mmjsth=0123456
for /l %%a in (1,1,1) do (set/a mmxz=!random!%%7
for %%b in (!mmxz!) do set mac1=!mac1!!mmjsth:~%%b,1!)


set mac=%mac1%%mac2%%mac3%


goto :printf


:scanf
set mac=
set "kkk=设置为"
set cz=scanf
echo.输多取后12位，输少不执行
echo.
set /p "mac=请输入12位MAC："
set mac=000000000000%mac%

goto :printf



:debug
cls

echo.正在处理中。。。

reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4d36e972-e325-11ce-bfc1-08002be10318}\%n%" /v "NetworkAddress" /t reg_sz /d %mac% /f>nul
netsh interface set interface name="%wan%" admin=disable>nul
netsh interface set interface name="%wan%" admin=enable>nul
cls
echo.切换成功!
goto :004

:huanyuan
echo.正在处理中。。。
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4d36e972-e325-11ce-bfc1-08002be10318}\%n%" /v "NetworkAddress" /t reg_sz /d 666666666666 /f>nul
reg delete "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4d36e972-e325-11ce-bfc1-08002be10318}\%n%" /v "NetworkAddress" /f>nul
netsh interface set interface name="%wan%" admin=disable>nul
netsh interface set interface name="%wan%" admin=enable>nul
cls
echo.还原成功！
goto :004


:eof
exit

:fail
cls
echo.【%mac%】里面包含0-9,a-f外字符
goto :scanf







:getadmin
echo.正在获取管理员身份。。。
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
	echo Set UAC = CreateObject^("Shell.Application"^) >"%temp%\getadmin.vbs"
	echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >>"%temp%\getadmin.vbs"
	"%temp%\getadmin.vbs"
	exit
) else (cls&goto :eof)
exit