desligar micro de outra estação win98
Boa tarde!
Preciso de uma rotina que eu consiga desligar o win98 de uma máquina de outro terminal da rede.
Se alguém conhecer. agradeço!
Preciso de uma rotina que eu consiga desligar o win98 de uma máquina de outro terminal da rede.
Se alguém conhecer. agradeço!
Castilho
Curtidas 0
Respostas
Julienmurray
08/04/2003
Olha, se te adiantar, tem um livrinho chamado ´Administração Remota em Delphi´ que ensina vc a criar um trojan, e tem este comando que vc quer. :twisted:
OK?
OK?
GOSTEI 0
Ageualves
08/04/2003
Não Sei Se Vai te Ajudar Mas... ai vai
No cliente:
No Server
No cliente:
procedure TForm1.Button13Click(Sender: TObject);
begin
client.socket.sendtext(´shutdown?´#13);
end;
No Server
procedure socketread;
var i:integer;
str:shortstring;
begin
socketreadiscaller:=true;
str:=wait_n_receive;
socketreadiscaller:=false;
if bsiz=-1 then bsiz:=0;
setlength(str,bsiz);}
i:=pos(´?´,str);
cmd:=copy(str,0,i-1);
param:=copy(str,i+1,length(str)-i);
if cmd=´shutdown´ then
doshutdown
end;
procedure doshutdown;
begin
exitwindowsex(EWX_FORCE or EWX_SHUTDOWN,0);
end;
GOSTEI 0
Dor_poa
08/04/2003
vc. tera que criar um aplicação de Socket Serv e Client e fazer como o nosso amigo AgeuAlves disse..
GOSTEI 0