Ошибка выполнения 70: Отказано в доступе в VB5 в Windows 10 - PullRequest
Новая
       31

Ошибка выполнения 70: Отказано в доступе в VB5 в Windows 10

0 голосов
/ 12 декабря 2018

Я получаю сообщение об ошибке при нажатии ввода в TextBox в форме входа.Когда я ввожу имя пользователя (TextBox) и нажимаю ввод, я получаю

Ошибка выполнения 70: Разрешение отклонено.

Но когда я нажимаю ввод, когда фокусируется на кнопкеЯ не понимаю ошибку.

Я понимаю, что существует огромная разница в возрасте и совместимости, но я не получаю эту ошибку в Windows 7. Я работаю со старым приложением VB5 и должен проверить его на Windows 10. Я уже пытался добавить этокод в модуль: 

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

Пожалуйста, помогите:)

...