Foro de elhacker.net

Alguien sabe como ejecutar una conexion determinada de acceso telefónico a redes desde visual basic? para que conecte directamente?

Saludos!!

Weno despues de usar Google por unos 10 minutos!!! cosa que vos no realisastes, encontre lo que nesesitas!!!!!

Este es el codigo para conectarse a internet por medio de VB:

Donde ConexionInternet es el nombre de la conexión a internet que utilizas!!!

Y para que funciones tendras que:
Utilizar una referencia a Microsoft Shell objects and
automations.

esta libreria de automatizacion COM te permite acceder al
SHELL de windows, puede incluso abir el panel de control,
y crear una conexion de internet.


Nota: esta libreria es la Shell32.dll pero utilizada como
automatizacion COM en Proyectos/referencias, para esto no
se utiliza su API, sino su coleccion de objetos COM.

Es importante, lo anterior ya que sino te dara error!!!

Suerte!!!

Debia haber especificado más en la pregunta, para que no me contestarás con ese tono, quiero hacer eso mismo para Windows XP PRO

Eso funciona perfectamente en W98/NT pero no en Windows XP, ya que no tiene esas librerias.

Aún asi las baje y las instale, la rnaui.dll pero nada... no funciona! :-(

Saludos!!

jejejeje bueno antes que todo nunca pense que postiaria una respuesta tan luego ya que recien ayer empese pero justo hice ese programa

Private Sub Form_Load()
 Shell "C:\WINDOWS\system32\rasphone.exe"
End Sub

Private Sub Timer1_Timer()
On Error GoTo error:
SendKeys "{enter}"


error:


End Sub

si estas conectado te desconecta y si esta desconectado te conecta cualkier duda me dices  yo lo puse en un form

Me sale esto:
(http://img126.imageshack.us/img126/3697/int1bu.png)

En el systray no aparece el ícono de conectado y sí estoy conectado, no se desconecta de internet. :huh:

no fue mi intencion contestar asi pido disculpas!!! :)

weno al codigo que posearon le falta, algo sino no se puede activar la ventana y enviarle el ENTER:


El App.Activate lo que ara es activar la ventana, si la encuentra.

lo que tambien podes hacer es buscar el hndle del padre, y luego el hijo (osea el boton conectar), y lluego enviarle un enter a ese boton, oprke si el foco lo tiene otro boton sera dificil que puedas conectarte!!!

Otra forma de que kontrole el foco del boton es enviarle un sendkeys, de la tecla rapida del boton Conectar (mantene alt, y e marcara la tecla)

Gracias, buscaba algo asi!

Saludos!!

PEOR POR ESO AHI TE DA EL ENTER Y TE CONECTA O DESCONECTA :rolleyes: AKE TE REFIERES CON SYTRAY?? :huh:

pero por que activarla (sin con esto ya la activa Shell "C:\WINDOWS\system32\rasphone.exe") :-X

hagan la prueba ejecuten este codigo no mas Shell "C:\WINDOWS\system32\rasphone.exe" y luego precionan 2 veces enter y se desconectaran o conectaran :o

Nop. Pones conectar y sigue todo igual, ni te desconecta ni te contecta.

El systray es la bandeja del sistema, donde aparece el messenger y todos los íconos al lado de la hora.

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

Sí, y aún así no sirve. :huh:

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...

Como yo podria saber el nombre de usuario de un X cuenta que yo tenga creada....

Salu2

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

vas a:
Internet Explorer -> Herramientas -> Opciones De Internet... -> Conexion -> Seleccionas la conexión y le das a las propiedades y este te mostrara el usr y el pwl en forma de **** (usas veoveo y podes saver que dice)

Saludos

:::::::::::::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