vb操作网页代码.doc

-
z.
防止新窗口里头翻开网页
代码1：
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1
Set9966'>这是一个层,嘿嘿</div>"
}
</script>
多框架框架页面访问
'下面两句可以访问到多框架容
-
z.
'.(1).("a")
'等待多框架网页全部加载完毕， 否则出错
While .Busy Or .ReadyState <> 4 Or . = 0
DoEvents
Wend
获得浏览器信息
Private Sub mand1_Click()
".applevb."
End Sub
Private Sub mand2_Click()
Dim oWindow
Dim oNav
Set oWindow =
Set oNav =

Set oWindow = Nothing
Set oNav = Nothing
End Sub
弹出Webbrowser消息窗口
Dim oWindow
"abcd"
VB调用webbrowser技巧集2
向Webbrowser中写入HTML容的几种方法
向Webbrowser中写入HTML容的几种方法
首先在Form_Load中参加
"about:blank"
确保Webbrowser1可用
方法1：
Dim s As String
Dim stream As IStream
-
z.
s = ""
s = s + ""
s = s + ""
s = s + "
hello world
"
s = s + ""
s = s + "
s
方法2：
Dim o
o
If (Not o Is Nothing) Then
"哈哈"
Set o = Nothing
End If
方法3：
'插入文本框
Dim o
*ecmand "InsertTe*tArea", False, "***"
控制页面滚动
0, 30
判断页面是否可以前进后退
Private Sub mand1_Click()

End Sub
Private Sub mand2_Click()

End Sub
Private Sub Form_Load()
".applevb."
End Sub
Private Sub WebBrowser1_mandStateChange(ByVal mand As Long, ByVal Enable As Boolean)
If (mand = CSC_NAVIGATEBACK) Then
= Enable
End If
-
z.
If (mand = CSC_NAVIGATEFORWARD) Then
= Enable
End If
End Sub
如何获得网页中被选中局部的HTML
Private Sub mand1_Click()
Dim objSelection
Dim objT*tRange
If Not (objSelection Is Nothing) Then
Set objT*tRange =
If Not (objT*tRange Is Nothing) Then
objT**t
Set objT*tRange = Nothing
End If
Set objSelectio