Habilitar Winsock |
Responder |
Autor | |
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
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 |
|
lbauluz
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 29/Marzo/2005 Localización: La Gloria Estado: Sin conexión Puntos: 3857 |
Enviado: 03/Septiembre/2019 a las 20:11 |
¿Tienes instalado el MSCOMM?
|
|
El Búho es un pajarraco
|
|
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
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 |
|
lbauluz
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 29/Marzo/2005 Localización: La Gloria Estado: Sin conexión Puntos: 3857 |
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
|
|
El Búho es un pajarraco
|
|
jilo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 19/Diciembre/2004 Localización: TAFALLA Estado: Sin conexión Puntos: 959 |
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
Editado por jilo - 04/Septiembre/2019 a las 09:58 |
|
Espero te sirva !!!!!!
Iñaki |
|
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
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
|
|
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
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 |
|
main
Colaborador Unido: 31/Agosto/2009 Localización: OVIEDO Estado: Sin conexión Puntos: 1258 |
Enviado: 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
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |