O aplicativo antigo do Visual Basic 5 com SendKeys concede permissão negada no Windows 8.1

Question

Eu tenho um programa antigo que fiz há vários anos, compilado no Native Code, no Visual Basic 5. Perdi o código-fonte original em algum disco rígido antigo ...

Ele usa um

SendKeys ("{LEFT}")

Então eu recebo este erro:

Run-time error '70':
Permission denied

Eu já desabilitei o UAC, como fiz no windows 7 (e trabalhei), mas ele não funcionou no windows 8.1 Alguém sabe uma maneira de contornar isso?

    

Answer 1

Cole isso dentro do 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

Você nunca enfrentará esse problema novamente.