crear un un repetidor de enter Topic is solved

[riyuana]

hola

tengo un excell que se actualiza con data de una pagina web, esta pagina a veces no tiene datos, por lo que mi excell me indica un error el cual se elimina dando enter varias veces al mensaje de excell; quiero crear un comando que al dar enter , cada cierto tiempo marque enter por lo menos 6 veces; si logro que se marque enter antes

Code: Select all

de que el macro quiera ejecutarse, no tendría problemas.

[Flipeador]

Hola, ¿Que mensaje de error te muestra?
Para ejecutar una determinada parte de código al presionar una tecla lee Remapping Keys and Buttons y List of Keys, Mouse Buttons, and Joystick Controls; para presionar Enter o cualquier otra tecla mira SendInput.
¿Tienes algún código (o pseudocódigo) que ayude a entender mejor y en detalle lo que intentas hacer?

[riyuana]

hola, elimine por error la respuesta del mismo, era esta:
en excel me sale: No se puede abrir http://www.google.com. No se puede descargar la información solicitada.

[Flipeador]

No me queda claro algunas cosas.

se elimina dando enter varias veces al mensaje de excell

¿Por qué se elimina dando varias veces Enter y no solo una? ¿Puedes reproducir el error ahora y subir una imagen?

No se puede abrir http://www.google.com. No se puede descargar la información solicitada.

¿Siempre es http://www.google.com?


Si ejecutas este Script, ¿hace algo cuando aparece el mensaje?

Code: Select all

#Persistent
hWinEventHook := DllCall("User32.dll\SetWinEventHook", "UInt", 0x8000, "UInt", 0x8000, "Ptr", 0, "Ptr", RegisterCallback("WinEventProc"), "UInt", 0, "UInt", 0, "UInt", 0, "Ptr")
Return

WinEventProc(hWinEventHook, Event, Hwnd, ObjId, ChildId, Thread, Time)
{
    ParentId := DllCall("User32.dll\GetParent", "Ptr", Hwnd, "Ptr")
    WinGetClass, classn, ahk_id %ParentId%
    WinGet, procn, ProcessName, ahk_id %ParentId%

    If (classn = "#32770" && procn = "excel.exe")
    {
        ControlGetText txt, Edit1, ahk_id %ParentId%
        ;ToolTip %  txt "|" InStr(txt, "https://www.google.com")
        If (InStr(txt, "www.google.com"))
        {
            WinWait ahk_id %ParentId%
            SendInput {esc}
        }
    }
}

Edito* Prueba de nuevo el script, he corregido una cosita