今天一同学找我帮忙,说要修改一下一网页的内容,当然这里所说的修改是本地修改,于是我便想到了shellwindows这个对象.拿起很久没用的vb写起.
先说一下这个对象怎么加载,点工程------引用,选择microsoft internet controls即可.
下面看代码:
- DimwAsNewShellWindows
- PrivateSubForm_Load()
- Me.Visible=False
- t.Interval=1
- t.Enabled=True
- EndSub
- PrivateSubt_Timer()
- OnErrorResumeNext
- DimiAsObject
- ForEachiInw
- IfInStr(i.LocationURL,"*******")Then
- IfInStr(i.Document.getElementById("zhuti").contentWindow.Document.body.innerText,"*******")Then
- Ifi.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"
- ExitFor
- ElseIfi.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=""
- ExitFor
- EndIf
- EndIf
- EndIf
- Next
- EndSub
代码很简单,主要是shellwindows的用法,该对象会得到windiws下shell窗口对象,也就是说你可以用这个对象来操控windows的文件夹和ie浏览器,很不错吧
document(只用于ie):文档对象.
navigate:地址跳转
hwnd:窗口句柄
hide:隐藏
show:显示
quit:关闭
locationurl:当前网址
locationname:当前文档标题
熟悉vbscript的还可以用shell.application下的windows对象,它的功能和vb下shellwindows是一样的.