Conectar a internet con VB
Hola!
Tengo Visual Basic 5.0 Edición Profesional, y estoy intentando hacer una aplicación que contenga 2 botones (entre otras cosas). Quiero que uno de ellos me sirva para conectarme a internet (de alguna manera, ya sea utilizando una conexión de acceso telefónico ya establecida en windows o creando una conexión "especial"). El otro botón quiero que desconecte la conexión.
Me serviría que me dijeras que código tengo que utilizar y cuales referencias tengo que utilizar, ya que en este asunto estoy totalmente en blanco.
Gracias!
Tengo Visual Basic 5.0 Edición Profesional, y estoy intentando hacer una aplicación que contenga 2 botones (entre otras cosas). Quiero que uno de ellos me sirva para conectarme a internet (de alguna manera, ya sea utilizando una conexión de acceso telefónico ya establecida en windows o creando una conexión "especial"). El otro botón quiero que desconecte la conexión.
Me serviría que me dijeras que código tengo que utilizar y cuales referencias tengo que utilizar, ya que en este asunto estoy totalmente en blanco.
Gracias!
Respuesta de losbeaves
1
Para Conectar
x=Shell("rundll32.exe rnaui.dll,RnaDial " & VARCONEXION, 1) ' Sale el cuadro
de conexión
SendKeys ("{Enter}") ' Enviamos "Intro" para conectar
VARCONEXION = Nombre de la conexion ke vas a utilizar
Para desconectar:
Const RAS_MAXENTRYNAME = 256
Const RAS_MAXDEVICETYPE = 16
Const RAS_MAXDEVICENAME = 128
Const RAS_RASCONNSIZE = 412
Private Type RasConn
dwSize As Long
hRasConn As Long
SzEntryName(RAS_MAXENTRYNAME) As Byte
szDeviceType(RAS_MAXDEVICETYPE) As Byte
szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type
Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias
"RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As
Long) As Long
Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA"
(ByVal hRasConn As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
'This program will close your Internet-connection, so to test this, you
will have to open an Internet-connection.
Dim i As Long, lpRasConn(255) As RasConn, lpcb As Long
Dim lpcConnections As Long, hRasConn As Long
'Set the structure's size
lpRasConn(0).dwSize = RAS_RASCONNSIZE
lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
lpcConnections = 0
'Enumerate all the available connections
returncode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)
If returncode = 0 Then
For i = 0 To lpcConnections - 1
hRasConn = lpRasConn(i).hRasConn
'Hang up
returncode = RasHangUp(ByVal hRasConn)
Next i
End If
End Sub
Yo no he probado este código así que no exactamente si funciona.
x=Shell("rundll32.exe rnaui.dll,RnaDial " & VARCONEXION, 1) ' Sale el cuadro
de conexión
SendKeys ("{Enter}") ' Enviamos "Intro" para conectar
VARCONEXION = Nombre de la conexion ke vas a utilizar
Para desconectar:
Const RAS_MAXENTRYNAME = 256
Const RAS_MAXDEVICETYPE = 16
Const RAS_MAXDEVICENAME = 128
Const RAS_RASCONNSIZE = 412
Private Type RasConn
dwSize As Long
hRasConn As Long
SzEntryName(RAS_MAXENTRYNAME) As Byte
szDeviceType(RAS_MAXDEVICETYPE) As Byte
szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type
Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias
"RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As
Long) As Long
Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA"
(ByVal hRasConn As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
'This program will close your Internet-connection, so to test this, you
will have to open an Internet-connection.
Dim i As Long, lpRasConn(255) As RasConn, lpcb As Long
Dim lpcConnections As Long, hRasConn As Long
'Set the structure's size
lpRasConn(0).dwSize = RAS_RASCONNSIZE
lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
lpcConnections = 0
'Enumerate all the available connections
returncode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)
If returncode = 0 Then
For i = 0 To lpcConnections - 1
hRasConn = lpRasConn(i).hRasConn
'Hang up
returncode = RasHangUp(ByVal hRasConn)
Next i
End If
End Sub
Yo no he probado este código así que no exactamente si funciona.
