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!


Castilho

Castilho

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?


Responder

Gostei + 0

08/04/2003

Ageualves

Não Sei Se Vai te Ajudar Mas... ai vai

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar