求一段淘宝代码多谢

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

------解决方案--------------------

VB code

Option Explicit

Sub 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 Sub

Private Sub Command1_Click()
    GotoTaoBao "youID", "youPwd"
End Sub

求一段 淘宝代码 多谢

相关推荐