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

[ss]

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

完全相同的执行！

500分：谢谢！

[leojay]

你在本机做一个消息的HOOK，负责HOOK消息，然后发到另一台机子，在另一台机子中的一个程序负责产生相同的消息。

这样就可以了，其它的办法我想没了。

[rivershan]

木马~？

[yousen]

键盘事件模拟:
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
);

[ss]

我的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;

[ss]

up

[ss]

up!

[用户 昵称]

up

[用户 昵称]

up

[用户 昵称]

up

[YP2002CN]

我的比較笨的方法
鍵盤碼->對應的命令表
把你的鍵盤代碼用命令體的形式廣播.
接收方..解析這個命令..從命令表裡面找對應關係..然後發送到程序執行.

..

[nicolas2001]

up up up up up up up up up up up up up