16,554
社区成员
发帖
与我相关
我的任务
分享VB 6.0中的WebBrowser控件如何禁止文字选择和图片选择？
VB 6.0中的WebBrowser控件如何禁止文字选择和图片选择？
网上找了很多，有一些JS的，但我不太懂JS到VB的转化，大侠帮忙！
网上找了很多，有一些JS的，但我不太懂JS到VB的转化，大侠帮忙！
...全文
请发表友善的回复…
发表回复
无·法 2009-04-21
- 打赏
- 举报
[Quote=引用 2 楼 51Crack 的回复:]
供参考：
放两个WebBrowser，分别为：w1(隐藏),w2
w1用来下载指定的网页，然后处理，w2显示处理后的网页!
VB.NET code
Private Sub W1_DownloadComplete()
Dim i As Long, j As Long
On Error Resume Next
If Len(a) = 0 Then
Dim a As String
a = W1.Document.documentElement.innerHTML
If Len(a) <> 0 Then
Open App.Path & "\tmp.htm" For Output As #1
a = "<body oncontextmenu=…
[/Quote]
这个还不是真正的屏蔽，屏蔽的目的就是为了提高打开速度，这个已经失去了原本的意义
供参考：
放两个WebBrowser，分别为：w1(隐藏),w2
w1用来下载指定的网页，然后处理，w2显示处理后的网页!
VB.NET code
Private Sub W1_DownloadComplete()
Dim i As Long, j As Long
On Error Resume Next
If Len(a) = 0 Then
Dim a As String
a = W1.Document.documentElement.innerHTML
If Len(a) <> 0 Then
Open App.Path & "\tmp.htm" For Output As #1
a = "<body oncontextmenu=…
[/Quote]
这个还不是真正的屏蔽，屏蔽的目的就是为了提高打开速度，这个已经失去了原本的意义
51Crack 2008-04-07
- 打赏
- 举报
没细看，第4行的If Len(a) = 0 Then 是多余的!
51Crack 2008-04-07
- 打赏
- 举报
供参考：
放两个WebBrowser，分别为：w1(隐藏),w2
w1用来下载指定的网页，然后处理，w2显示处理后的网页!
放两个WebBrowser，分别为：w1(隐藏),w2
w1用来下载指定的网页，然后处理，w2显示处理后的网页!
Private Sub W1_DownloadComplete()
Dim i As Long, j As Long
On Error Resume Next
If Len(a) = 0 Then
Dim a As String
a = W1.Document.documentElement.innerHTML
If Len(a) <> 0 Then
Open App.Path & "\tmp.htm" For Output As #1
a = "<body oncontextmenu=" & """" & "return false" & """" & " onselectstart=" & """" & "return false" & """" & " ondragstart=" & """" & "return false" & """" & ">" & vbCrLf & a & vbCrLf & "</body>"
Print #1, a
Close #1
Call W2.Navigate(App.Path & "\tmp.htm")
End If
End If
End Sub
qiangsheng 2008-04-06
- 打赏
- 举报
怎么说呢，这本来就不是 VB 要做的事情，VB 调用浏览器控件只是用它来显示页面内容，而不能对页面进行进一步控制。
打个比方，VB 就是个门面房，WebBrowser 或者其他控件就是租房的商家，商家制定什么防止偷盗的管理规定是不需要门面房来管的。
打个比方，VB 就是个门面房，WebBrowser 或者其他控件就是租房的商家，商家制定什么防止偷盗的管理规定是不需要门面房来管的。
