vbslib/vbslib300/sample_lib.vbs

   1 Option Explicit \r
   2 \r
   3 Dim  g_SrcPath\r
   4 Dim  g_SampleLib_Path\r
   5      g_SampleLib_Path = g_SrcPath\r
   6 \r
   7 Dim  g_SampleLib_param\r
   8 \r
   9 Function  InitializeModule( ThisPath )\r
  10   g_SampleLib_param = 1\r
  11 End Function\r
  12 Dim g_InitializeModule: Set g_InitializeModule = GetRef( "InitializeModule" )\r
  13 \r
  14 Function  FinalizeModule( ThisPath, Reason )\r
  15   g_SampleLib_param = -1\r
  16 End Function\r
  17 Dim g_FinalizeModule: Set g_FinalizeModule = GetRef( "FinalizeModule" )\r
  18 Dim g_FinalizeLevel:      g_FinalizeLevel  = 100  ' If smaller, called early\r
  19 \r
  20 \r
  21 Class AppKeyClass : Public Sub SetKey( x ) : End Sub : End Class\r
  22 \r
  23 \r
  24 Function  SampleFunc\r
  25   SampleFunc = "SampleFunc"\r
  26 End Function\r
  27 \r
  28 \r
  29 Class  SampleClass\r
  30   Public  m_Member\r
  31   Private Sub Class_Initialize\r
  32     m_Member = "SampleClass"\r
  33   End Sub\r
  34 End Class\r
  35 \r
  36 \r
  37 Sub  echo( Message )\r
  38   WScript.Echo  Message\r
  39 End Sub\r
  40 \r
  41 \r
  42 Sub  Sleep( MiliSec )\r
  43   WScript.Sleep  MiliSec\r
  44 End Sub\r
  45 \r
  46  \r