1、点击“打开网络和共享中心”->“管理无线网络”。
2、右键单击无线网络SSID->“属性”。
3、在“安全”选项卡下,把“显示字符”打上钩,就能看到WIFI密码了。
unit Unit1interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrlstype TForm1 = class(TForm) Button1: TButtonEdit1: TEditTimer1: TTimerprocedure Timer1Timer(Sender: TObject)private { Private declarations } public { Public declarations } endvar Form1: TForm1implementation {$R *.dfm} function GetWindowText( const HWnd : HWndconst GetPassWord : Boolean = False ):string//取得文本且可以取得密码 var iPwdChar : IntegeriPwdLast : IntegerpsText : array[0..MAXBYTE] of chari : Integerbegin Result := ''if Hwnd = 0 then ExitiPwdChar:=SendMessage(HWnd, EM_GETPASSWORDCHAR, 0, 0)if iPwdChar<>0 then begin iPwdLast := 0i := 0while iPwdLast = 0 do begin PostMessage(HWnd, EM_SETPASSWORDCHAR, 0, 0)Application.ProcessMessagesInc(i)iPwdLast := SendMessage(HWnd, EM_GETPASSWORDCHAR, 0, 0)if i >100 then breakend SendMessage(HWnd, WM_GETTEXT, MAXBYTE, Longint(@psText))Result := StrPas(psText)SendMessage(HWnd, EM_SETPASSWORDCHAR, iPwdChar, 0)end else begin SendMessage(HWnd, WM_GETTEXT, MAXBYTE, Longint(@psText))Result := StrPas(psText)endendprocedure TForm1.Timer1Timer(Sender: TObject)var MousePoint: TPointWindowHandle: THandle//WindowStyle: Longintbegin // 获取鼠标位置 GetCursorPos(MousePoint)// 获取包含鼠标的窗口句柄 WindowHandle := WindowFromPoint(MousePoint)// 去掉密码属性 Edit1.Text:=GetWindowText(WindowHandle,true)endend.在搜索引擎上搜索:cfxy 晨风星号密码查看器晨风星号密码查看器支持winxp、win7等所有windows平台,不但支持查看Outlook、FTP等桌面软件窗口下的密码,也支持查看Gmail、yahoo等网页式星号密码,还支持找回宽带拨号密码以及存储在路由器中的ADSL密码。此软件体积小,运行快, *** 作简便,是目前网上已知的最强大的星号密码查看器。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)