VB點擊按鈕的JavaScript/IMG

Question

嗨，我正在嘗試點擊網站上的一個按鈕用VB.NET

我.AHK使用的命令是

Pwb.document.getElementsByTagName("IMG")[7].click 

按鈕/圖HTML在下面。

<img width="34" height="34" style="cursor: pointer;" onclick="doSubmit()" alt="" src="../../images/SC5Login07.jpg" border="0" complete="complete"/> 

我注意到它在點擊時運行了一些javascript。這低於

function doSubmit() { 
      //Submit the form 
      if (document.getElementById("txtDBName").value == "") { 
      //Login security modifications - End 
       alert('You must select a Database'); 
      } 
      else { 
       if (document.getElementById("txtUserName").value == "") { 
        alert('Please enter your Tesseract user id and password'); 
       } 
       else { 
       //Set txtformEvent 
        document.getElementById("txtFormEvent").value = "onSubmit"; 
        //Submit the form 
        document.getElementById("frmLoginLaunch").submit(); 
       } 
      }     
     } 

現在我知道有一個的getElementById，但我不能得到這工作，因爲在缺少ID的。我希望它能像AHK一樣容易，但它並不是這樣。

基本上有一種方法可以調用此dosubmit（）函數或模擬點擊圖像？

希望有人能幫助 感謝

三江源夥計們，這是我的登錄代碼現在

Public Class Form1 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    WebBrowser1.Navigate("http://caan/SC5/SC_Login/aspx/login_launch.aspx?SOURCE=ESOLBRANCHLIVE") 

    While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete 
     Application.DoEvents() 
    End While 

    WebBrowser1.Document.GetElementById("txtUserName").SetAttribute("value", "kieranw") 
    WebBrowser1.Document.GetElementById("txtPassword").SetAttribute("value", "kieranw") 

    Dim allImgTags As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img") 
    If allImgTags IsNot Nothing Then 
     For Each img As HtmlElement In allImgTags 
      If img.GetAttribute("src").Contains("/images/SC5Login07.jpg") Then 
       img.InvokeMember("Click") 
       Exit For 
      End If 
     Next img 
    End If 

End Sub 

末級

Answer 1

你沒有說，如果你的VB程序是一個網絡應用程序，控制檯應用程序等，但如果你可以使用jQuery，那麼你可以這樣做：

$("img[src$='SC5Login07.jpg']").trigger('click'); 

或：

$("img[src$='SC5Login07.jpg']").click(); 

編輯：看起來你正在使用的WinForms（這是不是這樣的事情是最好的選擇，IMO）。在這種情況下，嘗試這樣的事情：

Dim browser As New WebBrowser 
browser.Navigate("your_intranet_url") 

While browser.ReadyState <> WebBrowserReadyState.Complete 
    Application.DoEvents() 
End While 

Dim allImgTags As HtmlElementCollection = browser.Document.GetElementsByTagName("img") 
If allImgTags IsNot Nothing Then 
    For Each img As HtmlElement In allImgTags 
    If img.GetAttribute("src").Contains("/images/SC5Login07.jpg") Then 
     img.InvokeMember("Click") 
     Exit For 
    End If 
    Next img 
End If 

編輯＃2：羅恩tornamb的代碼是更接近原始AHK代碼，所以如果你想找到索引，使用IMG：

Dim browser As New WebBrowser 
browser.Navigate("your_intranet_url") 

While browser.ReadyState <> WebBrowserReadyState.Complete 
    Application.DoEvents() 
End While 

Dim img As HtmlElement = browser.Document.GetElementsByTagName("img")(7) 
If im IsNot Nothing Then 
    img.InvokeMember("Click") 
    End If 
End If 

Answer 2

要在VB.Net進行點擊，你首先需要等待文件加載，然後發出InvokeMember（「點擊」）命令元素如下：

Private Sub Pwb_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles Pwb.DocumentCompleted 
    Dim elem As HtmlElement = Pwb.Document.GetElementsByTagName("IMG")(7) 
    elem.InvokeMember("click") 
End Sub