这是一个创建于 4379 天前的主题,其中的信息可能已经有所发展或是发生改变。
我自己的电脑。 xxx.vbs运行很正常, 然后把这个脚本放到别的电脑上,运行就提示800A0046错误,换了几台电脑,都是一样。 百度查找了N个办法 还是没能解决
所以来这里向V友们求助。
我觉得是我的windows少安装了什么程序导致的。不是代码本身的问题
具体错误是:
行: 18
错误:没有权限
代码:800A0046
下面贴代码
'功能: 监视剪贴板内容并将之记录到脚本所在目录下的"clipboardlog.txt"文件
'说明: 本脚本后台运行,没有显示,进程中会出现"wscript.exe"和"IEXPLORER.EXE"这两个进程
'当需要结束脚本时结束上述两个进程就行了
'
'sonic_andy 2007.1.27
'定义常量
Const ForWriting = 2
Const ForAppending = 8
Const TristateUseDefault = -2
'创建一个ie对象
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
'创建一个文件系统对象,并以追加方式打开文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile("clipboardlog.txt",ForAppending,True,TristateUseDefault)
While True
'得到剪切板的内容
newContent = objIE.document.parentwindow.clipboardData.GetData("Text")
'判断是否改变,是否为空
If newContent<>strClipBoard And newContent<>"" Then
strClipBoard = newContent
'objLogFile.Write "[" & Date & " " & Time & "] ***********************************************" & vbCrLf
objLogFile.Write strClipBoard & vbCrLf
End If
'时间间隔为1秒
wscript.sleep(1)
Wend