Conectar a internet

Delphi

18/07/2003

OLÁ

Preciso de um programa que conecte a minha internet (adsl)
automaticamente, e desconecte um tempo depois.
Sem abrir nenhuma janela de mensagem, pois o usuário não estará na frente do computador

ex:

inicia programa:

conecta a internet

faz funcções

desconecta da internet.

Mostra relatório

fecha programa...

Eu sei fazer tudo, menos conectar e desconectar da internet..
se alguém puder me ajudar..

um abraço

Danilo



[b:fb311f45af]Título editado: ´ONECTAR A INTERNET´[/b:fb311f45af]
Não escreva o título do tópico utilizando caixa alta; além de desagradável, equivale a gritar.
Sandra/Moderação


Danilo_eu

Danilo_eu

Curtidas 0

Respostas

Danilo_eu

Danilo_eu

18/07/2003

Uses
WinInet;



procedure TForm1.Button1Click(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if not InternetGetConnectedState(@dwConnectionTypes, 0) then
// not connected
if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
begin
// error
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if InternetGetConnectedState(@dwConnectionTypes, 0) then
// connected
InternetAutodialHangup(0);
end;[b:94dfe21ba2][/b:94dfe21ba2][i:94dfe21ba2][b:94dfe21ba2][/b:94dfe21ba2][/i:94dfe21ba2]


GOSTEI 0
POSTAR