Win7下共享网络连接至WLAN的批处理 电脑中批处理共享无线网络

Win7下共享网络连接至WLAN的批处理 电脑中批处理共享无线网络　把以下代码复制到记事本，选择另存为，把文件类型选择为所有文件，文件名命名为以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