Screen?

Wie moze ktos jak zrobic screena tak jak to jest w trojanach??? a potem pobrania go?

Poszukaj w FAQu na 1000% jest :-)

A na przyszłość najpierw poszukaj potem pytaj.

masz kodzik z mojego programu ;-) ... ale to jest na pewno w FAQ !!

var
Canvas: TCanvas;
B : TBitmap;
begin
try
Canvas := TCanvas.Create;
Canvas.Handle := GetWindowDC(GetDesktopWindow);
B := TBitmap.Create;
B.Width := Screen.Width;
B.Height := Screen.Height;
B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height),
Canvas,
Rect (0, 0, Screen.Width, Screen.Height));
try
B.SaveToFile('');podajesz scieszke oraz nazwe pliku
except
raise Exception.Create('Bład w zapisie pliku...');
end;
finally
Canvas.Free;
B.Free;
end;
end;

OK THX wielkie... dzila!!! ;]]]]

Moze mi jeszcze ktos powiedziec jak to przeslac na swoj PC??

Bo w kliencie pisze bla bla sentex('screen')

a co pisze w serverze aby zgrac plik z c:\screen.jpg??

if komenda := 'screen' then
begin

????
???/

end;

=P

z gory thx za wielka pomoc!

jak chcesz obrazek przeslac textem ??... nio nie wiem ale chyba sie nieda.. zeby przeslac plik musisz sobie zobaczyc w dziale kody zrodlowe.... tam masz pokazane jak przeslac pliki socketami.. pozamieniaj i wyslij a potem w clientsocket odbierz... nie pomoge Ci bo sam do tej pory nie umiem wysylas plikow socketami [wstyd] [wstyd]