Mam pytanie: Jak zrobic cos takiego zeby miejac odpalonego klienta i klikajac na jakas procedure zeby wysylal to do servera i zeby server to wykonal???
Chcialbym np zrobic tak: Odpalam klient, klikam na button i server zmienia rozdzialke.
Z gory dziekuje za pomoc.
Trzybobry!
FAQ, FAQ, FAQ jest to w artykulach o Delphi (kurs pisania backdoorow)! Ale jesli jestesmy za leniwi...
-----ciach-----
OnFormCreate(czy jakos tak)
begin
ServerSocket.Port:=numer_portu;
ServerSocket.Active:=True;
end;
OnClientRead (czy jakos tak)
var
komenda:=ServerSocket.Socket.ReceiveText;
begin
if komenda='jakis tekst' then
begin
ShowMessage('Obiecuje, ze bede czytal FAQ!');
end;
end;
end.
-----ciach-----
Jest to najprostsza i najbardziej prymitywna metoda, ale w miare skuteczna, gdy potrzebujesz wykonac po stronie serwera proste operacje.
P.S.: Wszelkie literowki i pomylki w kodzie wynikaja z faktu, ze pisze z glowy, bo na uczelni nie posiadam Delphi (a po co studentom socjologii, dziennikarstwa lub politologii Delphi [???] ).
Pozdrawiam [cya] !!
DOPISANE
Racja lechu! Jeszcze wysylanie komendy!
Button1Click (czy cos)
begin
ClientSocket.Socket.SendText('jakis_tekst_co_jest_komenda');
end;
Jeśli posiadasz D7 to tam zamiast gniazdek znajdują się TCPClient i TCPServer i jest tam niezła opcja nadania już gotowych komend - szubciutko to i nawet łatwo. Dużo na ten temat znajdziesz w Książce A.Boducha "Ćwiczenia zaawansowane Delphi 7"
To gdzie jest to ten temat/ jak sie nazywa???? Przeszukalem cale FAQ ale znajduje tylko kilka potrzebnych funkcji!
W FAQ nie ma, ale jest artykuł o socketach. Jako FAQ wielu ludzi rozumie nie tylko samo FAQ, ale także Artykuły i Gotowce
w dziale download/ delphi/ zrodla masz plik backdoor.zip sciagnij , zajrzyj do srodka i wszystko stanie sie jasne :)
Michal zapomniales o tym ze jeszcze powinien byc wysylany jakis tekst z ta komenda :)
W sprawach trojanów lub Ad-aware nie pomagajcie mu chyba ze napisze co pisze!!. [cya] [hurra]