Conexion a internet

¿En visual basic 6 como puedo comprobar el acceso a internet?

1 Respuesta

Respuesta
1
Para verificar la conexion a internet puedes utilizar la API, fijate de colocar esto en un modulo:
Option Explicit
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Public Const INTERNET_CONNECTION_MODEM As Long = &H1
Public Const INTERNET_CONNECTION_LAN As Long = &H2
Public Const INTERNET_CONNECTION_PROXY As Long = &H4
Public Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Public Const INTERNET_RAS_INSTALLED As Long = &H10
Public Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Public Const INTERNET_CONNECTION_CONFIGURED As Long = &H40
Public Function GetNetConnectString() As String
Dim dwflags As Long
Dim msg As String
If InternetGetConnectedState(dwflags, 0&) Then
If dwflags And INTERNET_CONNECTION_CONFIGURED Then
msg = msg & "network" & vbCrLf
End If
If dwflags And INTERNET_CONNECTION_LAN Then
msg = msg & "LAN"
End If
If dwflags And INTERNET_CONNECTION_PROXY Then
msg = msg & "proxy server. "
Else: msg = msg & "."
End If
If dwflags And INTERNET_CONNECTION_MODEM Then
msg = msg & "modem"
End If
If dwflags And INTERNET_CONNECTION_OFFLINE Then
msg = msg & "offline. "
End If
If dwflags And INTERNET_CONNECTION_MODEM_BUSY Then
msg = msg & "non-Internetconnection. "
End If
If dwflags And INTERNET_RAS_INSTALLED Then
msg = msg & "Remote Access Services"
End If
Else
msg = "No conectado a Internet"
End If
GetNetConnectString = "Conexion tipo: " & msg
End Function
ahora puedes desde tu programa llamar a la funcion de esta manera:
Conexion = GetNetConnectString()
Fijate que te va a entragar un string con el tipo de conexion que tenga la maquina, asi puedes ver no solo si existe conexion sino de que tipo es.
Esta muy bien esta funcion, pero si me
interesa saber si en ese instante tiene acceso a internet, porque puede que tenga configurado una conexion por LAN, pero no garantiza que en ese instante tenga el acceso a internet, no se si me explico?
Muchisimas gracias por tu tiempo, saludos !!!
Tienes razon en ese caso, si ya has echo una conexion a internet con la lan, esta ya queda marcada "Connected" ya que lo normal es tener habilitada el DHCP o con IP fijas, pero luego de verificar que ya esta configurada una conexion a internet activa, lo que podes hacer es una prueba de navegacion, para eso utilizamos nuevamente la API, agrega esto en las declaraciones del modulo:
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Global ConexionOK As Boolean
ahora agrega esto entre las lineas de la rutina anterior
If InternetGetConnectedState(dwflags, 0&) Then
'agregado
If InternetCheckConnection("http://www.microsoft.com/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
ConexionOK = False
Else
ConexionOK = True
End If
'continua lo anterior
If dwflags And INTERNET_CONNECTION_CONFIGURED Then
asi primero verifica la conexion, de lo contrario al intentar navegar se te puede abrir la ventana de conexion o discado a internet, luego de verificar que hay una conexion se hace un prueba de navegacion, asi te queda en la variable "ConexionOK" en verdader si se pudo conectar, fijate que puedes utilizar cuaquier pagina de internet, te he puesto la de Microsoft porque esa es casi imposible que en elgun momento este fuera de servicio.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Api

Necesito un api con un ejemplo de como puedo ver todos los equipos de la red. Como ir por entorno de red pero desde visual basic
1 respuesta

Crear una Dll con Vb6.0

Quiero crear una dll con vb y que pueda ser llamada desde otros programas. Tengo el código compilado y la dll creada pero cuando la llamo desde vb u otro programa me da el siguiente error: "no se puede encontrar el punto de entrada de la DLL xxxx"...
1 respuesta

Extraer la zona horaria del PC en visual basic

Necesito extraer la zona horaria de mi pc. Tengo un access que realiza una consulta a unas tablas que registran las horas en UTC y yo necesitaría extraer de mi pc la zona horaria (en este caso UTC+1) para poder trabajar con esas horas.
1 respuesta

Cerrar Archivos desde Visual Basic...

Bueno yo se que se puede abrir cualquier programa desde una aplicacion de Visual Basic, mi pregunta es tambien se puede cerrar, es decir un comando o algo para poder cerrarla desde mi aplicacion de visual.. ¿Si se puede? ¿Me podrias ayudar con esto?...
1 respuesta

Como obtener ip y datos del equipo?

Leo mi duda es como puedo obtener la direccion ip de mi equipo asi como su nombre e informacion del sistema desde visual basic 6.0. Existe algún control que lo muestre?
2 respuestas

Mandar email desde Access

Tengo un cuadro de texto que tiene asociado direcciones de email de una tabla. Lo que quiero hacer es que cuando pique sobre la dirección se abra el outlook para poder enviar el email. He puesto la casilla como hipervínculo, peor cada vez que le doy...
1 respuesta

DAO y abrir formulario de Access

Me he conectado a Access con DAO y hago una serie de operaciones, pero ahora quiero abrir un formulario y un informe en Access ¿Cómo tengo que hacerlo?
1 respuesta

Macro en Excel que indique conexión a internet

Resulta que tengo un pequeño programa en excel de ordenes de compra, que logre subir a un servidor, para que de esa forma.. Cualquier sucursal nuestra pueda hacer ordenes y mantener un solo coorelativo... Esta es la macro que tengo para bajar el...
1 respuesta

Renombrar Archivos de Subcarpeta con Macro

Estoy en un gran dilema... Tengo una carpeta con 10 subcarpetas, y en cada carpeta hay una imagen JPG con diferentes nombres, y tengo que hacer una macro en VBA que tome entre a cada una de las carpetas y cambie su nombre original por PICTURE.JPG Y...
1 respuesta

Insertar sonido o audio en una celda de MS Excel

1) Cómo hago para cuando coloque un número (cualquiera sea su situación: par, impar, fraccionario, decimal, etc) en una celda cualquiera, me suene un sonido o audio, como por ejemplo: el sonido o audio: Usted esta equivocado. (Claro está, este...
1 respuesta