TA的每日心情 | 擦汗 2017-9-10 12:02 |
---|
签到天数: 110 天 [LV.6]常住居民II
|
写了一个查看WIFI密码的,不是**wifi,是提取以往连接过的WIFI密码!
打开软件会显示以往连接过的WIFI名称。
输入要提取WIFI密码的WIFI名称。回车即可显示密码。
非常抱歉,软件没有写循环,导致显示密码 也就关闭了,现在已经修复。
@echo off
::MODE con: COLS=165 LINES=65
title 查看WIFI密码 %date%
::获取管理员权限
setlocal
set uac=~uac_permission_tmp_%random%
md "%SystemRoot%\system32\%uac%" 2>nul
if %errorlevel%==0 ( rd "%SystemRoot%\system32\%uac%" >nul 2>nul ) else (
echo set uac = CreateObject^("Shell.Application"^)>"%temp%\%uac%.vbs"
echo uac.ShellExecute "%~s0","","","runas",1 >>"%temp%\%uac%.vbs"
echo WScript.Quit >>"%temp%\%uac%.vbs"
"%temp%\%uac%.vbs" /f
del /f /q "%temp%\%uac%.vbs" & exit )
endlocal
:: *********************************************************************** 我是分割线
netsh wlan show profile
echo ************************************************************************
echo 提示:以上为本机所连接过WIFI信息
echo ************************************************************************
:menu
echo.
set /p var=请输入你要查看密钥WLAN:
if "%var%" equ "" goto menu
if %var% equ 15 exit
netsh wlan show profile name="%var%" key=clear >kbc.txt
type kbc.txt | findstr 关键内容
ping /n 10 127.0.0.1 >nul
保存链接: https://pan.baidu.com/s/1U0e5VfANskFggEARUn0u5g 提取码: e6fu 复制这段内容后打开百度网盘手机App,操作更方便哦 |
|