WEB开发网
开发学院软件开发Delphi 远程控制篇:模拟按键 阅读

远程控制篇:模拟按键

 2006-02-04 13:25:28 来源:WEB开发网   
核心提示:远程控制篇:模拟按键模拟鼠标鼠标移动(移动量dx,dy)mouse_event(MOUSEEVENTF_MOVE,dx,dy,0, 0 );鼠标在(x,y)处按下或释放setcursorpos(x,y);mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );mouse_event

远程控制篇:模拟按键

模拟鼠标

鼠标移动(移动量dx,dy)
mouse_event(MOUSEEVENTF_MOVE,dx,dy,0, 0 );
鼠标在(x,y)处按下或释放
setcursorpos(x,y);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 );
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 );
鼠标双击由两次按下与释放来模拟

键盘模拟

一般虚拟键值(VK_)由KeyDown或keyup事件得到
特殊键值
Tab--9
Shift--16
Ctrl--17
Alt--18
CapsLock--20
Esc--27
Win--91,92
NumLock--144
ScrollLock--145

按下键
keybd_event(key, MapVirtualKey(key, 0 ), KEYEVENTF_KEYUP , 0 );
释放键
keybd_event(key, MapVirtualKey(key, 0 ), 0 , 0 );
以上做法对大多数键有效,少数键要用到不同的值

--------------------------------------------
湖北襄樊  官本和(gbh12345@china.com)  2001.4
详见主页源程序:
http://delphi21cn.yeah.net
http://personal.hb.cninfo.net/~gbh

Tags:远程控制 模拟 按键

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接