用VB操纵DHTML(Document)对象

要想有代码提示请按如下方法：

1.工程->部件，选择Microsoft Internet Controls

2.工程->引用，选择Microsoft HTML Object Library，OK

可以按F2查看相关对象的属性、方法、事件

Dim  Flag  As   Boolean

Private   Sub  form_load()
     On   Error   Resume   Next
    URL  =   " http://gmail.google.com "
    wb.Navigate URL
End Sub

Private   Sub  Command1_Click()
     Dim  vDoc, vTag
     Dim  i  As   Integer
      
     If  Flag  =   False   Then
         MsgBox   " 请稍等。。。 "
         Exit Sub
     End   If
     Set  vDoc  =  wb.Document
     For  i  =   0   To  vDoc.All.length  -   1
         If   UCase (vDoc.All(i).tagName)  =   " INPUT "   Then
             Set  vTag  =  vDoc.All(i)
             If  vTag.Type  =   " text "   Or  vTag.Type  =   " password "   Then
                 ' List1.AddItem vTag.Name
                 Select   Case  vTag.Name
                     Case   " Email "
                        vTag.Value  =  Text1.Text
                     Case   " Passwd "
                        vTag.Value  =  Text2.Text
                 End   Select
             ElseIf  vTag.Type  =   " submit "   Then
                vTag.Click
             End   If
         End   If
     Next  i
End Sub

Private   Sub  Command2_Click()
    Unload  Me
End Sub

Private   Sub  wb_DocumentComplete( ByVal  pDisp  As   Object , URL  As  Variant)
    Flag  =   True
End Sub