Como cerrar sesión de Edge???
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=86688
Fecha de impresión: 19/Abril/2024 a las 16:28
Tema: Como cerrar sesión de Edge???
Publicado por: Jose35
Asunto: Como cerrar sesión de Edge???
Fecha de publicación: 15/Mayo/2023 a las 13:29
|
Muy Buenas, desde hace un tiempo en mi empresa no puedo trabajar con IE por motivos de Seguridad, así que para poder abrir una sesión de Navegador desde mi Base de Datos Access tuve que cambiar las macros a Edge. ¿Alguien me puede decir como puedo programar la macro para que se cierren las ventanas de Edge?, pues a veces lanzo hasta 5 ventanas de golpe y tenia un botón programado que cuando utilizaba IE le daba y se cerraban todas de golpe. Utilizaba esta linea para ello: 'Shell ("taskkill /f /im iexplore.exe") 'iexplore.exe Para abrir el navegador Edge utilizo estas lineas: URL = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" CreateObject("Shell.Application").ShellExecute "microsoft-edge:" & URL Espero ayuda, Gracias.
|
Respuestas:
Publicado por: javier.mil
Fecha de publicación: 16/Mayo/2023 a las 00:43
|
Hola, puedes intentar "matar" el proceso de Windows http://www.mvps.org/access/api/api0025.htm" rel="nofollow - http://www.mvps.org/access/api/api0025.htm ------------- https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info |
Publicado por: Jose35
Fecha de publicación: 17/Mayo/2023 a las 09:34
|
Muy Buenas y muchas gracias por tu aporte, pero no tengo tanto conocimiento como para aplicar lo que sale en dicha pagina en la rutina que tengo creada. S2.
|
Publicado por: javier.mil
Fecha de publicación: 17/Mayo/2023 a las 20:49
|
No me queda muy claro si lo que pretendes es cerrar una sesión o bien quieres cerrar ventanas Puedes poner tu código y vemos de que manera se puede solucionar ... ------------- https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info |
Publicado por: Jose35
Fecha de publicación: 18/Mayo/2023 a las 15:00
|
Buenas, no se si me he explicado bien, yo desde un botón en un formulario arranco una macro, dicha macro se encarga de acceder a una web interna de mi trabajo, en la que en una primera ventana de EDGE se abre la WEB, en la siguiente ventana que lanzo introduzco Usuario y Password, en la siguiente ventana o sesión de Edge elijo unidad en la que trabajar, así hasta que termino abriendo un mínimo de 5 sesiones o ventanas con Edge, esto solo si no hay Obras que descargar, si hay obras para descargar me abre una sesion o ventana de Edge por cada Obra. Pues bien antes, cuando utilizaba internet Explorer, tenia un botón programado en el cual picaba y se cerraban todos los procesos de Internet Explorer que tenia abiertos y eso mismo es lo que busco hacer ahora con Edge. las paginas o URL´s las abro asi: URL = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" CreateObject("Shell.Application").ShellExecute "microsoft-edge:" & URL Saludos.
|
Publicado por: javier.mil
Fecha de publicación: 18/Mayo/2023 a las 19:08
|
Hola, Insisto que No es lo mismo cerrar una ventana del navegador que cerrar una sesión , aunque visualmente aparentemente parezca el mismo resultado. Prueba con el siguiente código a falta que alguien pueda aportar una solución mas simple On Error GoTo Err_Local Const cProceso As String = "msedge.exe" Dim objWMI As Object Dim objServicio As Object Dim objSer As Object Dim strNom As String Set objWMI = GetObject("winmgmts:") If IsNull(objWMI) = False Then Set objServicio = objWMI.InstancesOf("win32_process") For Each objSer In objServicio strNom = LCase(Trim(CStr(objSer.Name) & "")) If strNom = cProceso Then objSer.Terminate funMatarProcesoEDGE = True MsgBox "Ahora esta cerrado el navegador EDGE", vbExclamation, "javier.mil" Exit For End If Next objSer End If Close_Local: Set objSer = Nothing Set objServicio = Nothing Set objWMI = Nothing Exit_Local: On Error GoTo 0 Exit Function Err_Local: funMatarProcesoEDGE = False MsgBox Err.Description, vbCritical, "Error N°: " & Err.Number Resume Exit_Local End Function Editado y Mejorado 3 lineas ------------- https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info |
Publicado por: Jose35
Fecha de publicación: 24/Mayo/2023 a las 13:58
|
Muy Buenas, el proceso funciona correctamente, pero me cierra todas las ventanas de Edge que tengo abiertas, entiendo entonces que lo que necesito es que se me cierre la sesión, ¿sabrías como hacerlo?. Gracias y un Saludo
|
Publicado por: javier.mil
Fecha de publicación: 25/Mayo/2023 a las 14:37
|
En tu primer post dices esto
Después comentas esto
Buenas, No se exactamente que necesitas,....... perooooooo si cierras la sesión de EDGE, todas las ventanas seguirán estando abiertas ,........... Ya comente anteriormente que No es lo mismo cerrar una sesión que cerrar ventanas......... Quizás y digo quizás lo que necesitas es cerrar 1 sola ventana independientemente si estas logeado en una sesión o No lo estas....... Confirma que es lo que necesitas. ------------- https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info |
Jose35 escribió:Publicado por: lbauluz
Fecha de publicación: 25/Mayo/2023 a las 14:57
|
¿Qué entiendes exactamente por sesión? ¿Una pestaña en particular o que estás conectado a algún sitio y quieres que haga un "log off"? Para aclararme. Un saludo. Luis. ------------- El Búho es un pajarraco |