Wykrywanie wejść na stronę

0

Witam społeczność programistów po dość długiej nieobecności.

Interesujące zmiany zaszły w ostatnim czasie ale nie o tym teraz.
Chciałem się spytać czy ktoś gdzieś ma artykuł dotyczący Wykrywania wejść na stronę?
Chce zrobić prosty program wykrywający i zapisujący adres strony. Taka prosta historia ale niezależna od przeglądarki.
Kilka lat temu był tutaj taki artykuł a teraz nie wiem gdzie się podział

Pozdrawiam,
Stylap

0

pisz "wyraźniej"
Wejść na twoją stronę?
Wejść z twojego komputera na strony?

0

Dziękuje za szybką odpowiedź.
Ok już mówię.
Chodzi o wykrycie wejścia na DOWOLNĄ stronę internetową. Niezależnie od przeglądarki. Taka prosta historia zapisująca właśnie odwiedzoną stronę.

0

To można teoretycznie przerobić. Problem w tym, że nie wszystkie przeglądarki podają na belce adres www.

{Wykorzystanie sprawdzenia adresu po istnieniu okna i otwarcie innej strony.
Poniższy przykład, sprawdza czy otworzono w przeglądarce Internet Explorer,
FireFox lub Opera stronę serwisu www.wp.pl .
Jeśli tak to zamykane jest okno przeglądarki i otwierane nowe ze stroną www.onet.pl }

uses ShellApi;

function OknoIstnieje(Nazwa: string): Boolean;
var
 txt: THandle;
begin
 Result := False;
 txt := FindWindow(nil, pchar(Nazwa));
 if txt <> 0 then Result := True;
end;

{Wstaw teraz poniższy kod do TTimer ze sprawdzaniem np.: co 5000 ms}
procedure TForm1.Timer1Timer(Sender: TObject);
var
 Adres: string;
 IE, FF, OP: string;
begin
 IE := ' - Microsoft Internet Explorer';
 FF := ' - Mozilla Firefox';
 OP := ' - Opera';

 {Deklaracja tytułu serwisu}
 Adres := 'Wirtualna Polska - www.wp.pl';

 if OknoIstnieje(Adres + IE) then
   begin
    PostMessage(FindWindow(nil, pchar(Adres + IE)), WM_CLOSE, 0, 0);
    Application.ProcessMessages;
    ShellExecute(Handle, 'open', 'iexplore.exe', 'http://www.onet.pl/', nil, SW_SHOWNORMAL);
   end
 else
 if OknoIstnieje(Adres + FF) then
   begin
    PostMessage(FindWindow(nil, pchar(Adres + FF)), WM_CLOSE, 0, 0);
    Application.ProcessMessages;
    ShellExecute(Handle, 'open', 'firefox.exe', 'http://www.onet.pl/', nil, SW_SHOWNORMAL);
   end
 else
 if OknoIstnieje(Adres + OP) then
   begin
    PostMessage(FindWindow(nil, pchar(Adres + OP)), WM_CLOSE, 0, 0);
    Application.ProcessMessages;
    ShellExecute(Handle, 'open', 'opera.exe', 'http://www.onet.pl/', nil, SW_SHOWNORMAL);
   end;
end;
0

gdzies w necie jest sniffer napisany w delphi + źródła.
on to potrafi. poszukaj. bylo chyba nawet na forum kiedys.

1 użytkowników online, w tym zalogowanych: 0, gości: 1