浅谈vb下的shellwindows

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

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

下面看代码:

1. Dim w As New ShellWindows
2. Private Sub Form_Load()
3. Me.Visible = False
4. t.Interval = 1
5. t.Enabled = True
6. End Sub
8. Private Sub t_Timer()
9. On Error Resume Next
10. Dim i As Object
11. For Each i In w
12. If InStr(i.LocationURL, "*******") Then
13. If InStr(i.Document.getElementById("zhuti").contentWindow.Document.body.innerText, "*******") Then
14. If i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(0).innerText = "********" Then
15. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(106).innerText = ""
16. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(104).innerText = "80"
17. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(103).innerText = "3.0"
18. Exit For
19. ElseIf i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(0).innerText = "********" Then
20. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(148).innerText = "3.0"
21. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(149).innerText = "80"
22. i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(151).innerText = ""
24. Exit For
25. End If
26. End If
27. End If
28. Next
30. End Sub

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

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

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

navigate:地址跳转

hwnd:窗口句柄

hide:隐藏

show:显示

quit:关闭

locationurl:当前网址

locationname:当前文档标题

 

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