我这里利用aardio的bat批处理混合编程示例修改了一个界面,获取到wifi密码后,显示到edit编辑框内,后面就可以方便的复制了。 源码比较简单,代码如下:RUNASimportfonts。fontAwesome;importwin。ui;DSG{{varmainFormwin。form(text电脑WIFI密码获取工具;right609;bottom439)mainForm。add(btnExecute{clsplus;text电脑连接过的WIFI密码获取;left15;top380;right286;bottom425;alignleft;bgcolor5197169;db1;dl1;fontLOGFONT(h16);iconStyle{alignleft;fontLOGFONT(h16;nameFontAwesome);padding{left20}};iconText;notify1;textPadding{left42};z2};editResult{clsedit;left15;top13;right598;bottom370;db1;dl1;dr1;dt1;edge1;hscroll1;multiline1;vscroll1;z1})}}按钮皮肤{{mainForm。btnExecute。skin({background{default0xFF8FB2B0;hover0xFF928BB3;disabled0xFFCCCCCC;}});}}批处理指令字符串{{varbatStrechoofftitle批处理查看所有连接过的WiFi名称和密码echo。echo请用管理员权限运行此批处理,否则可能无法获取到密码echo。forftokens3iin(netshwlanshowprofilesfindstr所有用户配置文件)do(call:GetPassij)pausegoto:eof:GetPassecho,WiFi:setlocalenabledelayedexpansionforfdelimsain(netshwlanshowprofilenamekeyclearfindstr关键内容)do(remecho,asetvarasetvar1!var:关键内容密码!setvar2!var1:!setvar3!var2:::!echo,!var3!)echo,endlocalgoto:eof}}importprocess。batch;mainForm。btnExecute。oncommandfunction(id,event){优先调用64位命令请改为process。batch。wow64varprcsprocess。batch(batStr);开启等待动画mainForm。btnExecute。disabledText{;;;;;text}out用于接收批处理的全部输出(包含错误输出),err为错误信息(无错误为null)varout,errprcs。readAll();可在参数1中指定匹配模式查找指定字符串mainForm。editResult。print(out);关闭动画mainForm。btnExecute。disabledTextnull;}mainForm。show();win。loopMessage(); 原理上,就是利用bat批处理获取电脑内所有记录,然后显示到文本框。 本文首发:htmlayout。cnt21394