2013-07-14 112 views
0

我正在開發一個vb.net應用程序。我有一個網頁瀏覽器,我需要填寫一個表單上的一些信息,然後點擊提交按鈕。除了提交,一切都可以,沒有任何反應!請幫忙 !請幫助:點擊從VB.NET提交按鈕(WEbBrowser)

HTML頁面:

<p> 
     <input id="submit" name="submit" type="submit" value="Publicar" /> 

</p> 

我的代碼:

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted 
    If PAgina = 0 Then 
     Dim document As HtmlDocument = WebBrowser1.Document 
     Dim inputValue As HtmlElement = document.GetElementById("title") 
     inputValue.SetAttribute("value", "sdf fdd fh fgh fgh fg hfg hf ghfgh fg fg f hf fgh ") 

     inputValue = document.GetElementById("zone") 
     inputValue.SetAttribute("value", "Logroño") 

     inputValue = document.GetElementById("editor") 
     inputValue.SetAttribute("value", "Logroño s dfs dfs fsdfsd fsddfg dfg df gdf gdf gd df sd sd fsd fsdfsdfsdsdfsdf sdsdf") 


     inputValue = document.GetElementById("email") 
     inputValue.SetAttribute("value", "[email protected]") 


     WebBrowser1.AllowNavigation = True 

     **Dim submitButton As HtmlElement = document.GetElementById("submit") 
     submitButton.InvokeMember("submit") 
     ' WebBrowser1.Document.Forms("post").InvokeMember("submit")** 
     PAgina = 1 
    End If 

末次

回答

2

嘗試

.InvokeMember("click") ; // instead of "submit" ? 

或嘗試添加幾秒鐘的延遲之前提交。