1

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

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

这是我的代码：

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"

请真的为我糟糕的英语拼写和语法错误感到抱歉。

4

1 回答 1

0

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

wb1.Document.GetElementById("identityMenu").SetAttribute("value","ANON")
于 2014-08-19T20:23:00.793 回答