Internet explorer 使用vbscript登录Dropbox

我在这里找到了一个脚本，可以登录到某个人制作的论坛，我编辑了它以登录Dropbox，但它对我仍然不起作用。我希望脚本取消选中“记住我”复选框，并从我在全新机器上执行的vbs文件登录到Dropbox。 以下是我到目前为止的情况：

Call Main

Function Main
    Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
    IE.Visible = True
    IE.Navigate "dropbox.com/login"
    Wait IE
    With IE.Document
        .getElementByID("login_email").value = "mypassword"
        .getElementByID("login_password").value = "myemail" 
        .getElementByID("remember_me").checked = "unchecked"
        .getElementsByName("frmLogin")(0).Submit
    End With
End Function

Sub Wait(IE)
  Do
    WScript.Sleep 500
  Loop While IE.ReadyState < 4 And IE.Busy
End Sub

callmain
主要功能
设置IE=WScript.CreateObject（“InternetExplorer.Application”、“IE”）
可见=真实
浏览“dropbox.com/login”
等等
用IE文件
.getElementByID（“登录\电子邮件”）.value=“我的密码”
.getElementByID（“登录密码”）.value=“myemail”
.getElementByID（“记住我”）.checked=“未选中”
.getElementsByName（“frmLogin”）（0）。提交
以
端函数
分段等待（IE）
做
WScript.Sleep 500
当IE.ReadyState<4且IE.Busy时循环
端接头

---

我更改了它“获取”的ID以设置用户名和密码，但我不确定“frmLogin”。

考虑下面的示例，使用节点可访问性扩展检查并使用

。单击
方法而不是
。提交
，因为最后一个方法会导致我出现403错误页面：

选项显式
暗色
DropBoxLogin-objIE，strMsg
MsgBox strMsg
子DropBoxLogin（objIE、strMsg）
Set objIE=CreateObject（“InternetExplorer.Application”）
objIE.Visible=True
objIE.导航“https://www.dropbox.com/login"
等等，奥布杰
如果不为null（objIE.Document.getElementById（“标题帐户菜单”）），则
strMsg=“已登录”
其他的
WaitElementById objIE，“常规登录表单”
使用objIE.Document.GetElementsByCassName（“登录表单”）（0）
.item（“登录\电子邮件”）。值=“mymail@mydomain.com"
.item（“登录密码”）.value=“mypassword”
.item（“记住我”）.checked=False
.getElementsByTagName（“按钮”）（0）。单击
以
WaitElementById对象，“标题帐户菜单”
等等，奥布杰
strMsg=“登录已完成”
如果结束
端接头
子等待（objIE）
当objIE.ReadyState<4或objIE.Busy时执行
WScript.Sleep 10
环
直到objIE.Document.readyState=“完成”为止
WScript.Sleep 10
环
端接头
子WaitElementById（objIE，strId）
dowhileisnull（objIE.Document.getElementById（strId））
WScript.Sleep 10
环
端接头
考虑以下示例，使用节点可访问性扩展检查并使用
。单击
方法而不是
。提交
，因为最后一个会导致我出现403错误页面：

选项显式
暗色
DropBoxLogin-objIE，strMsg
MsgBox strMsg
子DropBoxLogin（objIE、strMsg）
Set objIE=CreateObject（“InternetExplorer.Application”）
objIE.Visible=True
objIE.导航“https://www.dropbox.com/login"
等等，奥布杰
如果不为null（objIE.Document.getElementById（“标题帐户菜单”）），则
strMsg=“已登录”
其他的
WaitElementById objIE，“常规登录表单”
使用objIE.Document.GetElementsByCassName（“登录表单”）（0）
.item（“登录\电子邮件”）。值=“mymail@mydomain.com"
.item（“登录密码”）.value=“mypassword”
.item（“记住我”）.checked=False
.getElementsByTagName（“按钮”）（0）。单击
以
WaitElementById对象，“标题帐户菜单”
等等，奥布杰
strMsg=“登录已完成”
如果结束
端接头
子等待（objIE）
当objIE.ReadyState<4或objIE.Busy时执行
WScript.Sleep 10
环
直到objIE.Document.readyState=“完成”为止
WScript.Sleep 10
环
端接头
子WaitElementById（objIE，strId）
dowhileisnull（objIE.Document.getElementById（strId））
WScript.Sleep 10
环
端接头