我在vb6中想制作一个自动登陆淘宝的,现在能填写帐号,就是不能自动填密码,
下面是我的代码,请高手指点,或者有其他方法也请给小弟个代码谢谢!
    For i = 0 To vDoc.All.Length - 1
        If UCase(vDoc.All(i).tagName) = "INPUT" Then
            Set vTag = vDoc.All(i)
            
          If UCase(vDoc.All(i).tagName) = "INPUT" Then
          Text4.Text = Text4.Text + vTag.Name + vbCrLf
           If vTag.Type = "text" Or vTag.Type = "password" Then '填写表单
                Select Case vTag.Name
                    Case "TPL_username" '用户名
                    'Case "TPL_password" '密码
                        'vTag.Value = Trim(Text2.Text)
                    Case Else
                        
                End Select
            ElseIf vTag.Type = "image" Then
               If Mode = 2 And FormType = 2 Then '继续查找登录按钮标签
                  if vTag.Name = "submit" Then vTag.Click: Exit Sub '自动点击登录按钮提交表单 尝试登录
                End If
            End If
          End If
        End If
    Next

解决方案 »

  1.   

    支付宝的密码位置不是普通的文本框那是个控件你需要了解控件的协议据我所知,这个控件是不支持复制和这些html属性的
      

  2.   

    http://member1.taobao.com/member/login.jhtml?TPL_password=密码&TPL_redirect_url=&TPL_username=帐号&_oooo_=&abtest=&action=Authenticator&actionForStable=enable_post_user_action&done=&event_submit_do_login=anything&from=&pstrong=2&yparam= 这样的链接可以转向到我的淘宝页面里,如果要转到其他位置需要保存住session你从控件入手是登录不进去的