Autor Tema: Emular SendKeys  (Leído 210 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 183
Emular SendKeys
« en: Julio 28, 2020, 08:48:47 pm »
Palabras clave: sendkeys, bloqnum
Autor: A mi me lo pasó Mihura

Objetivo:
Emular el funcionamiento de SendKeys de Access pero sin el problema reconocido de activar/desactivar la tecla de bloqueo numérico.

Código: [Seleccionar]
Function fSendKeys(strKey as String)
  Dim ws As Object
  Set ws = CreateObject("WScript.shell")
  ws.SendKeys strKey
  Set ws = Nothing
End Function