Fórum Conectar a internet #170104
18/07/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
18/07/2003
Danilo_eu
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]
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]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)