none
Como criar ferramenta de autenticação pppoe e controle de conexao para Provedor de Internet RRS feed

  • Pergunta

  • Ola galera,

    Ja virei a internet sobre projetos e informações e nada que achei chega nem perto de ser uma ferramenta como aquela utilizada por grandes provedores tipo Brasil Telecom, GVT, Telefonica, etc. Para conectar-se as suas redes quando se é colocado o modem ADSL em bridge.

    O máximo que consegui foi fazer um simples discador com o comando RASDIAL que funciona somente se o usuário criar o Discador usando o "Assistente para novas conexões".

    Ja li e reli tambem sobre o uso do WinInet, mas peço se esta é a solução, detalhamento como aplicar o seu uso, e nao a definiçao de cada comando, sendo assim, venho aqui pedir mais informações e contribuições sobre como faço um projeto que tenha as seguintes características:

    1. Projeto em Visual Basic de Preferência, mas pode ser em outra linguagem desde que funcione.
    2. Crie o discador nas conexões de rede tipo PPPoE caso ela nao exista;
    3. Mostre Status de conexão;
    4. Salve usuário e senha;
    5. Redisque se a conexão cair;
    6. Auto execute no inicio do windows e conecte-se automaticamente;
    7. Tenha icone na bandeja para melhor acesso.

    Vamos la galera, cada um contribui com um pedaço de código e assim que funcionar disponibilizarei também os meus fontes para que todos possam usufruir deles.

    Pela quantidade que procurei, vi que tem muita gente precisando do mesmo que eu.

    Agradeço desde ja.

    Jean Pierre
    segunda-feira, 2 de fevereiro de 2009 14:41

Respostas

Todas as Respostas

  • Cara to precisando de um programa desse tipo, porem nao achei nada ainda. O que eu fiz foi outro programa que chama um arquivo . vbs que concta a internet

    Se caso isso lhe ajude segue abaixo estrutura do arquivo.

    ''---------------------------------------------------------
     ''Script para acesso a internet ADSL
     ''---------------------------------------------------------
     ''Exige Windows Scripting Host (WSH) instalado se for executado em Windows XP
     ''---------------------------------------------------------


    Option Explicit
     On Error Resume Next
     Dim http, usr, pwd, prv, vlx, pin, pfi
     Err.Clear


    ''---------------------------------------------------------
     ''Inicio dos parametros de configuracao
     ''---------------------------------------------------------


    ''Nome de usuário no provedor (deixar vazio se Velox Empresarial)
     usr = 123@123.com.br


    ''Senha de usuário no provedor
     pwd = "123"


    ''Nome do Provedor (ver lista de nomes)
     prv = "123"


    ''Site do Velox
     vlx = "www.veloxzone.com.br"


    ''---------------------------------------------------------
     ''Termino dos parametros de configuracao
     ''---------------------------------------------------------


    If Err <> 0 Then
      MsgBox "Erro definição dos parâmetros configuráveis." & Chr(10) & Chr(10) & "Por favor, verifique se você fechou todas as variáveis entre aspas e se as linhas não usadas estão devidamente comentadas com um apóstrofo.", 16, "Autenticação Velox:"
      WScript.Quit(0)
     End If


    Err.Clear
     Set http = CreateObject("Microsoft.XmlHttp")
     If Err <> 0 Then
      MsgBox "Erro na criação do objeto de comunicação." & Chr(10) & Chr(10) & "Por favor, verifique.", 16, "Autenticação Velox:"
      WScript.Quit(0)
     End If


    Err.Clear
     http.Open "GET", "http://" & vlx & "/servlet/JavascriptProbe?prevURL=http://" & vlx & "/user/pages/serviceList.jsp&browser=explorer&version=6&javascript=1.3&getElementById=true&getElementTagName=true&documentElement=true&anchors=true&regexp=true&option=true&all=true&cookie=true&images=true&layers=false&forms=true&links=true&frames=true&screen=true", FALSE
     http.Send ""
     If Err <> 0 Then
      MsgBox "Erro na comunicação com o site do Velox." & Chr(10) & Chr(10) & "Por favor, verifique se sua conexão é válida.", 16, "Autenticação Velox:"
      WScript.Quit(0)
     End If


    Err.Clear
     pin = InStr(1, http.ResponseText, "internet_", 1)
     pfi = InStr(pin, http.ResponseText, prv, 1)


    pin = InStrRev(http.ResponseText, "internet_", pfi, 1)
     pfi = InStr(pin, http.ResponseText,"''", 1)


    prv = Mid(http.ResponseText, pin, pfi - pin)
     If Err <> 0 Then
      MsgBox "Erro no tratamento das informações obtidas do site do Velox." & Chr(10) & Chr(10) & "Por favor, verifique se seu script ainda é válido.", 16, "Autenticação Velox:"
      WScript.Quit(0)
     End If


    If InStr(1, http.responsetext, "serviceStop?", 1) > 0 Then
      If MsgBox("Você já se encontra autenticado no Velox. Realizar desautenticação?", 4 + 32 + 256, "Autenticação Velox:") = 6 Then
     Err.Clear
     http.Open "POST", "http://" & vlx & "/serviceStop?service=" & prv, FALSE
     http.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
     http.Send "confirmed=true&fcn=serviceLogoff&service=" & prv
     If Err <> 0 Then
      MsgBox "Erro no envio da solicitação de desautenticação ao site do Velox." & Chr(10) & Chr(10) & "Por favor, verifique se seu script ainda é válido.", 16, "Autenticação Velox:"
      WScript.Quit(0)
     End If


    If InStr(1, http.ResponseText, "window.top.location.href = ""/home"";", 1) > 0 Then
      MsgBox "Desautenticação efetuada com sucesso.", 64, "Autenticação Velox:"
     Else
      MsgBox "Falha na desautenticação." & Chr(10) & Chr(10) & "Por favor, verifique se seu script ainda é válido.", 16, "Autenticação Velox:"
     End If
      End If
     Else
      Err.Clear
      If Len(usr) > 0 Then
     http.Open "POST", "http://" & vlx & "/serviceLogon?service=" & prv, FALSE
     http.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
     http.Send "service=" & prv & "&fcn=serviceLogon&ac=home&username=" & usr & "&password=" & pwd
      Else
     http.Open "POST", "http://" & vlx & "/serviceStart?service=" & prv, FALSE
     http.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
     http.Send "service=" & prv & "&confirmed=true"
      End If
      If Err <> 0 Then
     MsgBox "Erro no envio da solicitação de autenticação ao site do Velox." & Chr(10) & Chr(10) & "Por favor, verifique se seu script ainda é válido.", 16, "Autenticação Velox:"
     WScript.Quit(0)
      End If


     Err.Clear
      http.Open "GET", "http://" & vlx & "/servlet/JavascriptProbe?prevURL=http://" & vlx & "/user/pages/serviceList.jsp&browser=explorer&version=6&javascript=1.3&getElementById=true&getElementTagName=true&documentElement=true&anchors=true&regexp=true&option=true&all=true&cookie=true&images=true&layers=false&forms=true&links=true&frames=true&screen=true", FALSE
      http.Send ""
      If Err <> 0 Then
     MsgBox "Erro na verificação da autenticação." & Chr(10) & Chr(10) & "Por favor, verifique se seu script ainda é válido.", 16, "Autenticação Velox:"
     WScript.Quit(0)
      End If


     If InStr(1, http.ResponseText, "serviceStop?", 1) > 0 Then
     MsgBox "Autenticação no Velox realizada com sucesso.", 64, "Autenticação Velox:"
      Else
     MsgBox "Erro na autenticação no Velox. Por favor, verifique se este script, bem como se o nome de usuário e senhas estão válidos junto ao site do VeloxZone e, também, no provedor de acesso utilizado." & Chr(10) & Chr(10) & "Caso o erro persista, tente acessar o Velox conectando-se diretamente em sua página inicial de autenticação (" & vlx & ").", 16, "Autenticação Velox:"
      End If
     End If


    Err.Clear
     Set http = nothing
     If Err <> 0 Then MsgBox "Erro na desvinculação do objeto de comunicação." & Chr(10) & Chr(10) & "Por favor, verifique.", 16, "Autenticação Velox:"

    terça-feira, 8 de maio de 2012 13:59
  • Voce ja tem alguma coisa pronta?

    Se a postagem for UTIL,pontue; Se a postagem solucionar o problema MARQUE COMO RESPOSTA.

    quarta-feira, 9 de maio de 2012 02:48
  • Aki tem tudo, http://dotras.codeplex.com/

    baixa a biblioteca, tem ate video o youtube com exemplos, moleza

    att.

    quinta-feira, 17 de maio de 2012 01:06
  • Olá. Recentemente uma empresa de Internet Via Rádio me contactou para que fizesse um autenticador pppoe para os seus clientes. Usei a API DotRas.dll, disponível para download no link já fornecido pelo amigo Rafael de Paiva Cardoso. É muito simples e seguro.  Entre outras características o discador que produzi possui:

                  - Possibilidade de atualização via FTP;

                  - Monitoramento avançado de conexão/desconexão;

                  - Rediscagem automática (quando ouver desconexão involuntária);

                  - Início automático com o operacional e conexão automática;

                  - Interfaces básicas (salvar usuário e senha, iniciar automaticamente, etc.).

                  - S.O. Suportados: NT, WinXPX86-X64, Win VistaX86-X64, Server 2008 R2 e Win7X86-X64

       Caso você já tenha solucionado seu problema, desconsidere esta mensagem. Caso contrário poste um pedido que postarei o código fonte padrão com as características acima citadas.

     ATT.: Marcelo Edwardo Amarante

           


    • Editado MarceloTEK sexta-feira, 12 de outubro de 2012 01:52
    sexta-feira, 12 de outubro de 2012 01:51
  • Eu tenho interesse no código, Marcelo.
    terça-feira, 11 de junho de 2013 17:50