vb.net программирование кнопки нажмите на веб-сайте

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 А, проверяя его innerHTML для «Сегодня», а затем вызова нажми

как так

 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