能够查看***密码框内容的程序(200分)

cocia · 2000-05-10

我用winsign32, 好象在有的地方好使, 有的地方不好使,例如nt的用户管理器. 不知是什么原因!

黄耀彰 · 2000-05-15

不知何时做的。源码加详解。 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Label1: TLabel;     Edit1: TEdit;     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var   Name

Char;//名字   L:integer; //名字的长度 begin   L:=GetWindowTextLength(Edit1.handle)+1;   //得到名字长度，并将长度加1   GetMem(Name,L);//为将要得到的名字分配内存   GetWindowText(Edit1.handle,Name,L);//得到名字   Label1.Caption :=String(Name);//将得到的名字显示于Label1   FreeMem(Name,0);//释放分配的内存 end; end.

lhq123 · 2000-05-15

以上办法行不通！尤其是Internet属性中连接中的密码框无法查看！

SuperMMX · 2000-05-15

对于 edit 不能用 GetWindowText, 只能用 WM_GETTEXT, msdn 上说的。

康夫 · 2000-05-15

对于 Delphi 下的，下面几句即可： Edit2.Text := Edit1.Text;         // Edit2 可见 Label1.Text := Edit1.Text;        // Label1 可见 Edit1.PasswordChar := #0;         // Edit1 可见 对于其他窗口的Edit,要略微复杂一些，大概步骤如下： 1.找到响应窗口的 Handle, 可用 FindWindow 或枚举 EnumWindows; 2.找到该窗口下所有子窗口的 Handle, 可用枚举 EnumChildWindows; 3.对于每一个子Handle, 判断是否为Edit编辑框，可用 GetWindowClass; 4.如果是Edit编辑框,发送如下消息：   SendMessage(EditHandle, EM_SETPASSWORDCHAR, 0, 0); OK;

cbb · 2000-07-28

简易型，反正能看**** 当然不能用getwindowtext(),而只能用WM_GETTEXT。 建一个定时器和一个memo框，在定时器内输入如下内容，即实现属标指到哪儿， memo中就显示该窗口的标题信息（不管是不是密码框内的信息，全显示）。 procedure TForm1.Timer1Timer(Sender: TObject); var   cursorpoint:TagPOINT;   windowhandle:hwnd;   textmaxlength:integer;   textcontent:array[0..100] of char;   returnlength:word; begin   textmaxlength:=100;   Memo1.lines.clear;   if GetCursorPos(cursorpoint) then     begin       Memo1.Lines.Add(format('光标位置x=%d，y=%d',[cursorpoint.x,cursorpoint.y]));       windowhandle:=windowfrompoint(cursorpoint);       if windowhandle<>null then         Memo1.Lines.Add(format('光标处窗口名柄号为%d',[windowhandle]));       if iswindow(windowhandle) then         returnlength:=SendMessage(windowhandle,WM_GETTEXT,textmaxlength,lparam(@textcontent));       if returnlength>0 then         begin           Memo1.Lines.Add('读到窗口标题为：');           Memo1.Lines.Add(textcontent);         end;     end; end; 哈哈，过了这么久，我来写个源代码！ 初来此地，刚在网易发过此文，就被告知有这么个好地方

sprite · 2000-08-07

Hi cbb  你的程序有问题的说  例如共享密码就没法看  我想原因是由于它是某窗口的子窗口HANDLE不能直接得到  于是我用了CHILDWINDOWFROMPOINT却发现仍有点问题  当同级的EDIT在BUTTON的上方时只能找出BUTTON的HANDLE  我也想不出办法  希望高手指教

jingtao · 2000-08-09

我的网上有原程序 http://Lovejingtao.126.com

jingtao · 2000-09-19

rogram password; {$APPTYPE console} uses   windows,   messages; {$R *.RES} const s: boolean = true; //置循环标志 var   pass_edit_hwnd: hwnd; //密码窗口句柄   p: tpoint;  //鼠标坐标 begin   writeln;   writeln('**************************************************************************');   writeln;   writeln('     星号*密码破解器');   writeln('     使用方法:将鼠标移动到密码框,密码就会自动现型!');   writeln('     按 Ctrl+C 退出程序。');   writeln('                            ///|///                               ');   writeln('                             //  - -  //                          ');   writeln('                              (  @ @ &nbsp

');   writeln('     +----------------------oOOo-(_)-oOOo---------------------+   ');   writeln('     |                                                        |   ');   writeln('     |  若在使用过程中发现任何问题或有新的想法请及时与我联系: |   ');   writeln('     |  430074湖北省武汉市武昌民院路湖北经济管理大学计算机系  |   ');   writeln('     |        (本)9803班                                      |   ');   writeln('     |  主页:http://lovejingtao.126.com                       |   ');   writeln('     |  E-MAIL: lovejingtao@21cn.com                          |   ');   writeln('     |                                                        |   ');   writeln('     |                               Oooo   陈经韬  2000.07   |   ');   writeln('     +---------------------- oooO---(   )---------------------+   ');   writeln('                             (   )   ) /                          ');   writeln('                              / (   (_/                           ');   writeln('                               /_)                                ');   writeln;   writeln('**************************************************************************');   writeln;   while s <> false do begin     getcursorpos(p);     pass_edit_hwnd := WindowFromPoint(p);     SendMessage(pass_edit_hwnd, EM_SETPASSWORDCHAR, 0, 0);     SendMessage(pass_edit_hwnd, WM_PAINT, 0, 0);     SendMessage(pass_edit_hwnd, WM_KILLFOCUS, 0, 0);     SendMessage(pass_edit_hwnd, WM_SETFOCUS, 0, 0);     sleep(1000);   end; end.

zyy04 · 2000-09-19

怎么没人尝试监控键盘操作呢？？？

bodhisattva · 2000-09-19

OH,my god! They are all carzy !

Bcbhua · 2000-09-21

char szBuffer[256]; HWND EditHandle; 用WindowFromPoint得到密码窗体的句柄后，用： SendMessage(EditHandle,EM_GETPASSWORDCHAR,szBuffer,255); 搞定!!!

lhq456 · 2000-10-02

接受答案了.

能够查看***密码框内容的程序(200分)

cocia

Unregistered / Unconfirmed

黄耀彰

Unregistered / Unconfirmed

lhq123

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

康夫

Unregistered / Unconfirmed

cbb

Unregistered / Unconfirmed

sprite

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

zyy04

Unregistered / Unconfirmed

bodhisattva

Unregistered / Unconfirmed

Bcbhua

Unregistered / Unconfirmed

lhq456

Unregistered / Unconfirmed

Similar threads