Ошибка в веб-автоматизации с использованием vb6 в Windows 10

Я автоматизирую веб-сайт для заполнения регистрационных данных. Я разработал это приложение в vb6, и оно отлично работало в Windows XP, 7 и 8. Теперь оно выдает ошибку в Windows 10. В Windows 10, когда я запускаю exe напрямую, данные для входа не заполняются.(Я получаю "OnQuit запущен "). Тем не менее, когда я запускаю exe как администратор, он работает правильно. Это код vb6,

Private Sub Form_Load()

    Set Web = New SHDocVw.InternetExplorer
    Web.Visible = True
    Web.Navigate "https://mytestingsite/login.html ", 8
End Sub
Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error GoTo aaa
    'MsgBox "   URL: " & URL
    If URL = "https://mytestingsite/login.html" Then
    Web.Document.getElementById("Login_userName").Value = "abcd"
    Web.Document.getElementById("Login_userName").onchange
    Web.Document.getElementById("Login_password").Value = "123456789"
    Web.Document.getElementById("dateField").Value = "15/09/1954"
    End If
Exit Sub
aaa:
MsgBox Err.Description & "   URL: " & URL
End Sub
Private Sub Web_OnQuit()
    MsgBox "OnQuit fired"
End Sub

Мой вопрос: зачем запускать от имени администратора для простой веб-автоматизации? Разве нельзя запустить приложение у обычного пользователя в Windows 10? Как решить эту проблему?

Пожалуйста, не предлагайте мне пересобрать приложение в.net (преобразование моего приложения в.net займет много времени)

1 ответ

Быстрое решение вашей проблемы - опубликовать манифест вместе с вашим.exe

здесь описано: Как мне создать файл манифеста в Visual Basic 6.0?

Другие вопросы по тегам