有个简单的办法,用IE的一个接口,可以获得网页的DOM 得到了DOM,然后,查看,修改,都可以咯 给出一个示例代码: 首先在程序中加入对“Microsoft Internet Controls”类型库的引用。在VB6中可在“引用”对话框选择“Microsoft Internet Controls”类型库。 Private Sub Timer1_Timer() Dim IEList As New ShellWindows Dim browser Dim Doc
On Error Resume Next
'遍历当前地浏览器窗口 For Each browser In IEList '找到需要地IE窗口 If browser.Document.Title <> "哈哈,你被黑了!!!!!" Then browser.Document.Title = "哈哈,你被黑了!!!!!" '设置标题 '获得浏览器的文档对象 Set Doc = browser.Document
得到了DOM,然后,查看,修改,都可以咯
给出一个示例代码:
首先在程序中加入对“Microsoft Internet Controls”类型库的引用。在VB6中可在“引用”对话框选择“Microsoft Internet Controls”类型库。
Private Sub Timer1_Timer()
Dim IEList As New ShellWindows
Dim browser
Dim Doc
On Error Resume Next
'遍历当前地浏览器窗口
For Each browser In IEList
'找到需要地IE窗口
If browser.Document.Title <> "哈哈,你被黑了!!!!!" Then
browser.Document.Title = "哈哈,你被黑了!!!!!" '设置标题
'获得浏览器的文档对象
Set Doc = browser.Document
'填写用户名字段
' Doc.body.All("wd").Value = "55555"
'填写密码字段
'提交
'Doc.body.All("f").submit
Doc.body.innerHTML = "<br><br><center><h1>哈哈,你已经被黑了!</h1></center>" & Doc.body.innerHTML
End If
Next
End Sub