Public Sub WriteToForm(ByVal Obj As Object, ByVal sTagName As String, ByVal sName As String, ByVal Submit As Boolean, Optional sType As String = "", Optional sValue As String = "", Optional sSelect As Boolean)
          Dim i     As Integer
          Dim vDoc, vTag
          sTagName = UCase(sTagName)
          sType = UCase(sType)
          sName = UCase(sName)
          Set vDoc = Obj.Document
          For i = 0 To vDoc.All.Length - 1
                  If UCase(vDoc.All(i).tagname) = sTagName Then
                          Set vTag = vDoc.All(i)
                          If sTagName = "SELECT" Or sTagName = "TEXTAREA" Then
                                  If UCase(vTag.Name) = sName Then vTag.Value = sValue
                          Else
                                  If sType = "RADIO" Or sType = "CHECKBOX" Then
                                          sValue = UCase(sValue)
                                          If UCase(vTag.Name) = sName And UCase(vTag.Value) = sValue Then
                                                  If sSelect Then
                                                          vTag.Checked = True
                                                  Else
                                                          vTag.Checked = False
                                                  End If
                                          End If
                                  Else
                                          If Submit Then
                                                  If UCase(vTag.Type) = sType And UCase(vTag.Name) = sName Then vTag.Click
                                          Else
                                                  If UCase(vTag.Type) = sType And UCase(vTag.Name) = sName Then vTag.Value = sValue
                                          End If
                                  End If
                          End If
                  End If
          Next i
 
  '应用举例=================================================
WriteToForm WebBrowser1, "input", "user", False, "text", "文本框"     '输入文本
WriteToForm WebBrowser1, "input", "checkbox3",False, "checkbox", "3"  True   '复选框打钩
WriteToForm WebBrowser1, "input", "checkbox5", False, "checkbox", "5"False   '复选框不打钩
WriteToForm WebBrowser1, "input", "pass", False, "password", "123456"               '密码框
WriteToForm WebBrowser1, "select", "select", False, "select", "4"                 '列表框
WriteToForm WebBrowser1, "input", "radiobutton", False, "radio", "4", True       '单选框
WriteToForm WebBrowser1, "input", "submit", True, "submit"             '提交按钮

  
End Sub