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

编程心得 专栏收录该内容
4 篇文章 0 订阅
       很多朋友在用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



Privat e   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下测试通过。欢迎大家讨论,批评和指教。
 
  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

forbearORfolie

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值