sub document_oncontextmenu
	window.event.returnValue=false
end sub

sub document_onkeyup
	window.clipboardData.clearData
end sub

Sub Document_OnSelectStart
	window.clipboardData.clearData
	msgbox "选择复制功能被禁止",64,"bjfdc"
End sub