Twitter背景変更

hoge.vbs

Option Explicit

Call hoge

Sub hoge()

    Const url = "https://twitter.com/"


    Dim IE
    Set IE = CreateObject("Shell.Application").Windows.findwindowSW(url, Empty, 1, 0, 1)
    If IE Is Nothing Then Exit Sub

    Dim o
    Set o = IE.document.getElementsByClassName("js-user-style-header-img")


    Dim v
    Set v = o.Item(0)
    

    '若草色
    v.styleSheet.addRule "body", "background-color:#bbd347"
    v.styleSheet.addRule ".ProfilePage", "background-color:#8ECAA0!important;"

End Sub