vb如何自动登陆这个网站?
本帖最后由 yi13cn 于 2009-11-20 09:26:21 编辑 html代码如下:
地址:http://china.alibaba.com/member/signin.htm?done=http%3A%2F%2Fchina.alibaba.com%2Foffer%2Fmanage.htm%3Fasker%3DATC%26needsignin%3D1%26tracelog%3Dalitalk_free_offermanage2
</div>
<div class='loginbox'>
<div>
<span class='boldfont'>登录名</span>
<span>
<input id='loginid' class="inputwd1" type="text" name="LoginId" size="15" maxlength="20" value="sistom" tabindex="1" />
</span>
<span><a href="http://china.alibaba.com/member/retrieve_login_id.htm?tracelog=signin_retrive_id">找回登录名</a></span>
</div>
<div class="adjustml">
<span class='boldfont'>密码</span>
<span><input class="inputwd1" type="password" name="Password" maxlength="20" tabindex="2" id='pwdid' /></span>
<span><a href="http://china.alibaba.com/member/retrieve_password.htm?tracelog=signin_retrive_pass">找回密码</a></span>
</div>
<div class='rpaddingb3 adjustml'><input name="Submit" type="submit" tabindex="3" class="signinbutton " value="登 录" id='submitbtn' /></div>
</div>
Private Sub denglu()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).TagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Name = "LoginId" Or vTag.Name = "password" Then
Select Case vTag.Name
Case "LoginId"
vTag.Value = "abc" '的用户名
Case "Password"
vTag.Value = "11111111" '这是密码
End Select
ElseIf vTag.Type = "submit" Then
vTag.Click
End If
End If
Next i
End Sub
Dim i As Long, j As Long
j = WebBrowser1.Document.getElementsByTagName("input").Length - 1
'Debug.Print j
Dim aa As Object
For i = 0 To j
Set aa = WebBrowser1.Document.getElementsByTagName("input")(i)
If aa.Type = "text" And aa.Name = "user" Then
aa.Value = Text1 '用户名
End If
If aa.Type = "password" Then
aa.Value = Text2 '密码
End If
If aa.Type = "submit" Then
aa.Click
End If
Next
