按键精灵自动登录这个网页的代码 谁会写？

网址是http://www.qiushibaike.com/new2/login 我有账号密码
想通过按键精灵 实现从文档里面读取账号密码来自动登录
哪位大侠会写？
谢谢啦！

---

//在账号=和密码= 后面的引号中间，分别填写账号和密码即可
账号=""
密码=""
Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://www.qiushibaike.com/new2/login"
ie.Visible = true
While ie.busy Or ie.readystate <> 4
Wend
ie.document.getElementById("login").value=账号
ie.document.getElementById("password").value=密码
i = ie.document.getElementById("submit").click

---