VB自动填写网页表单的问题

来源：百度知道 编辑：UC知道 时间：2024/06/14 08:58:28
<FORM method='POST' name=loginForm action='/login' target='_top'>
<TABLE border=0 width=100% height=70%>
<TR valign=center>
<TD align=center>
<IMG align=center src='/lognet/img/cmsblank.gif' alt='LOG-NET'>
<TABLE border=0>
<TR height=5>
<TR>
<TD>User ID</TD>
<TD><INPUT type='TEXT' name='userid' value='' style='width:154px;'></TD>
</TR>
<TR>
<TD>Password</TD>
<TD><INPUT type='PASSWORD' name='password' value='' style='width:154px;'></TD>
</TR>
<TR>
<TD colspan='2' align='CENTER'>
<INPUT TYPE='SUBMIT' class='button' name='Submit' VALUE='Login' style='width:90px;'>
</TD>
</TR>

Private Sub Command1_Click()
Dim vDoc, vTag, mType As String, mTagName As String
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
Debug.Print vDoc.All(i).TagName
If UCase(vDoc.All(i).TagName) = "INPUT" Then
Set vTag = vDoc.All(i)
mType = LCase(vTag.Type)
Select Case mType
Case "text"
Select Case LCase(vTag.Name)
Case "userid"
vTag.Value = "taodxw"
End Select
Case "password"
Select Case LCase(vTag.Name)
Case "password"
vTag.Value = "taoking"
End Select
Case "submit"
If LCase(vTag.Value) = "login" Then