先看错误代码,以下代码提示 对象变量或with块变量未设置:

Dim obj As Object
obj = WebBrowser1.Document.getElementById("switcher_plogin")

修改为如下代码即可:

Dim obj As Object
        Set obj = WebBrowser1.Document.getElementById("switcher_plogin")

 参考资料:http://zhidao.baidu.com/link?url=nCeq9MkZU1rFY_lnGT-sncfeM9O5FBnjq8NBbGrpsp2ON4prl3gHo8EoVuJawLwpeKrTQHDK0HPB-ND9KUYdVq