TartalomFriss hozzászólások
Új fórum témákAktív fórum témákFriss blogbejegyzésekGoogle hirdetésekRSS |
Billlenyomás szimulálása
NZsolt, 2010, május 4 - 00:19
Üdv! ismét Most egy olyan problémába ütköztem, hogy billenytűlenyomást szeretnék szimulálni, de úgy, hogy az csak a programra érvényes, vagyis ha leteszem tálcára akkor is a formon oda szúrja be a karaktereket ahova én megadtam neki koordinátába.A keybd_event parancsal próbáltam, de ez olyan, h ami épp fókuszban van oda illeszti be a karaktert, vagyis ha elindítom és aztán egy böngészőt akkor oda ketd el írni.Remélem értehtő ennél jobban sajnon nem tudtam megfogalmazni. »
|
KeresésBelépésIndex TechPC Fórum
Origo TechbázisSG.hu |
Rájöttem, hogy a
Ezt megoldottam, most egérkattintést szeretnék a háttérben szimulálni, SendMessage(firm_hwnd, WM_LBUTTONDOWN,MK_LBUTTON,MAKELPARAM(100,100)); vhogy így, de ez sem megy.
Balclick szimulása
szuandras
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;
procedure bal_click(x,y:integer);
var Pt:Tpoint;
begin
Pt.x:=x; //itt egy bal_click a megadott x,y koordinátájú helyen
Pt.y:=y;
Pt.x:=Round(Pt.x*(65535/Screen.Width));
Pt.y:=Round(Pt.y*(65535/Screen.Height));
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE,Pt.x,Pt.y,0,0); //pozicionálás
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,Pt.x,Pt.y,0,0);//Balgomb lenyomása
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,Pt.x,Pt.y,0,0); //Balgomb felengedése;
end;