Старий додаток Visual Basic 5 з SendKeys надає дозвіл на Windows 8.1

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

Він використовує a

SendKeys ("{LEFT}")

Тоді я отримаю цю помилку:

Run-time error '70':
Permission denied

Я вже відключив UAC, як я зробив на Windows 7 (і працював), але він не працював у windows 8.1 Хто-небудь знає шлях навколо цього?

windows-8.1

— Tony
джерело

Сподіваюся, ви спробували працювати як адміністратор

— tumchaaditya

Так, я спробував це. Я встановив UAC до найнижчого значення. Я також встановив, щоб він працював у режимі сумісності з Windows XP. У Windows 7 він працював з цими настройками. На вікнах 8.1 помилка часу виконання '70': заборонено дозвіл.

— Tony

Встановлення режиму сумісності може працювати: visualbasicnetcode.blogspot.co.uk/p/…

— Kev

переміщення повзунка вниз НЕ БІЛЬШ ВИКЛЮЧЕНО УАК в Windows 8.x

— magicandre1981

як і в Vista / 7. Встановіть значення EnableLUA у реєстрі (HKEY_LOCAL_MACHINE SOFTWARE Microsoft Windows CurrentServer), але це вимкнуло нові додатки магазину.

— magicandre1981

Вставте це всередині проекту - Додати модуль - Відкрити

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

Ви ніколи не зіткнетеся з цією проблемою знову.

— Akg
джерело