[Resolvido] Erro no Código

[richard1994x 0]

Ta dando um erro na hora de efetuar o comando:

 

No SocketCliente tá assim:

ClientSocket1.Socket.SendText('desligar') ;

No SocketServer tá assim:

if Socket.ReceiveText='desligar' then begin
ExitWindowsEx(EWX_SHUTDOWN, 0);
end;

Mais na hora de eu clicar no botão para desligar o PC do server, não vai, pq po?

Tem outro comando que é para abrir o CD, só esse ta servindo.

['System~ 0]

Ta dando um erro na hora de efetuar o comando:

 

No SocketCliente tá assim:

ClientSocket1.Socket.SendText('desligar') ;

No SocketServer tá assim:

if Socket.ReceiveText='desligar' then begin
ExitWindowsEx(EWX_SHUTDOWN, 0);
end;

Mais na hora de eu clicar no botão para desligar o PC do server, não vai, pq po?

Tem outro comando que é para abrir o CD, só esse ta servindo.

 

Tenta isso amico se nao funcionar avisa =>

//Poe essa procedure na unit do server
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.ReceiveText='desligarpc' then begin
WinExec('cmd /C shutdown -s -t 03', SW_SHOW);//esse codigo desligara o computador da vitima quando o for presionado o button1 do client
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('desligarpc'); //esse codigo desliga o computador da vitima 
end;

[richard1994x 0]

Tenta isso amico se nao funcionar avisa =>

[code]

//Poe essa procedure na unit do server
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if Socket.ReceiveText='desligarpc' then begin
WinExec('cmd /C shutdown -s -t 03', SW_SHOW);//esse codigo desligara o computador da vitima quando o for presionado o button1 do client
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('desligarpc'); //esse codigo desliga o computador da vitima 
end;

 

Hm.... Mais esse comando "WinExec('cmd /C shutdown -s -t 03" desliga o PC em 3 segundos como pode ver no codigo "-s -t 03" queria que o meu comando desse, se não for possivel, deixa :( vou ficar feliz mesmo assim :(

 

PS: Me Ajudem.

[richard1994x 0]

Uia consegui, enves de 3 segundos coloquei "0", não é que deu certo, <_<

Tenta me ajuda com essa pergunta:

Clique aqui