vbscript - VBS 机器人无法正常工作

Question

目前我正在制作一个机器人，它最终应该只是在网站上播放一首歌曲，但机器人根本无法点击按钮。我通过检查网站上的 HTML 代码获取了按钮的名称。我将在下面显示我的代码，并添加一张图片，显示我的代码可能有什么问题：

set webbrowser = createobject("internetexplorer.application")
webbrowser.statusbar = false
webbrowser.toolbar = false
webbrowser.menubar = false
webbrowser.visible = true

webbrowser.navigate("https://skiomusic.com/gravit/noah-kahan-hurt-somebody-gravi-t-remix")

WScript.sleep(8000)

webbrowser.document.all.item("div.playBtn").click

WScript.sleep(10000)

webbrowser.Quit

第 11 行，字符：1，错误：需要对象，来源：microsoft 运行时错误

我的问题显然是，我该如何解决这个错误？

Answer 1

嗯.. 看来你没有足够好地检查 HTML 代码。div.playBtn没有任何意义。我查看了该页面，发现该按钮没有 id，但它确实有一个名为playBtn. 为了找到这个对象，您应该使用getElementsByClassName返回集合的函数。从该集合中，您想要第一个项目。

尝试这个

Option Explicit

Dim webbrowser, button
Set webbrowser = createobject("internetexplorer.application")
webbrowser.statusbar = False
webbrowser.toolbar   = False
webbrowser.menubar   = False
webbrowser.visible   = True

webbrowser.navigate("https://skiomusic.com/gravit/noah-kahan-hurt-somebody-gravi-t-remix")

WScript.sleep(8000)  ' why wait so long??

Set button = webbrowser.Document.getElementsByClassName("playBtn").Item(0)
button.Click

WScript.sleep(10000)

webbrowser.Quit