pero para que pones conectar solo ejecutas el programa y listo no tiene que hacer nada mas y si te aparece una ventana la cierras no mas

Private Sub Form_Load()

Shell "C:\WINDOWS\system32\rasphone.exe"
DoEvents




End Sub

Private Sub Timer1_Timer()
On Error GoTo Error:

Dim i As Variant
For i = 0 To 2

SendKeys "{enter}"
DoEvents

If i = 2 Then
Timer1.Enabled = False
Error:
End If
Next i


End Sub




ya ahi esta me funciona bien solo que te aparece lo de conmexccion a red pero lo cierras y listo


el timer en caption le pones 1000 si no no funciona cualkier cosa me mandas un mp y te ayudo por privado funciona en xp en otros windows habria que cambiaarle algo ala ruta de acceso

Una duda a usd...

Supongamos que me conecte ahora mismo por DIAL-UP, lo que deseo es saber el nombre de usuario con el que estoy conectado mediante mi programa en VB..

Salu2

:::::::::::::SOLUCION SIN PROBLEMAS:::::::::::::

para conectarse a Internet mediante código usando el Dialer de Windows XP:

En un botón escribir estas 2 líneas...

Shell ("C:\Windows\System32\Rasphone.exe -d " & NombreConexiónRAS), vbNormalFocus
SendKeys "{ENTER}", 5

Rasphone es el Dialer de Windows XP con el parámetro -d para abrir una conexión sin diálogos...

NombreConexiónRAS = es el nombre de tu conexión creada en "Conexiones de red"

vbNormalFocus puede ser reemplazado por vbHide para que no aparezca el Dialer y se conecte de forma transparente.

5, es el tiempo que tiene que esperar antes de Marcar... tiempo suficiente para que pueda abrirse el marcador...

:::::::PARA COLGAR LA CONEXIÓN::::

Shell ("C:\Windows\System32\Rasphone.exe -h " & NombreConexiónRAS)

Lo mismo usando el parámetro -h

Tener en cuenta el espacio después de la "-d" o "-h"

++++++++ Si alguien sabe cómo conectarse a Internet mediante comandos AT por favor avisen!!! =) =) =)

Salu2, Zerbak99