Imprimir página | Cerrar ventana

Habilitar Winsock

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84687
Fecha de impresión: 13/Julio/2020 a las 18:05


Tema: Habilitar Winsock
Publicado por: main
Asunto: Habilitar Winsock
Fecha de publicación: 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




Respuestas:
Publicado por: lbauluz
Fecha de publicación: 03/Septiembre/2019 a las 20:11
¿Tienes instalado el MSCOMM?

-------------
Hay un culto a la ignorancia y siempre lo ha habido y es alimentado por la falsa noción de que democracia significa que "mi ignorancia es tan buena como su conocimiento". (Isaac Asimov)


Publicado por: main
Fecha de publicación: 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


Publicado por: lbauluz
Fecha de publicación: 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


-------------
Hay un culto a la ignorancia y siempre lo ha habido y es alimentado por la falsa noción de que democracia significa que "mi ignorancia es tan buena como su conocimiento". (Isaac Asimov)


Publicado por: jilo
Fecha de publicación: 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



-------------
Espero te sirva !!!!!!
Iñaki


Publicado por: main
Fecha de publicación: 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


Publicado por: main
Fecha de publicación: 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


Publicado por: main
Fecha de publicación: 25/Noviembre/2019 a las 20:24
Buenas tardes
La respuesta estaba en añadir y autorizar la aplicación en el Firewall de windows
Saludos para todos

Se puede cerrar el tema



Imprimir página | Cerrar ventana