Vbscript 单击按钮创建VBS文件

我试图制作一个

VBS

文件，当你打开它时，它会在谷歌浏览器中启动一个标签，然后点击一个按钮。在这种情况下[玩]

这是我的剧本：

---

但是，如果有人有办法让它实际单击它，这将是不起作用的。

它不会显示为您已将Chrome文档传递到您的文档对象中

尝试添加两个引用：Microsoft Internet控件和Microsoft HTML对象库，然后：

Dim iURL
Dim objShell
Dim Document As HTMLDocument
Dim Elem As IHTMLElement
Dim Elements As IHTMLElementCollection

iURL = "http://www.roblox.com/games/292439477/NEW-GUNS-Phantom-Forces-Beta"

Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "chrome.exe", iURL, "", "", 1
WScript.Sleep (3000)
Document = objShell.HTMLDocument
Elements = Document.getelementsbyClassName("rbx-btn-primary-lg")
For Each Elem In Elements
    If Elem.innerText = "Play" Then
        Elem.Click
        Exit For
    End If
Next

---

尝试的脚本和方法数量：24个有效的数量：0我对VBScript非常陌生，是否应该将第3、4和5行更改为其他内容？如果是这样的话，请在这里帮助我，您说的“接受”是什么意思？它看起来不像您已将Chrome文档传递到您的文档对象中。请尝试添加两个引用：Microsoft Internet控件和Microsoft HTML对象库“您可能希望使用“Selenium Wrapper”来有效地自动化Chrome。从菜单中，单击“工具”，选择“引用”，查找“Microsoft Internet控件”，然后单击复选框。找到“Microsoft HTML对象库”并单击复选框。单击“确定”。你现在将这两个参考库导入到你的项目中。你可以忽略发布答案，我放弃了，我不打算这样做。

Dim iURL
Dim objShell
Dim Document As HTMLDocument
Dim Elem As IHTMLElement
Dim Elements As IHTMLElementCollection

iURL = "http://www.roblox.com/games/292439477/NEW-GUNS-Phantom-Forces-Beta"

Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "chrome.exe", iURL, "", "", 1
WScript.Sleep (3000)
Document = objShell.HTMLDocument
Elements = Document.getelementsbyClassName("rbx-btn-primary-lg")
For Each Elem In Elements
    If Elem.innerText = "Play" Then
        Elem.Click
        Exit For
    End If
Next