如何選擇網頁瀏覽器的DropDown菜單項？ Visual Basic 2008 2010

向所有的朋友和讀者致意。我正在創建一個應用程序，我需要選擇Web瀏覽器的組合框/下拉列表選項。實際上，我的程序的工作是它應匿名評論（發送/提交文本）到我的blogspot頁面（隱藏頁面）。我將在其他程序中使用此方法將反饋發送給我。我不想使用電子郵件服務，因爲一些防病毒可以檢測到它，也可能是一些專家可能破解我的電子郵件密碼。所以我決定使用這種方法。如何選擇網頁瀏覽器的DropDown菜單項？ Visual Basic 2008 2010

我的問題是，博主評論框選定的項目是「谷歌帳戶」或「選擇一個選項」我想將所選項目更改爲「匿名」。我已經谷歌搜索，並嘗試了很多代碼示例。但:-(

這裏是我的代碼：

Public Class Form1 

Dim pagepathh As String = "C:\Users\username\Desktop\sample.htm" 
Dim posturl As String = "<iframe allowtransparency=""true"" class=""blogger-iframe-colorize blogger-comment-from-post"" frameborder=""0"" height=""234px"" id=""comment-editor"" name=""comment-editor"" src=""http://www.blogger.com/comment-iframe.g?blogID=8713182853230782541&amp;pageID=4831696032518082948&amp;blogspotRpcToken=9354446#%7B%22color%22%3A%22rgb(255%2C%20255%2C%20255)%22%2C%22backgroundColor%22%3A%22rgb(20%2C%2020%2C%2020)%22%2C%22unvisitedLinkColor%22%3A%22rgb(136%2C%20136%2C%20136)%22%2C%22fontFamily%22%3A%22Arial%2C%20Tahoma%2C%20Helvetica%2C%20FreeSans%2C%20sans-serif%22%7D"" width=""100%""></iframe>" 
'This Is Bloger Comment Body Url.

Form1的負載：

My.Computer.FileSystem.WriteAllText(pagepathh, posturl, False) 
    wb1.Navigate(pagepathh) 'WB1 is my webbrowser.

Button1的（郵政按鈕）點擊：

wb1.Document.GetElementById("commentBodyField").SetAttribute("Value", tb_comment.Text) ' tb_Comment is comment textbox.

I want To Place Some Code Here To Set Combobox Selected Item "anonymously".

wb1.Document.GetElementById("postCommentSubmit").InvokeMember("click")

這裏是Blogspot的下拉列表中的HTML代碼：

<select id="identityMenu" name="identityMenu" dir="ltr" onchange="BLOG_CMT_onSelectorChange()" style="display: inline; "> 
<option value="NONE" disabled="">Select profile...</option> 
<option value="NONE" disabled=""> </option> 
<option value="GOOGLE">Google Account</option> 
<option value="NONE">LiveJournal</option> 
<option value="NONE">WordPress</option> 
<option value="NONE">TypePad</option> 
<option value="NONE">AIM</option> 
<option value="OPENID">OpenID</option> 
<option value="NONE" disabled=""> </option> 
<option value="NAMEURL">Name/URL</option> 
<option value="ANON">Anonymous</option>

附加信息：

Platform: Visual Basic Express 2010 
.Net Framework is 2.0 
Webpage Dropdown List Id: "identityMenu" 
Webpage Button Submit Id: "postCommentSubmit" 
Webpage Comment Textbox Id: "commentBodyField"

請真的很對不起我的英文不好咒語語法錯誤。

來源

2012-08-29 Muhammad Saqib

@TimWilliams感謝編輯！（標籤VBA）你能給我解決我的問題嗎？ –

你需要做的是在HTML中使用id爲「identityMenu」，然後將「value」屬性設置爲「ANON」，這是您要選擇的Anonymous選項的值。你可以使用下面的代碼。希望這可以幫助。

wb1.Document.GetElementById("identityMenu").SetAttribute("value","ANON")

來源

2014-08-19 20:23:00 slister

嗨@slister，謝謝你的回答，但問題已經有1年了，而且我目前正在另一個項目中，這就是爲什麼我沒有條件測試你的解決方案。 –

如何選擇網頁瀏覽器的DropDown菜單項？ Visual Basic 2008 2010

回答

相關問題