0

クリックイベントを送信しようとしているWebページに次のhtmlコードがあります。それはSELECTタグです。ただし、次のコードを使用して見つけることができません。

Dim element As HtmlElement = bbsmWB.Document.GetElementsByTagName("SELECT").Cast(Of HtmlElement).First(Function(el) el.GetAttribute("id") = "aPopUp")

element.GetElementsByTagName("OPTION").Cast(Of HtmlElement).First(Function(el) el.InnerText = "thunder").SetAttribute("selected", "selected")

探している Select タグがその Web ページの iframe 内にあることが原因のようです。

これを行うと、HTMLをうまく取得できます。

theHTML = bbsmWB.Document.Window.Frames("ifrm-rtw32").Document.Body.InnerHtml

theHTML内でaPopUpコードを見つけました。

HTML コードは次のようになります。

<SELECT style="WIDTH: 100%" id=aPopUp onclick=hideMe() size=20>
  <OPTION value=sunny>Sunny</OPTION>
  <OPTION selected value=rain>Rain showers</OPTION>
  <OPTION value=thunder>Thunder Storms</OPTION>
  <OPTION value=snow>Snow Showers</OPTION>
</SELECT>

上記の vb.net コードを変更して、デフォルト ページではなくiframeで表示されるようにするにはどうすればよいですか?

4

1 に答える 1