vbslib/sample_lib.vbs

   1 Option Explicit \r
   2 \r
   3 Dim  g_SampleLib_param\r
   4 \r
   5 Function  InitializeModule( ThisPath )\r
   6   g_SampleLib_param = 1\r
   7 End Function\r
   8 Dim g_InitializeModule: Set g_InitializeModule = GetRef( "InitializeModule" )\r
   9 \r
  10 Function  FinalizeModule( ThisPath )\r
  11   g_SampleLib_param = -1\r
  12 End Function\r
  13 Dim g_FinalizeModule: Set g_FinalizeModule = GetRef( "FinalizeModule" )\r
  14 Dim g_FinalizeLevel:      g_FinalizeLevel  = 100  ' If smaller, called early\r
  15 \r
  16 \r
  17 Function  SampleFunc\r
  18   SampleFunc = "SampleFunc"\r
  19 End Function\r
  20 \r
  21 \r
  22 Class  SampleClass\r
  23   Public  m_Member\r
  24   Private Sub Class_Initialize\r
  25     m_Member = "SampleClass"\r
  26   End Sub\r
  27 End Class\r
  28 \r
  29  \r