如何点击此按钮？在Visual Basic 2010 WebBrowser控件

我试图单击WebBrowser控件中该按钮如何点击此按钮？在Visual Basic 2010 WebBrowser控件

我试着使Web自动化使用来自GameStop的即时购买的Visual Basic 2010速成继承人我的代码看起来像公共类Form1中

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 

End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    WebBrowser1.Document.GetElementById("mainContentPlaceHolder_dynamicContent_ctl00_RepeaterResultFoundTemplate_ResultFoundPlaceHolder_1_ctl00_1_ctl00_1_StandardPlaceHolderTop_3_ctl00_3_rptResults_3_res_0_btnAddToCart_0").InvokeMember("Click") 

End Sub 

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted 

End Sub 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    WebBrowser1.Navigate("http://www.gamestop.com/browse?nav=16k-3-wwii,28zu0") 
End Sub 


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
    WebBrowser1.Document.GetElementById("cartcheckoutbtn").InvokeMember("Click") 
End Sub 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 
    WebBrowser1.Document.GetElementById("buyasguest").InvokeMember("Click") 
End Sub 

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click 
    WebBrowser1.Document.GetElementById("ShipTo_FirstName").SetAttribute("value", "Rob") 
    WebBrowser1.Document.GetElementById("ShipTo_LastName").SetAttribute("value", "Horton") 
    WebBrowser1.Document.GetElementById("ShipTo_City").SetAttribute("value", "San Diego") 
    WebBrowser1.Document.GetElementById("USStates").InvokeMember("Select") 
    WebBrowser1.Document.GetElementById("ShipTo_Line1").SetAttribute("value", "9295 PebbleStone Ln") 
    WebBrowser1.Document.GetElementById("ShipTo_PostalCode").SetAttribute("value", "92128") 
    WebBrowser1.Document.GetElementById("ShipTo_PhoneNumber").SetAttribute("value", "6194682282") 
    For Each ee As HtmlElement In WebBrowser1.Document.All 
     If ee.InnerText Is Nothing Then Continue For 
     If ee.InnerText = "California" Then ee.SetAttribute("Selected", True) 
    Next 
    WebBrowser1.Document.GetElementById("ShipTo_EmailAddress").SetAttribute("value", TextBox1.Text) 
    For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input") 
     If element.GetAttribute("class") = "btn_positive ats-checkoutbtn" Then 
      element.InvokeMember("click") 
     End If 
    Next 







End Sub 

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

我试着点击此按钮，我巡视elemented它，这就是出现了**

（继续结账▶）

** 我如何使它单击此我试图标识，但它没有ID BTW即时通讯新的这个只是试图让一个自动Web自动化软件采购游戏当我检查元素时，那里的代码是在顶部顶部顶部

来源

2017-07-14 Zachary Hyatt

您实际上是在尝试点击链接而不是输入按钮。

链接有一个onclick属性，其中包含javascript并返回false。

所以，你可以找到链接，或者你可以执行JavaScript的链接执行submitshipto()

WebBrowser1.InvokeScript("submitshipto()")

或者：

For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a") 
    If element.GetAttribute("class") = "btn_positive ats-checkoutbtn" Then 
     element.InvokeMember("click") 
    End If 
Next

来源

2017-07-15 01:59:43

如何点击此按钮？在Visual Basic 2010 WebBrowser控件

回答

相关问题