Fórum desligar micro de outra estação win98 #152974
08/04/2003
0
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
Curtir tópico
+ 0
Responder
Posts
08/04/2003
Julienmurray
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?
Responder
Gostei + 0
08/04/2003
Ageualves
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;
Responder
Gostei + 0
09/04/2003
Dor_poa
vc. tera que criar um aplicação de Socket Serv e Client e fazer como o nosso amigo AgeuAlves disse..
Responder
Gostei + 0