把以下代碼復(fù)制到記事本，選擇另存為，把文件類(lèi)型選擇為所有文件，文件名命名為以bat為后綴的文件(***.bat)。
必須以管理員身份運(yùn)行!
開(kāi)啟網(wǎng)絡(luò)共享的方法：
還不行就改ip試試：
代碼部分：
@echo off
:head
cls
echo.
echo -------------------------------------------------------------------------------
echo僅win7可用，請(qǐng)以管理員身份運(yùn)行，未以管理員身份運(yùn)行請(qǐng)退出重新以管理員身份運(yùn)行
echo --by HKKKYY
echo -------------------------------------------------------------------------------
echo 請(qǐng)選擇 A,B,C,D,W:
choice /n /c ABCDW /m "A.配置無(wú)線(xiàn)路由器，B讀取無(wú)線(xiàn)路由配置，C.打開(kāi)無(wú)線(xiàn)路由器，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 不存在配置信息或配置錯(cuò)誤，請(qǐng)重新配置路由器
:help
echo.
echo 幫助信息!
echo 開(kāi)啟internet共享：
echo.
echo 1.打開(kāi)網(wǎng)絡(luò)和共享中心
echo 2.左邊的更改適配器設(shè)置
echo 3.在連接到internet的網(wǎng)絡(luò)適配器上右擊
echo 4.選擇 屬性
echo 5.選擇最右邊的 共享
echo 6.允許其他網(wǎng)絡(luò)用戶(hù)連接 打勾
echo 7.選擇無(wú)線(xiàn)網(wǎng)絡(luò)連接*(Microsoft Virtual WiFi Miniport Adapter)
echo 8.一路確認(rèn)，設(shè)置完成!
echo.
echo 更多問(wèn)題，請(qǐng)發(fā)送至郵箱：183229003@qq.com
pause
goto head
:creat
echo ---------------------------------------------
set /p ssid=請(qǐng)輸入無(wú)線(xiàn)網(wǎng)絡(luò)名稱(chēng)，按回車(chē)結(jié)束：
set /p key=請(qǐng)輸入無(wú)線(xiàn)網(wǎng)絡(luò)密碼，按回車(chē)結(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 路由配置成功，是否打開(kāi)無(wú)線(xiàn)路由功能?(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 請(qǐng)重新配置路由并檢查您的計(jì)算機(jī)是否有虛擬無(wú)線(xiàn)網(wǎng)卡
if errorlevel 0 goto now
goto head
:now
cls
echo.
echo 無(wú)線(xiàn)路由開(kāi)啟功能已開(kāi)啟。。。
echo.
echo ---------------------------------------------------------
echo ssid為%ssid%，密碼為%key%
echo --by HKKKYY
echo ---------------------------------------------------------
echo.
choice /n /c TSX /m "關(guān)閉無(wú)線(xiàn)路由功能請(qǐng)按T，設(shè)置定時(shí)關(guān)機(jī)請(qǐng)按S，網(wǎng)絡(luò)連通測(cè)試請(qǐng)按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=請(qǐng)輸入自動(dòng)關(guān)機(jī)的時(shí)長(zhǎng)，如一小時(shí)后關(guān)機(jī)，輸入3600，取消自動(dòng)關(guān)機(jī)請(qǐng)輸入0：
if %time% equ 0 shutdown /a goto now
shutdown /s /t %time%
if errorlevel 1 echo 設(shè)置失敗，請(qǐng)確認(rèn)輸入正確，或者先取消此前的設(shè)置 pause goto now
if errorlevel 0 echo %time%秒后關(guān)機(jī) 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 您的計(jì)算機(jī)當(dāng)前無(wú)法連接到internet pause goto now
if %ping1% neq 0 echo 請(qǐng)將您當(dāng)前的網(wǎng)絡(luò)連接共享到Microsoft Virtual WiFi 網(wǎng)絡(luò)適配器 pause goto now
echo.
echo ----------------------------------------------------------------------
echo 網(wǎng)絡(luò)連接正常，若還無(wú)法連接到網(wǎng)絡(luò)，請(qǐng)將問(wèn)題發(fā)送至郵箱：183229003@qq.com
echo ----------------------------------------------------------------------
pause
goto now
:exit
