chcę napisać własnego dialera (tzn. program do łączenia z internetem) a nie durne 0-700 jak pomyśli połowa z was :)
czy ktoś wie jak się za to zabrać?
0
0
Ja bym zaczął od poszukania w rejestrze gdzie sie znajduja wpisy dotyczące połączenia
0
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.
na forme dajesz dwa butony jakiegoś checkBox'a i najprostszy dialer gotowy [hurra]
0
a gdzie podajesz ustawienia typu numer , login i password
0
nigdzie
wybiera domyslne po-?czenie
0
wolałbym wybrać te dane z poziomu programu
0
argh :-8
A co ja napisałem, poszukaj w rejestrze, edycja->Znajdź i wpisz nazwe użytkownika jaką masz w połączeniu i potem recznie dorobisz do programu dodawanie tam odpoweidnich wpisów
0
musisz przetrząsnąc rejestr