基于Delphi的TNMUDP组件实现远程控制.txt

使用网络通信组件TNMUDP和API函数实现对远程计算机的进行重启、关机、锁定鼠标、鼠标解锁、发送消息等控制程序。 
     使用C/S结构，建立一个特殊的远程服务，使用各种控制功能向客户端发送控制命令，控制被控端电脑的各种程序运行。

程序实现

1 受控方程序

    新建一个Form,命名为FrmClient。加入控件NMUDP,命名为CUDP,设其LocalPort为1111,让CUDP监视受控端的1111端口，当有数据发送到该端口时，触发CUDP的OnDataReceived事件；RemotePort设置为2222，当控件CUDP发送数据时，将数据发送到主控机的2222端口，核心代码如下：

     CUDP.ReadBuffer(CtrlCode,NumberBytes);   //读取控制码

    if CtrlCode[0] + CtrlCode[1] +CtrlCode[2] +CtrlCode[3] +CtrlCode[4] + CtrlCode[5] = 'cmouse' then

    begin

        rtForm1 := Form1.BoundsRect;

       MapWindowsPoints(Handle,1,frForm1,2);

      ClipCursor(@rtForm1); //锁定鼠标

     rtScreen := Rect(0,0,Screen.width,Screen.Height);

    ClipCursor(rtScreen); //解锁鼠标

    Application.messageBox(CtrlCode,'收到消息',MB_OK); //发送消息

    ExitWindowsEx(EWX_REBOOT,2);//重启计算机

    ExitWindowsEx(EWX_SHUTDOWN AND EWX_POWEROFF,1)    //关闭计算机