Старое приложение Visual Basic 5 с SendKeys дает отказано в разрешении в Windows 8.1

Question

У меня есть старая программа, которую я сделал несколько лет назад, скомпилированная в Native Code, в Visual Basic 5. Я потерял исходный код на каком-то старом жестком диске ...

Он использует

SendKeys ("{LEFT}")

Тогда я получаю эту ошибку:

Run-time error '70':
Permission denied

Я уже отключил UAC, как я сделал на Windows 7 (и работал), но он не работал в Windows 8.1 Кто-нибудь знает способ обойти это?

Answer 1

Вставьте это в Project - Add Module - Open

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

Вы никогда не столкнетесь с этой проблемой снова.