把以下代碼復制到記事本,選擇另存為,把文件類型選擇為所有文件,文件名命名為以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 更多問題,請發送至郵箱:[email protected]
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 網絡連接正常,若還無法連接到網絡,請將問題發送至郵箱:[email protected]
echo ----------------------------------------------------------------------
pause
goto now
:exit