UWSCで複数のサイトのh1タグを取得したい

Question

UWSCで複数のサイトのh1タグを取得したいです。

以下のテスト用のスクリプトを書いていて、1回ループする間に別のサイトに手動で切り替えています。
そのため、titleには毎回異なるh1タグの最初の値が入ってくるはずですが、
初回ループの時の値がずっと入り続けていて更新されません。

その原因を教えてほしいです。

IE = GETACTIVEOLEOBJ("InternetExplorer.Application")
ID=GETID("Internet Explorer","IEFrame")
SLEEP(1)

while true
	pTag = IE.document.getElementsByTagName("h1")
	GETOLEITEM(pTag)

	TRY
	title = ALL_OLE_ITEM[0].innerText
	SETCLEAR(ALL_OLE_ITEM)

	EXCEPT
		print "error34"
	ENDTRY

sleep(1)
wend

Comments

[teritama]

print titleを追加して、yahooニュースで動作確認すると値は更新されました。値が更新されない状況を詳しく教えてもらえますでしょうか。

[ratera]

ご返信ありがとうございます。

理由はわからないのですが、 `pTag = IE.document.getElementsByTagName("h1")` の前に
`IE = GETACTIVEOLEOBJ("InternetExplorer.Application")` を加えると解決しました。

事象は、以下2点となります。
・（2週目のループからサイトを開いて十分な時間を経過しているのにもかかわらず）ptagの値が入っておらず、ALL_OLE_ITEM[0]を取得できずエラーとなる。
・ALL_OLE_ITEM[]の配列オーバーとなってしまう

windows7で頻繁に上記エラー起きるうえに正常にh1タグを取得できません。
一方で、win10ではh1タグは取得できることが多いものの、時々失敗したり、上記のエラーとなる状態です。

もし原因に心当たりがありましたらご教授頂けると幸いです。

Answer 1

titleには毎回異なるh1タグの最初の値が入ってくるはずですが、

確かそのようにはなっていないと思います。

直すとすれば、最初の3行の

IE = GETACTIVEOLEOBJ("InternetExplorer.Application")
ID=GETID("Internet Explorer","IEFrame")
SLEEP(1)

の部分もループ内に入れてみてはいかがでしょうか。

要点を明瞭にするため簡略化しておりますが、下記のテストコードでうまくいきました。

while true
	IE = GETACTIVEOLEOBJ("InternetExplorer.Application")
	ID=GETID("Internet Explorer","IEFrame")//ちなみにこのテストコードではこの行は不要
	pTag = IE.document.getElementsByTagName("h1")
	fukidasi(ptag.item(0).innerText)

	sleep(1)
wend