把以下代码复制到记事本，选择另存为，把文件类型选择为所有文件，文件名命名为以bat为后缀的文件(***.bat)。
必须以管理员身份运行!
开启网络共享的方法：
还不行就改ip试试：
代码部分：
@echo off
:head
cls
echo.
echo -------------------------------------------------------------------------------
echo仅win7可用，请以管理员身份运行，未以管理员身份运行请退出重新以管理员身份运行
echo --by HKKKYY
echo -------------------------------------------------------------------------------
echo 请选择 A,B,C,D,W:
choice /n /c ABCDW /m "A.配置无线路由器，B读取无线路由配置，C.打开无线路由器，D.退出程序，W.帮助信息"
if errorlevel 5 goto help
if errorlevel 4 goto exit
if errorlevel 3 goto start
if errorlevel 2 goto load
if errorlevel 1 goto creat
:error
echo.
echo 不存在配置信息或配置错误，请重新配置路由器
:help
echo.
echo 帮助信息!
echo 开启internet共享：
echo.
echo 1.打开网络和共享中心
echo 2.左边的更改适配器设置
echo 3.在连接到internet的网络适配器上右击
echo 4.选择 属性
echo 5.选择最右边的 共享
echo 6.允许其他网络用户连接 打勾
echo 7.选择无线网络连接*(Microsoft Virtual WiFi Miniport Adapter)
echo 8.一路确认，设置完成!
echo.
echo 更多问题，请发送至邮箱：183229003@qq.com
pause
goto head
:creat
echo ---------------------------------------------
set /p ssid=请输入无线网络名称，按回车结束：
set /p key=请输入无线网络密码，按回车结束(密码为8位及以上的数字或字母)：
echo %ssid%.%key% >wlan.inf
goto load
:load
if not exist wlan.inf goto error
for /f "delims=. tokens=1-2" %%a in (wlan.inf) do set ssid=%%a & set key=%%b
netsh wlan set hostednetwork allow %ssid% %key%
if not errorlevel 0 goto error
echo 路由配置成功，是否打开无线路由功能?(Y/N)
choice /n /c YN /m ":"
if errorlevel 2 goto head
if errorlevel 1 goto start
:start
netsh wlan start hostednetwork
if errorlevel 1 echo 请重新配置路由并检查您的计算机是否有虚拟无线网卡
if errorlevel 0 goto now
goto head
:now
cls
echo.
echo 无线路由开启功能已开启。。。
echo.
echo ---------------------------------------------------------
echo ssid为%ssid%，密码为%key%
echo --by HKKKYY
echo ---------------------------------------------------------
echo.
choice /n /c TSX /m "关闭无线路由功能请按T，设置定时关机请按S，网络连通测试请按X"
if errorlevel 3 goto test
if errorlevel 2 goto shutdown
if errorlevel 1 goto stop
:stop
netsh wlan stop hostednetwork
goto head
:shutdown
set /p time=请输入自动关机的时长，如一小时后关机，输入3600，取消自动关机请输入0：
if %time% equ 0 shutdown /a & goto now
shutdown /s /t %time%
if errorlevel 1 echo 设置失败，请确认输入正确，或者先取消此前的设置 & pause & goto now
if errorlevel 0 echo %time%秒后关机 & pause & goto now
:test
cls
@ping 218.85.157.99
set /a ping2=%errorlevel%
@ping 192.168.137.1
set /a ping1=%errorlevel%
if %ping2% neq 0 echo 您的计算机当前无法连接到internet & pause & goto now
if %ping1% neq 0 echo 请将您当前的网络连接共享到Microsoft Virtual WiFi 网络适配器 & pause & goto now
echo.
echo ----------------------------------------------------------------------
echo 网络连接正常，若还无法连接到网络，请将问题发送至邮箱：183229003@qq.com
echo ----------------------------------------------------------------------
pause
goto now
:exit
【windows7下共享网络连接至WLAN的批处理(必须以管理员身份运行)】相关文章：
★ Win10 Edge浏览器诊断适配器升级:开放者可使用外部工具进行调试
★ Win10一周年更新预览版14371修复内容及已知问题汇总
★ WindowsXp系统提示YJT.exe-无法找到组件的故障原因及两种解决方法
★ windows7系统下给WORD2010设置打开密码的方法
★ Win7/8.1 KB2685811、KB2685813和KB2670838蓝屏补丁下载汇总 (32位+64位)
★ win7系统Excel自带修复功能怎么用?win7使用Excel的修复功能方法
★ Win10无法访问D盘怎么办?Win10无法访问D盘的解决方法