windows7下共享網(wǎng)絡(luò)連接至WLAN的批處理(必須以管理員身份運行)

@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.打開網(wǎng)絡(luò)和共享中心
　　echo 2.左邊的更改適配器設(shè)置
　　echo 3.在連接到internet的網(wǎng)絡(luò)適配器上右擊
　　echo 4.選擇 屬性
　　echo 5.選擇最右邊的 共享
　　echo 6.允許其他網(wǎng)絡(luò)用戶連接 打勾
　　echo 7.選擇無線網(wǎng)絡(luò)連接*(Microsoft Virtual WiFi Miniport Adapter)
　　echo 8.一路確認(rèn)，設(shè)置完成!
　　echo.
　　echo 更多問題，請發(fā)送至郵箱：183229003@qq.com
　　pause
　　goto head
　　:creat
　　echo ---------------------------------------------
　　set /p ssid=請輸入無線網(wǎng)絡(luò)名稱，按回車結(jié)束：
　　set /p key=請輸入無線網(wǎng)絡(luò)密碼，按回車結(jié)束(密碼為8位及以上的數(shù)字或字母)：
　　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 請重新配置路由并檢查您的計算機是否有虛擬無線網(wǎng)卡
　　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 "關(guān)閉無線路由功能請按T，設(shè)置定時關(guān)機請按S，網(wǎng)絡(luò)連通測試請按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=請輸入自動關(guān)機的時長，如一小時后關(guān)機，輸入3600，取消自動關(guān)機請輸入0：
　　if %time% equ 0 shutdown /a goto now
　　shutdown /s /t %time%
　　if errorlevel 1 echo 設(shè)置失敗，請確認(rèn)輸入正確，或者先取消此前的設(shè)置 pause goto now
　　if errorlevel 0 echo %time%秒后關(guān)機 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 您的計算機當(dāng)前無法連接到internet pause goto now
　　if %ping1% neq 0 echo 請將您當(dāng)前的網(wǎng)絡(luò)連接共享到Microsoft Virtual WiFi 網(wǎng)絡(luò)適配器 pause goto now
　　echo.
　　echo ----------------------------------------------------------------------
　　echo 網(wǎng)絡(luò)連接正常，若還無法連接到網(wǎng)絡(luò)，請將問題發(fā)送至郵箱：183229003@qq.com
　　echo ----------------------------------------------------------------------
　　pause
　　goto now
　　:exit