Vbscript 用于自动登录网站的VB脚本出现错误

我使用下面的VB脚本自动登录到网站。它正在输入用户名，但未输入密码，并给出“不支持此属性或方法”的错误。我还没有在VB脚本工作，所以不知道为什么会出现这个错误

    On Error Resume Next
    Const PAGE_LOADED = 4
    Set objIE = CreateObject("InternetExplorer.Application")
    Call objIE.Navigate("http://www.gmail.com")
    objIE.Visible = True
    Do Until objIE.ReadyState = PAGE_LOADED : Call WScript.Sleep(100) : Loop
    objIE.Document.all.username.Value = "username"
    objIE.Document.all.Passwd.Value = "password"
    If Err.Number <> 0 Then
    msgbox "Error: " & err.Description
    End If
    Call objIE.Document.all.login_form.submit
    Set objIE = Nothing

出错时继续下一步
常量页面_已加载=4
Set objIE=CreateObject（“InternetExplorer.Application”）
调用objIE.Navigate（“http://www.gmail.com")
objIE.Visible=True
直到objIE.ReadyState=PAGE_加载为止：调用WScript.Sleep（100）：循环
objIE.Document.all.username.Value=“username”
objIE.Document.all.Passwd.Value=“密码”
如果错误号为0，则
msgbox“错误：&错误说明
如果结束
调用objIE.Document.all.login\u form.submit
设置对象=无

试试这段代码是否能奏效，因为gmail已经更改了它的源代码

Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate("https://accounts.google.com/ServiceLogin?service=ig&passive=true&continue=http://www.google.com/ig%3Fhl%3Den&followup=http://www.google.com/ig%3Fhl%3Den&cd=US&hl=en&nui=1&ltmpl=default")
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("Email")
Helem.Value = "Your Login goes here" 'Change to your Gmail login 
Set Helem = IE.document.Forms(0)
Helem.Submit 
Do While (IE.Busy)
    WScript.Sleep 10
Loop
wscript.sleep 2000
Set Helem = IE.document.getElementById("Passwd") 
Helem.Value = "Your Password goes here" 'Change to your Gmail password
Set Helem = IE.document.Forms(0)
Helem.Submit 

---

试试看这段代码是否能奏效，因为gmail已经改变了它的源代码

Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate("https://accounts.google.com/ServiceLogin?service=ig&passive=true&continue=http://www.google.com/ig%3Fhl%3Den&followup=http://www.google.com/ig%3Fhl%3Den&cd=US&hl=en&nui=1&ltmpl=default")
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("Email")
Helem.Value = "Your Login goes here" 'Change to your Gmail login 
Set Helem = IE.document.Forms(0)
Helem.Submit 
Do While (IE.Busy)
    WScript.Sleep 10
Loop
wscript.sleep 2000
Set Helem = IE.document.getElementById("Passwd") 
Helem.Value = "Your Password goes here" 'Change to your Gmail password
Set Helem = IE.document.Forms(0)
Helem.Submit 

---

我想登录到多个网站除了Gmail。另一个问题是，我尝试使用WScript，但它说ActiveX组件无法创建对象：“wsscript.shell”@Coder157它是

WScript.shell

而不是

wsscript.shell

你有一个额外的

s

我想登录Gmail之外的多个站点。另一个问题是，我尝试使用WScript，但它说ActiveX组件无法创建对象：“wsscript.shell”@Coder157它是

WScript.shell

而不是

wsscript.shell

您有一个额外的

s