我在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
下面是我的代码,请高手指点,或者有其他方法也请给小弟个代码谢谢!
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货