先看错误代码，以下代码提示 对象变量或with块变量未设置：
Dim obj As Object obj = WebBrowser1.Document.getElementById("switcher_plogin")
修改为如下代码即可：
Dim obj As Object Set obj = WebBrowser1.Document.getElementById("switcher_plogin")
原文：http://www.cnblogs.com/tengpan-cn/p/4933866.html