Jak połączyć/rozłączyć się (połączenie domyślne)z internetem, tak, aby działało to wszystkich typach połączenia(LAN, modem)...
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 :-)
Na mojej privatnej sieci radiowej lipa !!
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
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
No to jak wywalić dialog do defaultowego połączenie internetowego??
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
A co mnie tam modemowe obchodzi.... tyle co zeszłoroczny śnieg.