08/04/01 22:03:55
あるサイトに含まれている文字列をカウントして出力する、
VBscript（HTA）を、作成しているのですが、
実際に試してみると、以下のダイアログが出現してしまいます。
「このスクリプトの実行を中止しますか？」
このページのスクリプトが、IEの実行速度を落としています。
このまま実行を続けても検索結果となる数字が出力されません。
この場合、どうしたらよいのでしょうか？
以下に、該当する処理を載せます。
strSerch = document.u_list.key.value
i = 0
If strSerch="" Or strSerch=" " Then
'検索フォームに何も入っていないとき
Else
Do While InStr(webtext,strSerch) '検索キーワードでサイト検索
i = i+1 '検索回数カウント
Loop
End If