Question

您好，我的朋友和读者。我正在创建一个应用程序，我需要在其中选择Webbrowser的组合框/下拉列表选项。实际上我的程序的工作是它应该匿名评论（发送/提交文本）到我的blogspot页面（隐藏页面）。我将在我的其他程序中使用此方法将回送给我。我不想使用电子邮件服务，因为某些防病毒软件可以检测到它，可能有些专家可能会破解我的电子邮件密码。所以我决定使用这种方法。

我的问题是博主评论框选中的项目是＆＃34;谷歌帐户＆＃34;或者＆＃34;选择一个选项＆＃34; 我想将所选项目更改为＆＃34; ANONYMOUSLY＆＃34;。我用谷歌搜索并尝试了许多代码示例。但是： - （

这是我的代码：

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"

真的很抱歉我的英语拼写错误和语法错误。

Answer 1

您需要做的是使用HTML中的select的id，即“identityMenu”，然后将“value”属性设置为“ANON”，这是您要选择的Anonymous选项的值。您可以使用以下代码执行此操作。希望这会有所帮助。

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

如何选择webbrowser的DropDown菜单项？ Visual Basic 2008 2010

1 个答案: