使VB瀏覽器使Facebook狀態

我想做一個VB腳本登錄到我的Facebook和更新我的狀態。問題是，提交按鈕沒有可以使用Chrome的頁面信息找到的ID。我到目前爲止的腳本是：使VB瀏覽器使Facebook狀態

Try 
     Dim fileReader As String 
     fileReader = My.Computer.FileSystem.ReadAllText("pathtotext") ' I sensoored my path 
     fileReader2 = My.Computer.FileSystem.ReadAllText("pathtotext") 'I sensored my path 
     WebBrowser1.Document.GetElementById("email").SetAttribute("value", fileReader2) 
     WebBrowser1.Document.GetElementById("pass").SetAttribute("value", fileReader) 
     WebBrowser1.Document.GetElementById("loginbutton").InvokeMember("click") 
    Catch ex As Exception 
     WebBrowser1.Document.GetElementById("u_0_10").SetAttribute("value", "Can I make a status?") 
     WebBrowser1.Document.GetElementById("submit").InvokeMember("click") 
    End Try

所有這些工作，除了提交按鈕。我使用「提交」，因爲這是類型，沒有ID顯示。預先感謝所有幫助。

P.S - 爲了將來的參考，你是如何找到這個按鈕的ID？「如果你給一個飢餓的人一條魚，他都要填滿，但授之以漁，而他永遠不會再捱餓」 - 匿名

來源

2014-11-05 Brad

您可以使用此

Dim htmlElements As HtmlElementCollection = WebBrowser1.Document.All 
     For Each ClickOnElementButton As HtmlElement In htmlElements 
      If ClickOnElementButton.InnerText = "Post" Then 
       ClickOnElementButton.InvokeMember("click") 
      End If 
     Next

，而不是舊代碼

來源

2015-05-01 15:22:54 samirmohamed222

您可以通過選擇文本並在文本編輯器中單擊「{}」按鈕來格式化代碼。它會使代碼更易於閱讀.... – 2015-05-01 15:41:26

使VB瀏覽器使Facebook狀態

回答

相關問題