HSPTV!掲示板

IEのフォーカスがあるオブジェクト種類の取得を行いたいです。

以下のサンプルで指定のwebタイトルを見つけて情報を収集しようと
してます。
objFcs変数にオブジェクト種類を取得できたらと思います。
サンプルはyahooのページです。

もっと簡単な方法があれば以下でなくても良いです。
よろしくお願いします。

flag=0//IEを見つけた場合は、1が入る
newcom sa, "Shell.Application"
comres wc
sa->"Windows"
i=wc("Count")//IE＆ファイルエクスプローラーの数
comres nc	//結果が返る
title ""+i

repeat i
	wc->"Item" cnt
	fn=nc("FullName")//ファイルのフルパス取得
	fn = getpath(nc("FullName"), 16)
	if instr(fn,0,"iexplore.exe")<0: continue
	
	objDoc="": objDoc = nc("Document")
	tl=objDoc("title")
	if instr(tl,0,"Yahoo")<0: continue
	mes "タイトル["+tl+"]"
	objFcs=""	;←ここでフォーカスされているオブジェクト種類を取得したい
	mes "フォーカスオブジェクト["+objFcs+"]"
	break
loop

///後始末
delcom nc
delcom wc
delcom sa