浅谈 typename在网页处理中的用处

       很多朋友在用vb6编写网页处理程序的时候，除了用webbrowser控件外，往往还要添加html object的引用，而html object的子对象层次较深，属性方法繁杂，不是很容易使用，最后搞得头都晕。
      其实，如果在处理网页的时候，只要分析的对象内部数据不是有序的（table的数据就是有序的，可以对table的row和cell进行迭代），完全可以不引用html object，而直接用typename来搞定。下面是一个从
http://www.hao123.com登陆gmail的例子：

Private Sub Form_Load()
    wbr.Navigate "http://www.hao123.com"
End Sub



Private Sub wbr_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  Dim obj
     
     If Not (pDisp Is wbr.Object) Then
        Exit Sub
     End If
     
      If wbr.LocationURL = "http://www.hao123.com/" Then
         
            For Each obj In wbr.Document.All

              'Text1.Text = Text1.Text & TypeName(obj) & vbCrLf ‘如果你不清楚要操作的元素名字，这句取得可以操作的网页元素的名字，其实只要对照后面的html代码和元素名字，就很容易看出来它们的联系了

                If TypeName(obj) = "HTMLInputElement" Then
                    If obj.Name = "uName" Then      ’对应的网页代码   ‘用户名：<input tabIndex=1 size=15 name=uName>’
                       obj.Value = "world.broken"
                    End If
                    If obj.Name = "uPw" Then‘           ‘密码：<input tabIndex=3 type=password size=12 name=uPw>’
                      obj.Value = "你的密码"   
                    End If
                    If obj.Name = "sub" Then  ’               ‘<input   tabIndex=4 type=submit value=" 登录 " name=sub  ‘                                         
                       obj.Click
                    End If
                End If
              If TypeName(obj) = "HTMLOptionElement" Then
                 If obj.Value = "gmail" Then   ‘               ’<option selected >请选择邮箱（替换成要登陆的value即可）</option>‘
                    obj.Selected = True
                 End If
              End If
        Next
            
   End If
        
End Sub

              这些元素的方法和属性也比较好理解，分析html代码就应该知道，type=text可以有value（输入值），type=submit有click方法（提交），option有selected（选中）属性。
              以上的例子比较简单，仅作抛砖引玉之用。只要我们平时多留心、多研究，其实做网页分析程序也不是很麻烦的事嘛  ：）
代码在vb6 sp6+XPsp2下测试通过。欢迎大家讨论，批评和指教。