WebBrowser自动填写网页信息后保存出有关问题

WebBrowser自动填写网页信息后保存出问题
使用WebBrowser控件打开百度个人设置页面之后
(http://www.baidu.com/p/setting/profile/basic  需要先登录百度帐号)

        Dim obj
        Set obj = WebBrowser1.Document.getElementsByTagName("textarea")(0)
        obj.focus
        obj.Value = “aaasssdddwww”
        Set obj = WebBrowser1.Document.getElementsByTagName("input")(2)
        obj.Click
以上代码成功修改了个人简介的数据，并点击了保存按钮（页面显示保存成功）
可是刷新页面后发现实际上数据并没有保存

请教这是什么原因，有什么好的解决方案
------解决思路----------------------
页面递交是需要时间的，你刷新得太快了吧？