求一段 淘宝代码 多谢

求一段 淘宝代码 谢谢
本人 想做一个淘宝自动登录器 但是老是报错 各位大哥帮帮忙 项目就差这一点了
https://login.taobao.com/member/login.jhtml?f=top&redirectURL=http%3A%2F%2Fwww.taobao.com%2F
就是这个页面 请各位看看 谢谢啦


[解决办法]

VB code

Option ExplicitSub GotoTaoBao(uid As String, pwd As String)    With CreateObject("InternetExplorer.Application")        .Visible = True        .Navigate "http://auction1.taobao.com/auction/view_personal_sale_item.jhtml?view_type=viewsold"        Do Until .ReadyState = 4            DoEvents        Loop        .Document.Forms(0).All("TPL_username").Value = uid        .Document.Forms(0).All("TPL_password").Value = pwd        .Document.Forms(0).All("Submit").Click    End With    End SubPrivate Sub Command1_Click()    GotoTaoBao "youID", "youPwd"End Sub