本文标签:

最近写VBS的时候,属于一直运行的类型,所以要考虑是否会同时执行多个,只要在VBS代码开头放入以下代码即可。

'判断是否重复打开本软件
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("select * from Win32_Process where Name = 'wscript.exe'")
firstFileStart = False
For Each objProcess In colProcessList
If Split(objProcess.CommandLine, """")(3) = CreateObject("Scripting.FileSystemObject").GetFile(wscript.ScriptFullName).Path Then
If firstFileStart Then
'MsgBox "已有本程序启动"
wscript.quit
End If
firstFileStart = True
End If
Next

原理是查看进程中是否有wscript.exe运行,检测该wscript.exe进程所用的VBS文件是否与现在要打开的VBS文件路径相同;wscript.exe引用的文件路径查看是objProcess.CommandLine
本语句将生成两个用双引号括起的路径,前一个是wscript.exe的路径,后一个便是vbscipt文件的路径。用split以双引号分开,第三个元素即为VBS文件路径。
同理,本方法可以查看已启动的VBS文件名.
本文转载自: http://u.x2009.net/08

 » 订阅本站:http://feed.x2009.net