windows系统bat批处理 笔记本开wifi 笔记本查看wifi密码

@echo off

chcp 437 >nul

for /f "tokens=1* delims=:" %%i in ('netsh wlan show profiles ^| findstr /c:"All User Profile"') do (

    call :GetPass %%j

)

pause

goto :eof

:GetPass

echo WiFi : %*

for /f "delims=" %%a in ('netsh wlan show profile name^="%*" key^=clear ^| findstr /c:"Key Content"') do (

    echo %%a

)

goto :eof

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"
netsh wlan set hostednetwork mode=allow ssid=handsome_shi key=12345678
netsh wlan start hostednetwork
pause
exit

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"
netsh wlan stop hostednetwork
@netsh wlan set hostednetwork mode=disallow

netsh wlan show hostednetwork
@pause

@exit

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"
@echo 开热点小工具

@echo.

:switch

@echo 1.开启无线

@echo 2.关闭无线

@echo 请选择功能 :

@set /p answer=

@if /i %answer%==1 goto start

@if /i %answer%==2 goto stop

@echo 请输入1或2来选择功能 

@goto switch

:start

@set /p ssid=请输入无线网络名称，按回车结束：

@set /p key=请输入无线网络密码，按回车结束(密码为8位及以上的数字或字母):

@netsh wlan set hostednetwork mode=allow ssid=%ssid% key=%key%

@netsh wlan start hostednetwork

@pause

@exit

:stop

@netsh wlan stop hostednetwork

@netsh wlan set hostednetwork mode=disallow

@pause

@exit

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"
netsh wlan set hostednetwork mode=allow ssid=handsome_shi key=12345678
netsh wlan start hostednetwork