niedawno pojawill sie tu temat licznika polaczen modemowych.
zaciekawilo mnie to troszke, wiec mam pewne pytanie:
program "Licznik" uruchomiony jest przy starcie windowsa.
jak wykryc moment, w ktorym uzytkownik laczy sie z internetem
(nie przez "Licznik") i w tym momencie odpalic zegar?
[cya]
Poszukaj źródeł Bankruta.
http://surgimed.com.pl/bankrut
Jaki jestem miły, linka podałem :)
Ja swego czasu pisałem taki programik, wykrywanie połączenia zrobiłem sobie tak (choć to dość nieelegancki sposób, to jednak działał) :
if ip '192.0.0.1' then POLACZONY := True;
(oczywiście działa to tylko wtedy gdy masz sam modem, bez żadnych innych np kart sieciowych, które mogą zmienić nasze ip)
if ip '192.0.0.1' then POLACZONY := True;
a dlaczego 192.0.0.1? nie powinno być 127.0.0.1?
if ip '192.0.0.1' then POLACZONY := True;
ale czy to bedzie dzialalo, gdy program bedzie w ukryciu?
Robisz funkcje która bedzie zwracac wartosc boolean
function con: Boolean;
var
Flags: DWORD;
begin
Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;
Result := InternetGetConnectedState(@Flags, 0);
end;
a pózniej w timerze taki kod(przykładowo)
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if con then
begin
inc(sec);
end;
label1.caption:=inttostr(sec);
if sec>60 then
begin
min:=sec div 60;
label4.caption:=inttostr(min);
end;
if min>60 then
begin
godz:=min div 60;
label6.caption:=inttostr(godz);
end;
end;
oczywiscie najpierw deklaracja zmiennych(globalnych)
sec, min, godz:integer;
A, fajnie sie składa, bo ja zrobiłem taki programik ( o śmiesznej nazwie : Kosztomierz ) do zassania stąd : http://student.uci.agh.edu.pl/~ndevelog/download/kosztomierz12.zip
Ja tam robię taką sztuczkę : co sekunda ( w timerze ) sprawdzam czy jest połączenie ( funkcja na wykrycie połączenia jest gdzieś wyżej ) i jeśli jest to wykonuję instrukcje doliczania czasu, jeśli nie, to walę że użytkownik jest offline...
if ip '192.0.0.1' then POLACZONY := True;
a dlaczego 192.0.0.1? nie powinno być 127.0.0.1?
oczywiście że powinno, mam zaćmienia czasami, przepraszam