vbscript - 如何使用文件系统作为信号量

Question

我有几个脚本试图访问剪贴板。一次只有一个脚本可以访问剪贴板。我的解决方案没有用。这是我实现的解决方案

• 检查 clipboardLock.txt 是否存在。
• -如果不存在则创建
• --做流程
• -如果确实存在则等待 3 秒到 10 秒并检查它是否存在

这不是很好，因为有两个脚本试图创建文件并出错。有没有一种技术可以保证只有一个脚本可以访问剪贴板？另外，我无权访问数据库。

Answer 1

不是让脚本创建文件，而是让它们以独占模式打开现有文件(也就是说，没有其他人可以打开它)。如果文件打开，处理可以继续，否则脚本必须等待。

为了以独占方式打开文件，您可以使用OpenTextFile打开它进行写作:

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set MyFile = fso.OpenTextFile(FileName, ForWriting)

处理完成后，关闭文件，以便其他脚本可以尝试打开文件。