如何让网页内容不能任意复制拷贝

如何让网页内容不能任意复制拷贝

如何让网页内容不能任意复制拷贝

VBScript 如下:

‘ 锁 Context menu ( Popup menu )

Sub document_oncontextmenu()

??? window.event.returnValue = False ‘ 禁止右键 ( 快 显 ) 功能表

End Sub

‘ 锁 Select 选取数据 ( 内容 )

Sub document_onselectstart()

??? window.event.returnValue = False ‘ 禁止右键复制功能

End Sub

‘ 锁 Drag 拖曳数据 ( 内容 )

Sub document_ondragstart()

??? window.event.returnValue = False ‘ 禁止鼠标拖曳

End Sub

‘ 锁鼠标右键 button 1 为左键 , 2 为右键

Sub document_onmousedown()

??? If window.event.button = 2 Then MsgBox "Hello !!" ‘ 当使用者按下鼠标左键则 Show 消息

End Sub

PS : 此一作法并不能全面防堵 , 还是能透过工具下载 , 或透过调用某几组 API 也可取得网页内容

原文:大专栏  如何让网页内容不能任意复制拷贝