フォームを送信しようとしましたが、form.submit、sendkeys、click、fire.eventで失敗します。

Question

HTMLページの入力テキストボックスでEnterキーを押すことをシミュレートする必要があります。操作方法は 検索条件を入力し、Enterキーを押してデフォルトの検索条件でレコードを検索するか、 を使用して別の検索タイプを選択することができます。ドロップダウンをクリックして選択項目をクリックすると、検索が実行されます。

<input class="inp" type=text **name="inputboxvalue"** value="?" 
            size="12" maxlength="12" tabindex=1 style="background-color:#EFFAE5;"> 

           <**select name="GOTO"** size="1" onChange="gotoMenu(this);" style="font-size:11px;"> 
            <option>GOTO .... 

私はいくつかの方法を試しましたが、機能しません。私は適切な検索値をテキストボックス フィールドに入力することができ、それはthatsです！

他の問題として、これは不可視になり、焦点の問題があるかもしれませんが、今のところは目に見えます！ フォームの前面にsendkeysを試してみましたが、成功していませんでした。

oBrowser.Document.Forms(0).all("inputboxvalue").Value = "1234567" 

sendkeys "{RETURN}" 
'sendkeys "{ENTER}" 
'oBrowser.Document.Forms(0).all("getrecordid").submit (Tried this as well) 

=========================================== ==============

'これは投稿によるものであることを示すフォーム部分ですので、送信は表示されません！

<form name="sam_0000004" method="post" action="/samcz1TSUQlM2FBTk9OJTNhYDEA" accept-charset="windows-1251, US-ASCII" enctype="multipart/form-data"> 
     <input type="hidden" name="~OkCode" value=""> 

送信コードに（0）の代わりにフォーム名（ "sam_0000004"）を入れてみました。

sendkeysの背後にあるのはオプションではないので、私は sendinputでそれをやらなければならないが、これまでのコーディングを試したことはありませんでした。

おかげ

ピート

Answer 1

umteenの組み合わせを試した後、私は最終的にそれがこのように動作するようになりました！

Dim eFRM, eFRM2 As MSHTML.IHTMLElement 
     Set eFRM2 = myBrowser.Document.getElementById("GOTO") 

    eFRM2.FireEvent ("OnChange") 

私は ピート

FireEventをより具体的に

を必要としているように見えます