WebBrowserを使ってプルダウンを操作するには？

質問

WebBrowserを使ってComboboxで選んだやつをWeb上のプルダウンに反映させたいのですがどうしたらいいでしょうか。
Comboboxは
4日
5日
6日
7日
ソースを見るとこのようになっていました。
<select name="date">
<option value="4">4日　
<option value="5">5日
<option value="6">6日　
<option value="7" selected>7日　
</select>
どなたかわかる方がいましたら教えていただけませんか。
初心者なのでわかりやすくお願い致します。

回答No.1

naganaga_001 · ベストアンサー

お世話になります。

教えて！goo の検索オプションの一部を操作する画面を作ってみました。

該当するのは以下の箇所です。
============================================================
<tr>
<td align="center" valign="middle" nowrap bgcolor="#E6E6E6"><b><font size="-1">カテゴリ指定</font></b></td>
<td bgcolor="#efefef">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<input type="radio" name="ct_select" value="0" checked onClick="disableCT()">
<font size="-1">指定しない</font></td>
<td>&nbsp;</td>
</tr>
<tr>
<td valign="top">
<input type="radio" name="ct_select" value="1" onClick="effectiveCT()">
<font size="-1">指定する</font></td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>

<select size="1" id="ct0" name="ct0" onChange="change(this.form)" style="width:200;"><option value="" selected>大カテゴリー</option><option value="214">ライフ</option><option value="207">デジタルライフ</option><option value="212">趣味</option><option value="209">エンターテインメント</option><option value="211">美容＆健康</option><option value="206">ビジネス＆キャリア</option><option value="208">社会</option><option value="213">マネー</option><option value="210">学問＆教育</option><option value="932">[地域情報] 旅行・レジャー・生活</option><option value="205">[技術者向] コンピューター</option><option value="713">【特設】アンケート</option><option value="517">このQ&Aコミュニティーについて</option></select>
</td>
</tr>
============================================================

Form に WebBrowser と Button を 1 つずつデザイナで貼り付け、
以下のコードを書いて実行して Button を押下すると、
http://oshiete.goo.ne.jp/search/search.php の
カテゴリ指定のところが
『指定する』にチェックが入り、大カテゴリが『[技術者向]コンピューター』になります。

Public Class Form1
　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　　　Me.Button1.Enabled = False
　　　　Me.WebBrowser1.Navigate("http://oshiete.goo.ne.jp/search/search.php")
　　End Sub

　　Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
　　　　Me.Button1.Enabled = True
　　End Sub

　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　　　' 「指定する」ラジオボタンにチェックを入れる
　　　　Me.WebBrowser1.Document.All.GetElementsByName("ct_select")(1).InvokeMember("click")

　　　　' 最初の ComboBox を取得する
　　　　Dim firstCombo As HtmlElement = Me.WebBrowser1.Document.GetElementById("ct0")

　　　　' ComboBox の値を設定する
　　　　firstCombo.SetAttribute("selectedindex", "11")
　　End Sub
End Class

お礼

大変わかりやすい説明でありがとうございました。（*^_^*）
お陰様でうまくできました。
またわからないことがあれば質問させていただきます。