個人記事

先加入 參考 

Microsoft.mshtml.dll （或者 mshtml.tlb)

範例 ：網頁原始碼大約如下

<select name="ddlMonth" onchange="javascript :setTimeout('__doPostBack(\'ddlMonth\',\'\')', 0)" language="javascript" id="ddlMonth"

onkeypress="if (event.keyCode == 13) return false;">

<option selected="selected" value="2/1/2009">February 2009</option>
<option value="1/1/2009">January 2009</option>
</select>


範例 寫法  
Dim oComboBoxElement As HtmlElement = WebBrowser1.Document.All("ddlMonth")

For Each oComboBoxItem As HtmlElement In oComboBoxElement.Children
If (oComboBoxItem.GetAttribute("value") = "1/1/2009") Then
oComboBoxItem.SetAttribute("selected", "x")

oComboBoxElement.FireEvent("onchange")
End If

Next

範例2:

<DIV style="DISPLAY: none" id=divFriendGroup>選擇群組: <SELECT name=FriendGroup  type="text">

 <OPTION selected value=all>全選</OPTION></SELECT>

 </DIV></TD></TR>

<TR>
<TD align=right><LABEL for=category>個人分類:</LABEL> </TD> 
<TD> 
<SELECT style="DISPLAY: inline" id=category onchange=mapping_category(this.value); size=1 name=category_id> 
<OPTION selected value=0>不分類</OPTION> 
<OPTION value=12815724>選項1</OPTION>
<OPTION value=12776898>選項2</OPTION> 
</SELECT> </TD></TR> 
<SCRIPT type=text/javascript> 

寫法 ：

Dim oDC2 As HtmlElement = WebBrowser1.Document.GetElementById("category_id") 
oDC2.SetAttribute("option", "13460233") 
Dim java As mshtml.IHTMLWindow2 = WebBrowser1.Document.Window.DomWindow   
java.execScript("mapping_category();", "Javascript")