使用vb脚本禁止复制粘贴内容

对于现在企业来说信息安全是越来越重要了, 特别是公司内部系统有访问权限的同事, 会通过复制系统上的内容到表格上造成信息泄露, 这里就会有人说,我不用复制直接手动输入到表格不是一样吗? 这里是确实一样, 但是我们通过禁止复制粘贴想要获取信息就没这么方便，而手动输入需要很长时间，所以就有这个要求了，下面我就教大家如果编写禁止复制粘贴的脚本代码。

On Error Resume Next
Set objHtmlDoc = CreateObject("htmlfile")
Set wsShell = CreateObject("WScript.Shell")
while true
	content = objHtmlDoc.parentWindow.clIPboardData.GetData("text")
	if content<>"" then  '检测剪切板是否有内容
		Text = "" 
		wsShell.Run "mshta vbscript:ClipboardData.SetData(""text""," &Chr(34)& Text &Chr(34)& ")(close)",0,True '清空剪切板
		wsShell.Run "CMD /c echo off | clip",vbhide  '清空剪切板
		
	end if
	WScript.Sleep 10 '检测间隔时间
wend

关于使用vb脚本禁止复制粘贴内容的文章就详细介绍到这里啦，希望这篇文章解决方法能够帮助你解决问题，如果这篇文章对你有所帮助或者你想要学习更多电脑知识与电脑操作技巧，欢迎你收藏本网站。