Question

我正在使用Visual Studio Express 2013并尝试编写一些代码来按网页上的按钮。我已经阅读了很多例子，并得到了类似的例子，但似乎没有一个在我的工作。以下是代码

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim IE As SHDocVw.InternetExplorer


IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.Navigate("http://www.timeanddate.com/date/weekdayadd.html")

Do Until IE.ReadyState = SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE

Loop


Dim elementcol As Object
elementcol = IE.Document.getelementsbyclassname("bigger")

elementcol.invokemember("click")




End Sub

这是来自许多例子，但似乎都没有。任何人都可以向我提供一些反馈。我正在引用shdocvw.dll，HTML Dialogs 1.0类型库，Microsoft HTML对象库和Microsoft Internet Controls。

它到达最后一行并打破。

我可以从任何人那里得到想法，为什么这不起作用？

非常感谢您的反馈!!

Answer 1

您要点击哪个按钮？较大的类仅指今日链接的集合。为此你最好得到一个HTML A元素的集合，检查它的innerHTML＆＃34;今天＆＃34;然后调用点击

喜欢这样

        Dim IE As SHDocVw.InternetExplorer
        IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True
        IE.Navigate("http://www.timeanddate.com/date/weekdayadd.html")

        Do Until IE.ReadyState = SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
            Application.DoEvents()
        Loop
        Dim elementcol As Object
        elementcol = IE.Document.getelementsbytagname("A")
        For Each f In elementcol
            If f.InnerHtml = "Today" Then
                f.click()
                Exit For
            End If
        Next

vb.net在网站上编程按钮按下

1 个答案: