怎么把一个电脑的鼠标键盘事件广播到另一台电脑上执行?

ss 2002-11-07 09:26:26
怎么把一个电脑的鼠标键盘事件广播到另一台电脑上执行?

完全相同的执行!

500分:谢谢!
...全文
33 11 打赏 收藏 举报
写回复
11 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
nicolas2001 2002-11-20
up up up up up up up up up up up up up
  • 打赏
  • 举报
回复
YP2002CN 2002-11-14
我的比較笨的方法
鍵盤碼->對應的命令表
把你的鍵盤代碼用命令體的形式廣播.
接收方..解析這個命令..從命令表裡面找對應關係..然後發送到程序執行.

..
  • 打赏
  • 举报
回复
up
  • 打赏
  • 举报
回复
up
  • 打赏
  • 举报
回复
up
  • 打赏
  • 举报
回复
ss 2002-11-12
up!
  • 打赏
  • 举报
回复
ss 2002-11-08
up
  • 打赏
  • 举报
回复
ss 2002-11-07
我的delphi代码,效果不对。

procedure TForm1.NMUDPDataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
strGet :array[1..255] of Char;
strTmp :string;
sx,sy :integer;
j,k :integer;
begin
NMUDP.ReadBuffer(strGet,NumberBytes);
if strGet[1]<>'#' then Exit;

Case strGet[2] of
'M' :begin
sx:=0;
sy:=0;
For j:=4 to NumberBytes do begin
if strGet[j]='*' then begin
strTmp:='';
for K:=4 to j-1 do
strTmp:=strTmp+ strGet[k];
sx:=StrToInt(strTmp);

strTmp:='';
for K:=j+1 to NumberBytes do
strTmp:=strTmp+strGet[k];
sy:=StrToInt(strTmp);
end;
end;

Case strGet[3] of
'1':Begin //左键按下
setcursorpos(sx,sy);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
end;
'2':Begin //左键松开
setcursorpos(sx,sy);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
end;
'3':Begin //右键按下
setcursorpos(sx,sy);
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 );
end;
'4':Begin //右键松开
setcursorpos(sx,sy);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 );
end;
'5':Begin //鼠标双击
setcursorpos(sx,sy);
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
end;
'6':Begin //普通移动
sX := (sX div Width) * m_Scale;
sY := (sY div Height) * m_Scale;
mouse_event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, sx, sy, 0, 0 );
end;
end;
end;
'K':
Case strGet[3] of
'1': begin //按下
strTmp:='';
for K:=4 to NumberBytes do
strTmp:=strTmp+strGet[k];
keybd_event(StrToInt(strTmp), 0, 0, 0 );
end;
'2': begin //松开
strTmp:='';
for K:=4 to NumberBytes do
strTmp:=strTmp+strGet[k];
keybd_event(StrToInt(strTmp), 0, KEYEVENTF_KEYUP, 0 );
end;
end;
end;
end;
  • 打赏
  • 举报
回复
yousen 2002-11-07
键盘事件模拟:
VOID keybd_event(
BYTE bVk, // virtual-key code
BYTE bScan, // hardware scan code
DWORD dwFlags, // function options
ULONG_PTR dwExtraInfo // additional keystroke data
);
鼠标事件模拟:
VOID mouse_event(
DWORD dwFlags, // motion and click options
DWORD dx, // horizontal position or change
DWORD dy, // vertical position or change
DWORD dwData, // wheel movement
ULONG_PTR dwExtraInfo // application-defined information
);
  • 打赏
  • 举报
回复
rivershan 2002-11-07
木马~?
  • 打赏
  • 举报
回复
leojay 2002-11-07
你在本机做一个消息的HOOK,负责HOOK消息,然后发到另一台机子,在另一台机子中的一个程序负责产生相同的消息。

这样就可以了,其它的办法我想没了。
  • 打赏
  • 举报
回复
发帖
VC/MFC
加入

1.6w+

社区成员

VC/MFC相关问题讨论
社区管理员
  • 基础类社区
  • Web++
  • encoderlee
申请成为版主
帖子事件
创建了帖子
2002-11-07 09:26
社区公告

        VC/MFC社区版块或许是CSDN最“古老”的版块了,记忆之中,与CSDN的年龄几乎差不多。随着时间的推移,MFC技术渐渐的偏离了开发主流,若干年之后的今天,当我们面对着微软的这个经典之笔,内心充满着敬意,那些曾经的记忆,可以说代表着二十年前曾经的辉煌……
        向经典致敬,或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天,我们期待着MFC技术能够恢复其曾经的辉煌,或许这个期待会永远成为一种“梦想”,或许一切皆有可能……
        我们希望这个版块可以很好的适配Web时代,期待更好的互联网技术能够使得MFC技术框架得以重现活力,……