VBS机器人无法正常运行

时间:2018-07-10 19:41:07

标签: vbscript bots notepad

目前,我正在制作一个机器人,该机器人最终应只在网站上播放一首歌曲,但该机器人根本无法单击按钮。我通过检查网站上的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

Line 11, character: 1, error: object required, source: microsoft runtime error

显然,我的问题是,如何解决此错误?

1 个答案:

答案 0 :(得分:0)

好吧..看来您没有很好地检查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