在对等网中，如何实现一台计算机对其他计算机的远程控制？

Question

代码我没有，不过用netmeeting 可以操作对方的计算机 如：控制另一台机器的鼠标等等。

Answer 1

clientprocedure TForm1.ToolButton1Click(Sender: TObject); //重启
var
RegCode:array[0..29] of char;
RegCodeStr:string;
begin
 RegCodeStr:='reboot';
 StrpCopy(RegCode,RegCodeStr);
 NMUDP1.RemotHost:=Edit1.Text;
 NMUDP1.SendBuffer(RegCode,30);
end;
serverprocedure TForm1.NMUDP1DataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var
CtrlCode:array[0..250] of char;
begin
 NMUDP1.ReadBuffer(CtrlCode,NumberBytes);
 sendhost:=FromIP;
 if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4] +CtrlCode[5]
  ='reboot' then exitwindowsex(2,0);//重新启动电脑 …………举个例子

Answer 2

clientsocket,serversocket可以
NMUDP也可以