- 帖子
- 154
- 主題
- 1
- 精華
- 0
- 積分
- 200
- 點名
- 1
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2025-1-1
|
4#
發表於 2021-3-9 23:44
| 只看該作者
回復 3# ssooi
Set itemlist = IE.document.getElementsByClassName("quantumWizMenuPaperselectOption")
For Each Item In itemlist
If Item.getAttribute("data-value") Like "PM" Then '下午
Item.classList.Add ("isSelected")
Item.setAttribute "aria-selected", "true"
Item.setAttribute "tabindex", "0"
Else
Item.classList.Remove ("isSelected")
Item.setAttribute "aria-selected", "false"
Item.setAttribute "tabindex", "-1"
End If
Next |
|