ＷＥＢページにあるチェックボックスにチェックできるようにしたいです。

Question

WEBサイトにチェックボックスがあり、自動でチェックする処理を
入れたいのですが、マウスオーバーであるため、カーソルを当てた状態でないと
チェックされません。

s4-itm-cbxは、チェックボックスについているクラス名です。

Dim ev as DOMEvent
set ev = htmldoc2.createEvent("HTMLEvents")
For Each checkbox In htmldoc2.getElementsByClassName("s4-itm-cbx")
　　　if inStr(checkbox.outerHtml,"type=checkbox") > 0 Then
          ev.initEvent "mouseover",True,False
          checkbox.Click
          Exit for
   　 Endif
Next

上記のコードを実行してもチェックされません。
試したことは、createEvent（"MouseEvents"）を行いましたが、
実行するとエラーが出ました。
実行時エラー’2140143607(80700009)
エラー80700009のため操作を完了できませんでした。
と表示されました。

Comments

[m.ts10806]

対象の要素をクリックではだめなのでしょうか。

[ikaro]

m.ts10806様
要素クリックというのは、getElementsByClassName("s4-itm-cbx")をタグ名のinputで検索
することでしょうか。

[m.ts10806]

mouseover→click
ただ、対象のWebサイトが提示されてないのでなんとも。

[ikaro]

m.ts10806様
一部を載せました。
trに関しては、チェックを付けると、なぜかクラス名が変わります。
<tr class="AA" iid="252,2817,0" setedgeborder="true">
<td class="BB">
<input type="checkbox" class="s4-itm-cbx" title style>
</td>
＜td height="100%" onmouseover="onchidItem(this)" class="DD"＞
</td>
</tr>

[m.ts10806]

iidって？

>なぜかクラス名が変わります。
そのようにそのWebサイトが組まれているのでしょう。
提示されてないので推測でしかないですが。

[ikaro]

あと、デバッグのときだけうまくチェックされます。
For Each checkbox In htmldoc2.getElementsByClassName("s4-itm-cbx")
checkbox.click
Next

Answer 1

initEvent はイベントを初期化するだけですよ。

イベントを発火するのは dispatch なんちゃらだったと思います。

なお、直接 Postデータで送ってしまえばより確実ではないかと思います。

追記
https://developer.mozilla.org/en-US/docs/Web/API/EventTarget/dispatchEvent

Comments

[ikaro]

busyoda様
回答ありがとうございます。
dispatchなんですね。勘違いしていました。
書き方が分かりません。

[退会済みユーザー]

だから追記したじゃないですか。
リファレンス読んでください。