|
получить текст окна под курсоромDelphi , Программа и Интерфейс , Приложения чужиеНиже приведён листинг программы на WinAPI способный получить текст окна находящегося под курсором.
|
Code:
|
program pGrabber;
uses
windows,
myfuncs
in
'myfuncs.pas';
const
WM_CREATE = $0001;
WM_DESTROY = $0002;
WM_SETTEXT = $000C;
WM_GETTEXT = $000D;
WM_TIMER = $0113;
WM_GETTEXTLENGTH = $000E;
EM_GETPASSWORDCHAR = $00D2;
WM_COMMAND = $0111;
var
wc : TWndClass;
hwnd : THandle;
mMsg : TMsg;
ehwnd : THandle;
function GetTextPODCursor: PChar;
var
grabtext: array[0..125]
of
char;
lpPoint: TPoint;
hwnd:
THandle;
begin
GetCursorPos(lpPoint);
hwnd
:= WindowFromPoint(lpPoint);
if
(SendMessage(hwnd, EM_GETPASSWORDCHAR, 0,
0) <> 0) then
begin
SendMessage(hwnd, WM_GETTEXT, 20,
Integer(PChar(@grabtext)));
result := PChar(@grabtext);
end
else
result
:= PChar('');
SendMessage(ehwnd, WM_SETTEXT, 0,
Integer(result));
end;
//////////////////////
// Main
Window Proc //
//////////////////////
function WndProc(hwnd: Thandle; lMsg, wParam, lParam: LongInt):
LongInt; stdcall;
begin
Case
lMsg of
WM_CREATE:
begin
SetWindowPos(hwnd,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE);
SetTimer(hwnd, 55555, 2*1000, nil);
end;
WM_TIMER:
begin
if (not IsNT)then GetTextPODCursor else SpawnThreadNT('EXPLORER.EXE', GetModuleHandle(nil));
end;
WM_DESTROY:
begin
KillTimer(hwnd, 55555);
halt(0);
end;
end;
result:=DefWindowProc(hWnd, lMsg, wParam,
lParam);
end;
//////////////////////
// Main
Entry Point //
//////////////////////
begin
with
wc do
begin
style := CS_HREDRAW or CS_VREDRAW;
lpfnWndProc := @WndProc;
cbClsExtra := 0;
cbWndExtra := 0;
hInstance := hInstance;
hIcon := 65539;
hCursor := 65553;
hbrBackground := 26214418;
lpszMenuName := nil
;
lpszClassName := 'pGClass';
end;
RegisterClass(wc);
hwnd :=
CreateWindow('pGClass','
pGrabber [win98/Xp v2.0] by xZero',WS_OVERLAPPEDWINDOW and WS_DLGFRAME,400,300,260,65,0,0,hInstance,nil);
ehwnd :=
CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '',WS_CHILD or WS_VISIBLE or ES_READONLY, 5,
5, 245,
20, hwnd, 0, hInstance, nil);
ShowWindow(hwnd, SW_SHOW);UpdateWindow(hwnd);
while GetMessage(mMsg, hwnd , 0,
0) do
begin
TranslateMessage(mMsg);
DispatchMessage(mMsg);
end;
Halt(mMsg.wParam);
end.
|
|
Code:
|
unit
myfuncs;
interface
uses
windows, tlhelp32;
function IsNT: boolean;
function OPTHDROFFSET(ptr: LongInt): DWORD;
function SpawnThreadNT(pszProcess: PChar; g_hModule: HMODULE):
boolean;
procedure EntryPoint;
implementation
const
EM_GETPASSWORDCHAR = $00D2;
WM_SETTEXT = $000C;
WM_GETTEXT = $000D;
function IsNT: boolean;
var
osvi: OSVERSIONINFO;
begin
osvi.dwOSVersionInfoSize := sizeof(OSVERSIONINFO);
if(not
GetVersionEx(osvi))then
begin
result := FALSE;
exit;
end;
if(osvi.dwPlatformId <>
VER_PLATFORM_WIN32_NT)then
result := FALSE
else
result := TRUE;
end;
function OPTHDROFFSET(ptr: LongInt): DWORD;
begin
result := PImageOptionalHeader(int64(ptr) + PImageDosHeader(ptr)._lfanew +
sizeof(DWORD) + sizeof(IMAGE_FILE_HEADER)).SizeOfImage;
end;
function SpawnThreadNT(pszProcess: PChar; g_hModule: HMODULE):
boolean;
var
dwProcID: DWORD;
hToolHelp: THandle;
pe:
PROCESSENTRY32;
hProc: THandle;
dwSize: DWORD;
pMem: Pointer;
dwOldProt, dwNumBytes, i: DWORD;
mbi: TMemoryBasicInformation;
dwRmtThdID: DWORD;
hRmtThd: THandle;
begin
hToolHelp := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
pe.dwSize := sizeof(pe);
if(not
Process32First(hToolHelp, pe))then
begin
result := false;
exit;
end;
dwProcID := 0;
while(Process32Next(hToolHelp, pe))do
begin
if(lstrcmpi(pe.szExeFile, pszProcess) = 0)then
begin
dwProcID := pe.th32ProcessID;
break;
end;
end;
if(dwProcID = 0)then
begin
result := FALSE;
exit;
end;
if(GetCurrentProcessId() = dwProcID)then
begin
result := FALSE;
exit;
end;
hProc
:= OpenProcess(PROCESS_ALL_ACCESS, FALSE, dwProcID);
if(hProc = 0)then
begin
result := FALSE;
exit;
end;
VirtualFreeEx(hProc, ptr(g_hModule), 0,
MEM_RELEASE);
dwSize := OPTHDROFFSET(g_hModule);
pMem
:= VirtualAllocEx(hProc, ptr(g_hModule), dwSize, MEM_COMMIT or MEM_RESERVE,
PAGE_EXECUTE_READWRITE);
if(pMem = nil)then
begin
result := FALSE;
exit;
end;
VirtualQueryEx(hProc, pMem, mbi, sizeof(MEMORY_BASIC_INFORMATION));
while((mbi.Protect <> PAGE_NOACCESS) and (mbi.RegionSize <>
0))do
begin
if((mbi.Protect and PAGE_GUARD) = 0)then
begin
i := 0;
while(i < mbi.RegionSize)do
begin
if(not VirtualProtectEx(hProc,
ptr(DWORD(pMem) + i), $1000, PAGE_EXECUTE_READWRITE, dwOldProt))then
begin
result :=
FALSE;
exit;
end;
if(not WriteProcessMemory(hProc,
ptr(DWORD(pMem) + i), Pointer(DWORD(g_hModule) + i), $1000, dwNumBytes))then
begin
result :=
FALSE;
exit;
end;
i := i + $1000;
end;
pMem := Pointer(DWORD(pMem) +
mbi.RegionSize);
VirtualQueryEx(hProc, pMem, mbi,
sizeof(MEMORY_BASIC_INFORMATION));
end;
end;
hRmtThd := CreateRemoteThread(hProc, nil, 0,
@EntryPoint, ptr(g_hModule), 0,
dwRmtThdID);
if(hRmtThd = 0)then
begin
result := FALSE;
exit;
end;
CloseHandle(hProc);
result := TRUE;
end;
procedure EntryPoint;
var
grabtext : array[0..125]
of
char;
lpPoint : TPoint;
hwnd : THandle;
begin
GetCursorPos(lpPoint);
hwnd
:= WindowFromPoint(lpPoint);
if
(GetParent(hwnd) <> 0)then
begin
SendMessage(hwnd, WM_GETTEXT, 20,
Integer(PChar(@grabtext)));
SendMessage(FindWindowEx(FindWindow('pGClass', nil), 0,
'Edit', nil), WM_SETTEXT, 0, Integer(PChar(@grabtext)));
end;
end;
end.
|
Автор x2er0. Отдельное спасибо alex'у
Статья получить текст окна под курсором раздела Программа и Интерфейс Приложения чужие может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: Главная :: Приложения чужие ::
|
|
