Mensaje enviado por "Irene Santamaría Vázquez" <irene@ingenia.es>

Pues hay varias formas supongo, yo sé dos

1ª/ si no te importa que salga la pantalla que advierte de que se está
conectando, si tienes configurado el acceso telefónico a redes y en el
asistente de acceso a Internet le dices que se conecte mediante el modem, pues nada más que le digas que navegue a una URL (con un control Inet por ejemplo) si no está conectado ya, se conectará, igual que cuando pones en tu navegador una dirección.

2ª/ si no quieres que aparezca nada que te diga que se está conectando. Yo uso un programa que se llama ndial32, lo puedes encontrar en download.com o en tucows, (es de libre distribución) y lo ejecuto con Shell. Een esa dirección te viene un fichero de texto con los parámetros que hay que usar.
Para cortar la conexión nhang32.

Aquí tienes un trozo de código con la llamada:

Public Function IniciarConexion(ByVal UtilizarModem As Boolean) As Boolean

Dim retorno As Long

    IniciarConexion = True
    If UtilizarModem Then
        retorno = ExecCmd(DirConBarra(App.Path) & "ndial32 " & ConexionModem
& "," & DNSModem & "," & UsuarioModem & "," & PasswordModem,
vbNormalNoFocus)
        ' La ejecución se detiene hasta que finaliza el comando
        If retorno <> 0 Then
            IniciarConexion = False
        End If
    End If

End Function

Public Function TerminarConexion(ByVal UtilizarModem As Boolean) As Boolean

Dim retorno As Long

    TerminarConexion = True
    If UtilizarModem Then
        retorno = ExecCmd(DirConBarra(App.Path) & "nhang32 " &
ConexionModem, vbNormalNoFocus)
        ' La ejecución se detiene hasta que finaliza el comando
        If retorno <> 0 Then
            TerminarConexion = False
        End If
    End If

End Function


' Esperar a que un proceso termine,
' la ventana se mostrará minimizada sin foco
Public Function ExecCmd(ByVal CmdLine As String, ByVal Focus As
VbAppWinStyle) As Long

Dim hProcess As Long
Dim RetVal As Long

    'The next line launches CmdLine as icon, captures process ID
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(CmdLine,
Focus))
    Do
         'Get the status of the process
        GetExitCodeProcess hProcess, RetVal
         'Sleep command recommended as well as DoEvents
        Debug.Print Now
        DoEvents
        Sleep 100
     'Loop while the process is active
    Loop While RetVal = STILL_ACTIVE
    ExecCmd = RetVal

End Function

Irene R. Santamaría Vázquez
Ingeniería e Integración Avanzadas, S.A.
Parque Tecnológico de Andalucía
29590 - Málaga (Spain)

Tel: 95 202 93 00
Fax: 95 202 93 09
e-mail: irene@ingenia.es
http://www.ingenia.es


    -----Mensaje original-----
    De: Antonio Ciuccolini <hermanosmarra@cantv.net>
    Para: Lista VB <vb-esp@ccc.uba.ar>
    Fecha: jueves, 28 de octubre de 1999 2:25
    Asunto: vb-esp : como conectar a internet


    hola quisiera saber como hacer
    para conectarme a internet diracmente
    sin utilizar el acceso telonico a redes
    algo asi de forma automativca como
    el outlook express 5 cuando estable conectar automaticamente
    y guardar contraseña.

    gracias.

Mensaje enviado por "Damian Janowski" <jano@sinectis.com>

Te mando este módulo que, si bien no lo hice yo, lo mejoré para que se entienda y le saqué un par de errores.
Explicación de las funciones:
HangUp ()
Corta la comunicación.

Connect (NombreConexion As String)
Corre el diálogo para conectarse con la conexión que especifiques en NombreConexion.
El nombre exacto de la conexión lo podés saber con una función que muestro más abajo.
ListConns (List, Optional AddUserName As Boolean) As Integer
Lista las conexiones del equipo en una ListBox o en un ComboBox (o cualquier control que tenga el método AddItem. Si AddUserName es True, al nombre de la conexión se le agregará el nombre de usuario de la misma. O sea,
Valor de AddUserName Texto del item
  False "Mi conexión"
  True "Mi conexión (NombreDeUsuario)"
Esta función devuelve 0 si se produjo algún error y 1 si anduvo todo bien.

GetDefConn () As String
 Simplemente nos devuelve el nombre de la conexión predeterminada.

Y la función que realmente querías...

ActiveConnection () As Boolean
Muy fácil: devuelve True si está conectado y, en caso contrario, False.

Espero que te sirva,

Damian Janowski
jano@sinectis.com
www.janito.com.ar
ICQ: 12149698

 conexiones.zip