Połączenie internetowe.

0

Jak połączyć/rozłączyć się (połączenie domyślne)z internetem, tak, aby działało to wszystkich typach połączenia(LAN, modem)...

0

cały unit

unit NetFunc;

interface
uses  Windows, wininet;  

procedure polacz;
procedure rozlacz;
function connected:boolean;

implementation

uses Cnet;


// true jeźeli jest połączenie z net-em
function Connected: 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); // sprawdz polaczenie.
end;

{***********************************}
// wybiera domyslne połączenie
procedure Polacz;
var
 dwConnectionTypes: DWORD;
begin
 dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
 if not InternetGetConnectedState(@dwConnectionTypes, 0) then
  //nie połaczony
 if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
 begin
  // błąd
  messagebox(0,'Error :-P','Upssss',MB_ICONERROR);
 end;
end;

{***********************************}
// automatyczne rozłączenie
procedure Rozlacz;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then
  begin // połaczony
   InternetAutodialHangup(0);
  end;
end;


end.
 

działa bo sprawdzałem u siebie :-)

0

Na mojej privatnej sieci radiowej lipa !!

0

Wątpie żeby była możliwości odciecia połączenia z netem jak korzystasz z połączenia poprzez lan. Zostaje zmiana bramy,ale wymaga ponownego uruchomienia kompa :-/ ) albo

WinExec('net stop',SW_HIDE);

, ale to zrywała całkowicie połączenie sieciowe

0

Zostaje zmiana bramy,ale wymaga ponownego uruchomienia kompa

nie wymaga... wczoraj robiłem Linux(s)-WinXP(c) bez problemu po zmanie wszystko działało bez żadnego restartu

0

No to jak wywalić dialog do defaultowego połączenie internetowego??

0

nie wymaga... wczoraj robiłem Linux(s)-WinXP(c) bez problemu po zmanie wszystko działało bez żadnego restartu

No to jeszcze pozostaje Win NT, 9x i ME :p

No to jak wywalić dialog do defaultowego połączenie internetowego??

To jest jakiś plik .cpl, poszukaj go w %WinDir%\System32, a potem jak normalny plik otwórz, jeżeli chodzi ci o lan. Połączenie modemowe jest opisane w FAQ

0

A co mnie tam modemowe obchodzi.... tyle co zeszłoroczny śnieg.

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