PROBLEMA CON EL WINDOWS 10 Y VISUAL BASIC 6.0 SENDKEYS

Que tal camaradas, les dejo la solución mas factible para los que usan la función de sendkeys en Visual Basic 6.0 y estan usando Windows 10 0 Windows 8

Solo tienen que poner esta función en clase o utilerias globales.



Public Sub Sendkeys(text$, Optional wait As Boolean = False)
    Dim WshShell As Object
    Set WshShell = CreateObject("wscript.shell")
    WshShell.Sendkeys text, wait
    Set WshShell = Nothing
End Sub

la solución fue encontrada en un foro.

Saludos y espero que les sirva.
0