Internet explorer VB脚本以编程方式打开安全网页

我正在编写一个VB脚本代码，作为cimplicity对象的一部分。代码基本上需要使用特定的URL打开IE并自动登录到网页。登录是一个“windows安全”弹出窗口。我可以务实地登录吗？

以下是我代码的一部分：

On Error GoTo ERR_TRP
Dim IE
Dim UID As CimObjectVariable
Dim PWD As CimObjectVariable
Dim URL As CimObjectVariable

Dim sUID As String
Dim sPWD As String
Dim sURL As String

Set UID = CimGetScriptOwner().GetVariable("USER")
Set PWD = CimGetScriptOwner().GetVariable("PWD")
Set URL = CimGetScriptOwner().GetVariable("IP")
sUID = UID.Value
sPWD = PWD.Value
sURL = URL.Value
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate sURL
Sleep(1000)

Err_Trp:
    x = MSGBOX ("Cannot open the camera Please check User-Password-IP", 0 , "Eror")

---

正如omegastripes所写，您不能在VBS中声明变量数据类型，但是要在导航到页面后将用户名/密码发送到弹出的登录窗口，请使用以下代码：

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "Windows Security"
WshShell.SendKeys "YourUserID"
WScript.Sleep 100
WshShell.SendKeys "{TAB}" 
WScript.Sleep(100)
WshShell.SendKeys "YourPassword"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"

---

Dim。。。由于

在VBS中不起作用，VBS中的所有变量都具有变量类型。只需使用

Dim

而不使用

作为

。你能分享给你这样的弹出窗口（或任何类似的）的网址吗？对不起，我不能分享。这是该公司的内部URL。只有一个问题，我如何才能将IE页面置于我的应用程序之上？

WshShell.AppActivate IE.Name

非常感谢。另一个问题：我可以问“如果windows安全已激活，则执行登录”吗？因为并非所有URL都有登录