WebBrowserコントロールを使用してTEXTBOXのvalueに値を入れたい

前提・実現したいこと

VB.NETにてWebBrowserコントロールを使用しています。表示させたページのテキストボックスのvalueに値を入れたいのにplaceholderに入ってしまいます。

発生している問題・エラーメッセージ

なし

該当のソースコード

        Dim wManryoDate As String = "2020/12/15"
        Dim all As HtmlElementCollection = WebBrowser1.Document.All
        'Dim forms As HtmlElementCollection = all.GetElementsByName("kensayoteibi")   
        Dim forms As HtmlElementCollection
        Dim box1 As HtmlElement = WebBrowser1.Document.GetElementById("kensayoteibi")

        Try
            forms = all.GetElementsByName(box1.Name)
            forms(0).InnerText = wManryoDate     'placeholderに入ってしまう。本当はvalueに入れたい。
            System.Windows.Forms.Application.DoEvents()

            forms = WebBrowser1.Document.GetElementsByTagName("form")
            forms(0).InvokeMember("submit")  ' ボタンのクリック


        Catch ex As Exception
            MessageBox.Show(ex.ToString, "エラー")
        End Try

補足情報

退会済みユーザー

2019/02/28 08:42

forms(0).InnerText = wManryoDate の forms(0) で取得できている要素が目的のテキストボックスではないからではないのですか？　そのあたり確認されましたか？

TakaakiN

2019/02/28 08:50

返信ありがとうございます。取得している要素は以下の input のはずですが・・・取得要素を確認する方法を教えていただければ助かります。 <input id="kensayoteibi" name="kensayoteibi" style="ime-mode:disabled;" placeholder="yyyy/mm/dd" type="text" class="jquery-ui-datepicker" value="" size="10" maxlength="10"/>

退会済みユーザー

2019/02/28 09:03

HtmlDocument.GetElementById メソッドというのがあるので、それで取得してはいかがですか？　普通は id はダブってないはずなので目的のテキストボックスが取得できると思うのですが。ただ、 InnerText プロパティで設定できたかどうかは定かではないです。やってみてダメなら、そのあたりも考えてみてください。

TakaakiN

2019/02/28 09:56

ソースコードを変更して実行しましたが、変わらないようです。継続して調べます。