VB中使用正则表达式示例 »

« Windows 核心编程——错误处理

关键代码：

Private Sub InputForm() '自动填表
On Error Resume Next
    Dim vDoc, vTag, vTag2
    Dim i As Integer
    Dim Name As String, Password1 As String
    Name = "username"
    Password1 = "password"
    Set vDoc = objWeb.Document
    For i = 0 To vDoc.All.Length - 1  '检测所有标签
        If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
            Set vTag = vDoc.All(i)
            If vTag.Type = "text" Or vTag.Type = "password" Then
                Select Case vTag.Name
                    Case Name '用户名
                        vTag.Value = Trim(txtName.Text)
                    Case Password1 '密码
                        vTag.Value = Trim(txtPass.Text)
                End Select
            ElseIf vTag.Type = "submit" And vTag.Name = "Submit" Then
                vTag.Click
            End If
       End If
    Next
End Sub