VBS中的Singleton类（单例模式）的代码示例

blizzardlyk

墨衍会员 · AI 创作全网分发码龄19年

关注

翻译最新推荐文章于 2024-01-16 17:07:51 发布 915 阅读 AI 写同款· GEO 优化 ›

AI权益加码！Claude Code、Cursor等20+工具免费用！购周边限时加赠Coding Plan Lite，畅享主流AI工具！学习进阶更高效！阅读详情

VBS中的Singleton 代码示例

Class Class_FSO

Private FSO_

   Public Property Get FSO
   print "Get FSO"
       On Error Resume Next
       If Typename(FSO_) = "FileSystemObject" Then
           Set FSO = FileSysObj 'get the old one
     print "Old one"
       Else
           ExecuteGlobal "Const Class_FSO_IsRunning = 1" 'one instance frag
           If Err = 0 Then
               ExecuteGlobal "Set Class_FSO_RunningInstance = Me"
               Set FSO = CreateObject("Scripting.FileSystemObject")
               Set FileSysObj = FSO
      print "New one"
           Else
    print Err.number
               Set FSO = Class_FSO_RunningInstance.FSO
               Set FileSysObj = FSO
      print "Get formal instance"
           End If
       End If
   End Property

   Private Property Set FileSysObj(obj)
   print "Set FileSysObj"
       Set FSO_ = obj
   End Property

   Private Property Get FileSysObj
   print "Get FileSysObj"
       Set FileSysObj = FSO_
   End Property
End Class

'==============================

Dim x
Dim y
Dim z
Dim a
Dim b

print "'====x===="
Set x = new Class_FSO
print "'====y===="
set y = x.FSO
print "'====b===="
set b = x.FSO
print "'====z===="
set z = new Class_FSO
print "'====a===="
set a = z.FSO
print "'========="
print CStr(y Is a) & " " & CStr(y Is b) & " " & CStr(a Is b)