如何讓網頁內容不能任意複製拷貝
如何讓網頁內容不能任意複製拷貝
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 也可取得網頁內容
