在windows 10中使用vb6实现Web自动化时出错

在windows 10中使用vb6实现Web自动化时出错,vb6,windows-10,internet-explorer-11,webautomation,Vb6,Windows 10,Internet Explorer 11,Webautomation,我正在自动化一个网站,以填写登录详细信息。我用vb6开发了这个应用程序,它在WindowsXP、7和8中运行得非常好。现在它在Windows10中给出了错误。 在windows 10中,当我直接运行exe时,登录详细信息没有填充。(我收到“OnQuit fired”消息)。但是,当我以管理员身份运行exe时,它工作正常。 这是vb6代码 Private Sub Form_Load() Set Web = New SHDocVw.InternetExplorer Web.Visi

我正在自动化一个网站,以填写登录详细信息。我用vb6开发了这个应用程序,它在WindowsXP、7和8中运行得非常好。现在它在Windows10中给出了错误。 在windows 10中,当我直接运行exe时,登录详细信息没有填充。(我收到“OnQuit fired”消息)。但是,当我以管理员身份运行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
我的问题是,为什么简单的web自动化需要以管理员身份运行? 无法在Windows 10的标准用户中运行应用程序吗? 如何解决这个问题


请不要建议我在.net中重建应用程序(将我的应用程序转换为.net需要很多时间)

解决问题的快速方法是将清单与.exe一起发布

此处描述:

对您的问题投了赞成票,因为windows 8.1或更高版本,许多基于VB6的应用程序出于某种原因需要提升,因此也希望对此进行澄清或提供文档。不确定这是否适用,但在我使用WebBrowser控件(基本上是wndow中的IE)时,它曾对我起作用。在Internet设置|安全选项卡下,您可以单击自定义级别并启用“允许Microsoft Web浏览器控件的脚本编制”@dbmitch该解决方案不适用于我。有人知道Windows 10中vb6的命名权限集吗?这只是以管理员身份运行exe。无法在windows 10的标准用户中运行吗?