HTML上のテキストボックスの入力値が認識されていない

Question

特許庁の管理している、特許や商標の検索が出来るwebサイト(J-PlatPat)のテキストボックスに値を入力し、検索ボタンを押す、という処理を、
Webブラウザ(Firefox)のアドイン機能(iMacros)を使用して行おうとしています。

動作としては、テキストボックスに値が入り、検索ボタンも押されているようですが、
テキストボックスに入力が無いことを表す「検索キーワードを入力してください。」という
メッセ―ジが画面上に表示されます。

テキストをセットしている箇所に誤りがあるのでしょうか？

また、アドイン機能で出来ないので、VBSでも試してみましたが、
こちらも同様の結果(エラー)になりました。

iMacros プログラム

VERSION BUILD=10021450
URL GOTO=https://www.j-platpat.inpit.go.jp/
TAG POS=4 TYPE=DIV ATTR=CLASS:mat-radio-outer-circle&&TXT:
TAG POS=1 TYPE=INPUT:RADIO FORM=ID:s01_main ATTR=ID:mat-radio-5-input
TAG POS=1 TYPE=INPUT:TEXT FORM=ID:s01_main ATTR=ID:s01_srchCondtn_txtSimpleSearch CONTENT=AAAAA
TAG POS=1 TYPE=SPAN ATTR=TXT:検索

Webページ ソース(一部抜粋)

<input _ngcontent-c7="" id="s01_srchCondtn_txtSimpleSearch" maxlength="200" name="s01_srchCondtn_txtSimpleSearch" type="text" ng-reflect-maxlength="200" ng-reflect-name="s01_srchCondtn_txtSimpleSearch" ng-reflect-model="" placeholder="例1)人工知能  例2)2019-00012X" class="ng-pristine ng-valid ng-touched">

Option Explicit

	Dim objIE2
	Dim wSLEEP

	wSLEEP = 200

	Set objIE2 = WScript.CreateObject("InternetExplorer.Application")
	objIE2.Visible = True 
	objIE2.Navigate2 "https://www.j-platpat.inpit.go.jp/"

        WScript.Sleep wSLEEP
	Dim objShell
	Dim objWindow


	Set objShell = CreateObject("Shell.Application")

	For Each objWindow In objShell.Windows

		If TypeName(objWindow.document) = "HTMLDocument" Then

			If Instr(objWindow.Document.Title, "J-PlatPat") > 0 then 

				Set objIE2 = objWindow
				WScript.Sleep wSLEEP
				Exit For 

			End If

		End If

	Next

        WScript.Sleep wSLEEP

	'ID、パスワードをセット
	objIE2.Document.getElementsByName("s01_srchCondtn_txtSimpleSearch")(0).focus
	objIE2.Document.getElementsByName("s01_srchCondtn_txtSimpleSearch")(0).Value = "test"
	objIE2.Document.getElementsByName("s01_srchBtn_btnSearch")(0).click

	Set objShell = Nothing

Comments

[ttyp03]

VBScriptは関係あるのでしょうか？

[kyon-net]

申し訳ございません。
質問内容に記載漏れがありました。
処理の自動化が、Webブラウザのアドイン機能か、VBSで出来ればと考えています。

[Lhankor_Mhy]

「あるwebサイト」はご提示いただけますか？
それがないとあてずっぽうになるので、回答は難しいのではないかと思いますが……

[kyon-net]

特許庁の管理している、特許や商標の検索が出来るwebサイトになります。https://www.j-platpat.inpit.go.jp/

Answer 1

下記内容のVBScriptファイルを実行することで、実現できました。

Option Explicit


	Dim objIE2
	Dim wSLEEP

	wSLEEP = 500

	Set objShell = WScript.CreateObject("Shell.Application")
	objShell.MinimizeAll

	Set objIE2 = WScript.CreateObject("InternetExplorer.Application")
	objIE2.Visible = True 
	objIE2.Navigate2 "https://www.j-platpat.inpit.go.jp/"

        WScript.Sleep wSLEEP
        WScript.Sleep wSLEEP
	Dim objShell
	Dim objWindow
	Dim K
	K = 0


	For Each objWindow In objShell.Windows

		If TypeName(objWindow.document) = "HTMLDocument" Then

			If Instr(objWindow.Document.Title, "特許情報") > 0 then 
				Set objIE2 = objWindow
				WScript.Sleep wSLEEP
				Exit For 

			End If

		End If

	Next

        WScript.Sleep wSLEEP

	Set objShell = Nothing
	Set objShell = WScript.CreateObject("WScript.Shell")
        WScript.Sleep wSLEEP

objShell.AppActivate(objIE2.Document.Title)


	objIE2.Document.getElementById("s01_srchCondtn_icoAutoRefine").focus

        WScript.Sleep wSLEEP
	objShell.SendKeys("{TAB}"), True
        WScript.Sleep wSLEEP
	objShell.SendKeys("AAAAA"), True
        WScript.Sleep wSLEEP
	objIE2.Document.getElementsByName("s01_srchBtn_btnSearch")(0).click


	Set objShell = Nothing

Answer 2

JavaScriptならこれで動きました。

document.getElementById('s01_srchCondtn_txtSimpleSearch').value = "hoge";
// ↑iMacrosで書ける
// ↓iMacrosで書けるかどうかわからない。最悪EVALする。
var event = new Event('input', {
    bubbles: true,
    cancelable: true,
});

document.getElementById('s01_srchCondtn_txtSimpleSearch').dispatchEvent(event);

Comments

[kyon-net]

Lhankor_Mhy様

早速ご回答いただき、ありがとうございます。
当方JavaScriptは未経験でして、iMacrosに設定してみましたが、エラーとなってしまいました。
JavaScriptファイルでの一連のソース(webページを開く→テキストボックスに値を入れる→検索ボタンを押す)がありましたら拝見させていただきたいのですが、可能でしょうか？

[Lhankor_Mhy]

「webページを開く→テキストボックスに値を入れる→検索ボタンを押す」という処理は、ページ移動を伴うので、JavaScriptでは無理です。

[kyon-net]

そうなのですね。

下記内容のJavaScriptファイルを実行してみましたが、結果はVBScriptと同じ(エラー)でした。
もう少し調べてみます。

var ie = new ActiveXObject("InternetExplorer.Application");
ie.visible = true;

ie.navigate("https://www.j-platpat.inpit.go.jp/");
waitit (ie);
ie.document.getElementById("s01_srchCondtn_txtSimpleSearch").value = "aaaa";
waitit (ie);

var evt = ie.document.createEvent('MouseEvents');
evt.initEvent('click', true, true);
var elm = ie.document.getElementById('s01_srchBtn_btnSearch');
elm.dispatchEvent(evt);

function waitit( ie )
{
while( ( ie.Busy ) || ( ie.readystate != 4 ) )
{
WScript.Sleep( 300 );
}
WScript.Sleep( 300 );
}

[Lhankor_Mhy]

これが iMacros で実行できないなら、sendkeys みたいなローレベルマクロでやった方が無難かもしれないですね。

[kyon-net]

解決出来ました！
ヒントをいただきまして、大変参考になりました◎