** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Habilitar Winsock
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Habilitar Winsock

 Responder Responder
Autor
Mensaje
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1020
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita main Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Habilitar Winsock
    Enviado: 03/Septiembre/2019 a las 14:48
Access_2010 vs Windows_7

Buenos dias:
Mi pregunta es como deshabilito la(s) Directiva(s) de seguridad de windows para poder utilizar el control winsock.
En este caso el el winsockBuho de un ejemplo que baje hace unos años y que funcionaba perfectamente
pero me puse a recuperarlo y ahora las medidas de seguridad de windows no permiten que se ejecute correctamente.
Produce el error 438. al cargar el formulario y no permite realizar la conexion.  

Saludos

Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton
Estado: Sin conexión
Puntos: 3387
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lbauluz Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 03/Septiembre/2019 a las 20:11
¿Tienes instalado el MSCOMM?
Estos son mis principios. Si no le gustan... tengo otros
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1020
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita main Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 03/Septiembre/2019 a las 21:54
Hola:
Al menos en system32 tengo estos:
MSCOMCTL.ocx
mscomm32.ocx
Lo que no se es si estaran debidamente registrados
Pero si añado a Referencias la DLL (mscomm32.ocx) si aparece como Microsoft Com Control6.0
El error viene dado por la instrucion:
TxtServerIP.Value = WinsockServidor.LocalIP
Saludos


Editado por main - 03/Septiembre/2019 a las 21:55
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton
Estado: Sin conexión
Puntos: 3387
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lbauluz Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 04/Septiembre/2019 a las 01:34
No recuerdo bien el tema, pero había algo llamado killbits, que afectaba a los controles OCX, mratelo a ver.

Luis
Estos son mis principios. Si no le gustan... tengo otros
Arriba
jilo Ver desplegable
Colaborador
Colaborador


Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 891
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita jilo Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 04/Septiembre/2019 a las 09:55
Hola
Sí lo que necesitas es obtener la IP del PC, me sonaba que tenía hecha una función para pillar la IP y la MAC del PC que está corriendo el Access, a ver sí te sirve.
Sí quieres que te devuelva la IP le pasas como argumento el cero(0) y sí quieres la MAC el uno(1)
variableVariant=MiIP(0) ' devuelve IP
variableVariant=MiIP(1) ' devuelve MAC
Function MiIP(vIPMAC As Long) As Variant
   Dim vIPAndMAC, Separa
   Dim oAdapters As Object
   Dim oAdapter As Object
   Set oAdapters = GetObject("winmgmts:"). _
         execQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
   For Each oAdapter In oAdapters
      With oAdapter
         vIPAndMAC = Join(.IPAddress)
         Separa = Split(vIPAndMAC, " ")
        ' Debug.Print "IP =", Separa(0)
        ' Debug.Print "MAC =", Separa(1)
         MiIP = Separa(vIPMAC)
      End With
   Next
End Function



Editado por jilo - 04/Septiembre/2019 a las 09:58
Espero te sirva !!!!!!
Iñaki
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1020
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita main Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 04/Septiembre/2019 a las 10:16
Hoal, esto es lo que he visto
ActiveX KillBits es una característica de seguridad agregada para los controles ActiveX, tanto del navegador (Internet Explorer) como de Microsoft Office. ActiveX KillBits fue implementada por Microsoft para permitir desactivar, en caso necesario, algún ActiveX que se considere "peligroso".

Un killbit marca como inseguro para que el navegador no permita su ejecución, un ActiveX. Todos los ActiveX tienen asociado un GUID (Globally Unique Identifier, Identificado Único Global, marca unívoca que lo diferencia del resto), que se guarda en el Registro de Configuraciones de Windows. En la clave correspondiente a ese GUID es donde KillBits marcará como inseguro en ActiveX.

Pero no ofrece ninguna solución, si este fuera el camino.
Saludos
Arriba
main Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 31/Agosto/2009
Localización: OVIEDO
Estado: Sin conexión
Puntos: 1020
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita main Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 04/Septiembre/2019 a las 11:24
Hola
Gracias jilo
Todo esto debe tener mas enjundia de lo que parece para hacerlo funcionar.
El propio Buho tiene otra funcion para obtener la IP que ya venia usando pero no consigo lograr hacer funcionar el chat del Buho para enviar mensajes entre los equipos de la Red.
En cuanto a tu Funcion la he retocado un poco porque con el parametro(1) daba error y como solo quiero obtener la IP la he dejado asi:
Public Function MiIP() As Variant
   Dim vIP, Separa
   Dim oAdapters As Object
   Dim oAdapter As Object
   Set oAdapters = GetObject("winmgmts:"). _
         execQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
   For Each oAdapter In oAdapters
      With oAdapter
         MiIP = Join(.IPAddress)
      End With
   Next
End Function
Y me la devueve correctamente
Saludos


Editado por main - 04/Septiembre/2019 a las 11:24
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable