今天一同学找我帮忙,说要修改一下一网页的内容,当然这里所说的修改是本地修改,于是我便想到了shellwindows这个对象.拿起很久没用的vb写起.
先说一下这个对象怎么加载,点工程------引用,选择microsoft internet controls即可.
下面看代码:
- Dim w As New ShellWindows
- Private Sub Form_Load()
- Me.Visible = False
- t.Interval = 1
- t.Enabled = True
- End Sub
- Private Sub t_Timer()
- On Error Resume Next
- Dim i As Object
- For Each i In w
- If InStr(i.LocationURL, "*******") Then
- If InStr(i.Document.getElementById("zhuti").contentWindow.Document.body.innerText, "*******") Then
- If i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(0).innerText = "********" Then
- i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(106).innerText = ""
- i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(104).innerText = "80"
- i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(103).innerText = "3.0"
- Exit For
- ElseIf i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(0).innerText = "********" Then
- i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(148).innerText = "3.0"
- i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(149).innerText = "80"
- i.Document.getElementById("zhuti").contentWindow.Document.getElementsByTagName("td").Item(151).innerText = ""
- Exit For
- End If
- End If
- End If
- Next
- End Sub
代码很简单,主要是shellwindows的用法,该对象会得到windiws下shell窗口对象,也就是说你可以用这个对象来操控windows的文件夹和ie浏览器,很不错吧
下面提供下这个对象的几个方法和属性
document(只用于ie):文档对象.
navigate:地址跳转
hwnd:窗口句柄
hide:隐藏
show:显示
quit:关闭
locationurl:当前网址
locationname:当前文档标题
熟悉vbscript的还可以用shell.application下的windows对象,它的功能和vb下shellwindows是一样的.