Dim WebToHear,ie,Ret
//登录百度空间
WebToHear = "http://hi.baidu.com/xzbyw/home/"
Set ie = CreateObject("Internetexplorer.application")
ie.Visible = True
ie.Navigate WebToHear
//等待网页加载完成
While ie.busy Or ie.readystate
==============================Dim WebToHear,ie,Ret
//登录百度空间
WebToHear = "http://hi.baidu.com/xzbyw/home/"
Set ie = CreateObject("Internetexplorer.application")
ie.Visible = True
ie.Navigate WebToHear
//等待网页加载完成
While ie.busy Or ie.readystate
==============================