实现网络共享自动开启后自动取消

Meta网卡共享及取消网络给网线连接

@echo off
@echo 执行chcp 65001，将解码方式设置成UTF-8
chcp 65001

@echo 提升管理员权限
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
setlocal

:: 检查是否以管理员身份运行
net session >nul 2>&1
if %errorlevel% == 0 (
    echo 正在以管理员权限运行...
) else (
    echo 错误：需要管理员权限！
    echo 请右键点击此文件 -> "以管理员身份运行"
    pause
    exit /b 1
)

:: 步骤1：启用网络共享（将"Meta"网卡共享给"以太网"）
echo 正在启用网络共享...
netsh interface set interface "Meta" sharing=enable
if %errorlevel% == 0 (
    echo 网络共享已启用（"Meta" -> "以太网"）
) else (
    echo 错误：无法启用网络共享
    echo 请确认网卡名称是否为"Meta"和"以太网"
    pause
    exit /b 1
)

:: 步骤2：等待5秒（确保共享生效）
echo 等待5秒共享生效...
timeout /t 5 /nobreak >nul

:: 步骤3：取消网络共享
echo 正在取消网络共享...
netsh interface set interface "Meta" sharing=disable
if %errorlevel% == 0 (
    echo 网络共享已取消
) else (
    echo 错误：无法取消网络共享
    pause
    exit /b 1
)

echo 操作完成！
echo 1. 已启用"Meta"网卡共享给"以太网"
echo 2. 5秒后自动取消共享
pause

Meta网卡共享及取消网络给WIFI

@echo off
@echo 执行chcp 65001，将解码方式设置成UTF-8
chcp 65001

@echo 提升管理员权限
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
setlocal

:: 检查是否以管理员身份运行
net session >nul 2>&1
if %errorlevel% == 0 (
    echo 正在以管理员权限运行...
) else (
    echo 错误：需要管理员权限！
    echo 请右键点击此文件 -> "以管理员身份运行"
    pause
    exit /b 1
)

:: 步骤1：启用网络共享（将"Meta"网卡共享给"WIFI"）
echo 正在启用网络共享...
netsh interface set interface "Meta" sharing=enable
if %errorlevel% == 0 (
    echo 网络共享已启用（"Meta" -> "WIFI"）
) else (
    echo 错误：无法启用网络共享
    echo 请确认网卡名称是否为"Meta"和"WIFI"
    pause
    exit /b 1
)

:: 步骤2：等待5秒（确保共享生效）
echo 等待5秒共享生效...
timeout /t 5 /nobreak >nul

:: 步骤3：取消网络共享
echo 正在取消网络共享...
netsh interface set interface "Meta" sharing=disable
if %errorlevel% == 0 (
    echo 网络共享已取消
) else (
    echo 错误：无法取消网络共享
    pause
    exit /b 1
)

echo 操作完成！
echo 1. 已启用"Meta"网卡共享给"WIFI"
echo 2. 5秒后自动取消共享
pause