引用bat批处理修改的电脑WIFI密码查看器

By admin at 2022-10-28 • 0人收藏 • 318人看过

bat代码引用自52pojie,该文章已被删除, 可惜了

https://www.52pojie.cn/thread-1704821-1-1.html

感谢 leonca 提供


我这里利用aardio的bat批处理混合编程示例修改了一个界面, 获取到wifi密码后, 显示到edit编辑框内, 后面就可以方便的复制了.

25.jpg

//RUNAS//
import fonts.fontAwesome;
import win.ui;
/*DSG{{*/
var mainForm = win.form(text="电脑WIFI密码获取工具";right=609;bottom=439)
mainForm.add(
btnExecute={cls="plus";text="电脑连接过的WIFI密码获取";left=15;top=380;right=286;bottom=425;align="left";bgcolor=-5197169;db=1;dl=1;font=LOGFONT(h=-16);iconStyle={align="left";font=LOGFONT(h=-16;name='FontAwesome');padding={left=20}};iconText='\uF17A';notify=1;textPadding={left=42};z=2};
editResult={cls="edit";left=15;top=13;right=598;bottom=370;db=1;dl=1;dr=1;dt=1;edge=1;hscroll=1;multiline=1;vscroll=1;z=1}
)
/*}}*/

/*按钮皮肤{{*/
mainForm.btnExecute.skin({
	background={
		default=0xFF8FB2B0;
		hover=0xFF928BB3;
		disabled=0xFFCCCCCC; 
	}
});
/*}}*/

/*批处理指令字符串{{*/
var batStr = /***
@echo off
title 批处理查看所有连接过的WiFi名称和密码
echo. & echo 请用管理员权限运行此批处理,否则可能无法获取到密码
echo.
for /f "tokens=3*" %%i in ('netsh wlan show profiles ^| findstr "所有用户配置文件"') do (
call :GetPass %%i %%j
)
pause
goto :eof
 
:GetPass
echo,WiFi : %*
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('netsh wlan show profile name^="%*" key^=clear ^| findstr "关键内容"') do (
rem echo,%%a
set var=%%a
set var1=!var:关键内容=密码!
set var2=!var1: =!
set var3=!var2:^:= : !
echo,!var3!
)
echo,=========================
endlocal
goto :eof
***/
/*}}*/

import process.batch;
mainForm.btnExecute.oncommand = function(id,event){
	
	////优先调用 64 位命令请改为 process.batch.wow64 
	var prcs = process.batch( batStr );
	//开启等待动画
	mainForm.btnExecute.disabledText = {'\uF254';'\uF251';'\uF252';'\uF253';'\uF250';text=''}
	
	//out 用于接收批处理的全部输出(包含错误输出), err 为错误信息(无错误为 null )
	var out,err = prcs.readAll(); //可在参数 @1 中指定匹配模式查找指定字符串
	mainForm.editResult.print(out);
	//关闭动画
	mainForm.btnExecute.disabledText = null;
}
	
mainForm.show();
win.loopMessage();

编译好的exe和源代码下载
链接:https://pan.baidu.com/s/1aCe4gI_0Ac9mGrQnpClgMg?pwd=b0l3 
提取码:b0l3


aardio给bat批处理制作漂亮界面的文章可以看jacenHe老大的头条博客

https://www.toutiao.com/article/7128309982688330272


1 个回复 | 最后更新于 29 天前
29 天前   #1

感谢分享

登录后方可回帖

登 录
信息栏
公 告:

专注分享

谢绝纯提问

谢谢合作!
本站域名:HtmLayout.Cn
aardio可以快速开发上位机,本站主要记录了学习过程中遇到的问题和解决办法及aardio代码分享

这里主要专注于aardio学习交流和经验分享.
纯私人站,当笔记本用的,学到哪写到哪.

Aardio 官方站:Aardio官方
Aardio最新功能:Aardio官方更新日志
本 站 主 站:Stm32cube中文网
Sciter中文在线文档Sciter在线学习文档
空间赞助:才仁机械
打赏本站
Loading...