浅谈vb下的shellwindows

前端之家收集整理的这篇文章主要介绍了浅谈vb下的shellwindows前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

今天一同学找我帮忙,说要修改一下一网页的内容,当然这里所说的修改是本地修改,于是我便想到了shellwindows这个对象.拿起很久没用的vb写起.

先说一下这个对象怎么加载,点工程------引用,选择microsoft internet controls即可.

下面看代码:

  1. DimwAsNewShellWindows
  2. PrivateSubForm_Load()
  3. Me.Visible=False
  4. t.Interval=1
  5. t.Enabled=True
  6. EndSub
  7. PrivateSubt_Timer()
  8. OnErrorResumeNext
  9. DimiAsObject
  10. ForEachiInw
  11. IfInStr(i.LocationURL,"*******")Then
  12. IfInStr(i.Document.getElementById("zhuti").contentWindow.Document.body.innerText,"*******")Then
  13. Ifi.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(0).innerText="********"Then
  14. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(106).innerText=""
  15. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(104).innerText="80"
  16. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(103).innerText="3.0"
  17. ExitFor
  18. ElseIfi.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(0).innerText="********"Then
  19. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(148).innerText="3.0"
  20. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(149).innerText="80"
  21. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(151).innerText=""
  22. ExitFor
  23. EndIf
  24. EndIf
  25. EndIf
  26. Next
  27. EndSub

代码很简单,主要是shellwindows的用法,该对象会得到windiws下shell窗口对象,也就是说你可以用这个对象来操控windows的文件夹和ie浏览器,很不错吧

下面提供下这个对象的几个方法属性

document(只用于ie):文档对象.

navigate:地址跳转

hwnd:窗口句柄

hide:隐藏

show:显示

quit:关闭

locationurl:当前网址

locationname:当前文档标题

熟悉vbscript的还可以用shell.application下的windows对象,它的功能和vb下shellwindows是一样的.

猜你在找的VB相关文章