获得外部应用程序文本输入框中的内容(100分)

暴雨 · 2003-02-12

怎么通过一个应用程序中的文本输入框的句柄获得里面已经存在的内容呢？ （例如捕获到某个运行中的delphi编制的程序中的edit1.text。但 该程序不一定是delphi编制的，注意一般性。）

DEN · 2003-02-12

你想做什么？请给我妹儿。 Rain_Alinn@163.net

人在昆明 · 2003-02-12

getwindowtext()

独帅 · 2003-02-12

var   len: Integer;   value: String; begin   len := SendMessage(edtHandle, WM_GETTEXTLENGTH, 0, 0);   setLength(value, len);   SendMessage(edtHandle, WM_GETTEXT, len+1, LongInt(value)); end; //edtHandle是文本输入框的句柄 //value中的内容就是

人在昆明 · 2003-02-12

写错了，getwindowtext() 是获取窗口的， 还是看独帅的吧，不过这种方法2000下去不到密码框的东西。

春意 · 2003-02-12

//================================================================= //程序：截取信息 //制作：春意 delphi制作 Email:yanchunyi@163.com //注：(请保留以上内容) //================================================================= //所用控件：Button1、Button2、Timer1、Edit1 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Button1: TButton;     Button2: TButton;     Timer1: TTimer;     procedure FormCreate(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin     Button1.Caption := '开始';     Button2.Caption := '停止';     Timer1.Interval := 100;     Timer1.Enabled := false; end; procedure TForm1.Timer1Timer(Sender: TObject); var     hwndfore,hwndfocus:hwnd; //窗口、控件句柄     dwThreadid

WORD;//线程、风格     content:array[0..255]of char; begin     hwndfore := getforegroundwindow();     dwThreadid := getwindowthreadprocessid(hwndfore,nil);     attachThreadinput(Getcurrentthreadid(),dwThreadid,true);     hwndfocus := getfocus();     sendmessage(hwndfocus,WM_GETTEXT,100,LongInt(@content));     //判断，密码框除外     Edit1.Text :=content; end; procedure TForm1.Button1Click(Sender: TObject); begin     Timer1.Enabled := true; end; procedure TForm1.Button2Click(Sender: TObject); begin     Timer1.Enabled := false; end; end.

Nicro · 2003-02-12

可以实现在2000看到密码框内的内容吗？

人在昆明 · 2003-02-13

问：可以实现在2000看到密码框内的内容吗？ 答：可以

暴雨 · 2003-02-13

问：可以实现在2000看到密码框内的内容吗？ 答：可以 上面两段代码都不能看到win2000的密码，我在delphi6.0 @ win2000下调试过。

人在昆明 · 2003-02-13

你问的是 “可以实现在2000看到密码框内的内容吗？” 我答的是 “可以” 从头到尾我没说过用那段代码呀，呵呵，

sentiment · 2003-02-13

人在昆明很无聊。

人在昆明 · 2003-02-13

引用这个单元，看看他公布的函数，就知道啦，可以取2000 的* 采用了线程注入。 unit ReadWndText; interface uses   Classes, Windows, Messages; const   MAX_THREAD_SIZE = $FF * $4;   // type define,here type   TSendMessageProc = function(hWnd: THandle;     uMsg: UINT;     wParam: LongInt;     lParam: LongInt): LRESULT; stdcall;   TThreadData = record     hWnd: THandle;     AddrOfSendMSG: TSendMessageProc;     Text: Pointer;     TextLen: Integer;   end;   PThreadData = ^TThreadData;   // export function define,here function ReadWindowText(hWnd: THandle; buf: PChar; var len: Integer): Boolean; implementation function threadFunc(P: Pointer): DWORD; stdcall; var   PData: PThreadData; begin   if (P = nil) then   begin     Result := 0;     Exit;   end;   PData := PThreadData(P);   PData^.AddrOfSendMSG(PData^.hWnd,     WM_GETTEXT,     PData^.TextLen,     LongInt(@PData^.Text));   Result := PData^.TextLen; end; function ReadWindowText(hWnd: THandle; buf: PChar; var len: Integer): Boolean; var   threadID: DWORD;   ProcID: DWORD;   hProc: THandle;   pThreadAddr: Pointer;   pParamAddr: Pointer;   pTextBuf: Pointer;   dwThreadID, dwBufWrite, dwBufRead: DWORD;   hThread: THandle;   bWrite: BOOL;   pParam: PThreadData;   hMod: THandle; label   Cleanup; begin   GetWindowThreadProcessId(hWnd, ProcID);   if (ProcID = 0) then   begin     Result := False;     Exit;   end;   hProc := OpenProcess(PROCESS_ALL_ACCESS, False, ProcID);   if (hProc = 0) then   begin     Result := False;     Exit;   end;   // alloc a space in object process virtual memory   pThreadAddr := VirtualAllocEx(hProc,     nil,     MAX_THREAD_SIZE,     MEM_COMMIT or MEM_RESERVE,     PAGE_EXECUTE_READWRITE);   if (pThreadAddr = nil) then   begin     Result := False;     goto Cleanup;   end;   // write address of threadFunc in virtual memory   bWrite := WriteProcessMemory(hProc,     pThreadAddr,     @threadFunc,     MAX_THREAD_SIZE,     dwBufWrite);   if not bWrite then   begin     Result := False;     goto Cleanup;   end;   //   hMod := LoadLibrary('User32.dll');   //   pTextBuf := VirtualAllocEx(hProc,     nil,     len,     MEM_COMMIT,     PAGE_EXECUTE_READWRITE);   pParamAddr := VirtualAllocEx(hProc,     nil,     sizeof(TThreadData),     MEM_COMMIT,     PAGE_EXECUTE_READWRITE);   GetMem(pParam, sizeof(TThreadData));   pParam^.hWnd := hWnd;   pParam^.Text := pTextBuf;   pParam^.AddrOfSendMSG := GetProcAddress(hMod, 'SendMessageA');   pParam^.TextLen := len;   if (pParamAddr = nil) then   begin     Result := False;     goto Cleanup;   end;   bWrite := WriteProcessMemory(hProc,     pParamAddr,     pParam,     sizeof(TThreadData),     dwBufWrite);   if not bWrite then   begin     Result := False;     goto Cleanup;   end;   //   hThread := CreateRemoteThread(hProc, nil, 0, pThreadAddr, pParamAddr, 0,     dwThreadID);   if (hThread = 0) then   begin     Result := False;     goto Cleanup;   end;   WaitForSingleObject(hThread, INFINITE);   ReadProcessMemory(hProc, pParamAddr, pParam, sizeof(TThreadData), dwBufRead);   if (dwBufRead <= 0) then   begin     Result := False;     Exit;   end;   CopyMemory(buf, @pParam^.Text, Len);   Result := True;   Cleanup:   if (pTextBuf <> nil) then     VirtualFreeEx(hProc, pTextBuf, MAX_THREAD_SIZE, MEM_RELEASE);   if (pParamAddr <> nil) then     VirtualFreeEx(hProc, pParamAddr, sizeof(TThreadData), MEM_RELEASE);   if (pThreadAddr <> nil) then     VirtualFreeEx(hProc, pThreadAddr, MAX_THREAD_SIZE, MEM_RELEASE);   if (hProc <> 0) then     CloseHandle(hProc);   if (hMod <> 0) then     FreeLibrary(hMod); end; end.

wuan · 2003-02-13

先获得编辑框（edit）的句柄，再用 sendmessage（hwnd，wm_setfocus,0,0);  // 使之聚焦 sendmessage（hwnd，em_setsel,0,20); //选择编辑框中的第1到第21字符  sendmessage（hwnd，wm_copy,0,0);  //将选择的字符复知道剪贴板 if clipboard.hasformat(cf_text) then edit1.text:=clipboard.astext ;        //将剪贴板上的数据赋值给你自己程序的编辑框。        别忘了在uses 中对clipbrd单元的引用。   如果edit是密码框，可以在使之聚焦前用 sendmessage（hwnd，wm_setpasswordchar,0,0); //使框中的字符直接显示   通常的密码探测就是利用这一句，2000中可不可以我没试过。我得老机已伴我5年了 不能用2000。     我做了2个密码探测器（一个vb做的，一个用戴妃(delphi)做的），很长时间了， 就是利用上述技术    谁想研究我可以give you free! then  your Email is .......?

获得外部应用程序文本输入框中的内容(100分)

暴雨

Unregistered / Unconfirmed

DEN

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

春意

Unregistered / Unconfirmed

Nicro

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

暴雨

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

sentiment

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

wuan

Unregistered / Unconfirmed

Similar threads