-\r
-\r
- \r
-'********************************************************************************\r
-' <<< [ChangeScriptMode] >>> \r
-'********************************************************************************\r
-Sub ChangeScriptMode\r
- Dim c_debug, c_debug_main\r
- Dim cmd, host, host_opt, script, params, opt, exit_cmd\r
- Dim b_close_finish, i, key\r
-\r
- '//=== Set default\r
- If IsEmpty(g_debug) Then g_debug = False\r
- If IsEmpty(g_CommandPrompt) Then g_CommandPrompt = True\r
-\r
- '//=== Get status\r
- g_b_cscript_exe = (LCase( Right( WScript.FullName, 11 ) ) = "cscript.exe")\r
- c_debug = Not IsEmpty( WScript.Arguments.Named("debug") )\r
- ' g_debug\r
- If Not IsEmpty( WScript.Arguments.Named("debug_main") ) Then g_debug=True:c_debug=True\r
- If g_debug=1 Then g_debug=True\r
- If g_debug=0 Then g_debug=False\r
- ' b_close_finish\r
- If g_CommandPrompt=2 Then b_close_finish = False\r
- If g_CommandPrompt=1 Then b_close_finish = True\r
- If g_CommandPrompt=0 Then b_close_finish = False\r
-\r
- '//=== Make command line\r
- If g_CommandPrompt > 0 Then\r
- host = "cmd /K cd """ + g_fs.GetParentFolderName( WScript.ScriptFullName ) + """ &" + _\r
- "cscript //nologo"\r
- Else\r
- host = "wscript"\r
- End If\r
-\r
- If g_debug Then\r
- host_opt = " //x"\r
- Else\r
- host_opt = ""\r
- End If\r
-\r
- If g_CommandPrompt > 0 Then\r
- script = " """ + g_fs.GetFileName( WScript.ScriptFullName ) + """"\r
- Else\r
- script = " """ + WScript.ScriptFullName + """"\r
- End If\r
-\r
- params=""\r
- For i=0 To WScript.Arguments.Count - 1\r
- If InStr( WScript.Arguments(i), " " ) = 0 Then\r
- params=params+" "+WScript.Arguments(i)\r
- Else\r
- params=params+" """+WScript.Arguments(i)+""""\r
- End If\r
- Next\r
-\r
- If g_debug Then\r
- opt = " /debug:1"\r
- Else\r
- opt = ""\r
- End If\r
-\r
- If b_close_finish Then\r
- exit_cmd = " & if errorlevel 9 exit"\r
- Else\r
- exit_cmd = ""\r
- End If\r
-\r
- '//=== Start\r
- If g_b_cscript_exe<>(g_CommandPrompt>0) Or c_debug<>g_debug Then\r
- cmd = host + host_opt + script + params + opt + exit_cmd\r
- Stop\r
- CreateObject("WScript.Shell").Run cmd, 1, Not IsEmpty(WScript.Arguments.Named.Item("waitfin"))\r
- WScript.Quit 0\r
- End If\r
-End Sub\r
-\r
-\r
- \r
-'********************************************************************************\r
-' <<< [CallInitializeInModules] >>> \r
-'********************************************************************************\r
-Sub CallInitializeInModules\r
- Dim i\r
-\r
- For i = 0 To UBound( g_InitializeModules )\r
- g_InitializeModules( i )( g_InitializeModules_VBSPath( i ) )\r
- Next\r
-End Sub\r
-\r
-\r
- \r
-'********************************************************************************\r
-' <<< [CallFinalizeInModules] >>> \r
-'********************************************************************************\r
-Sub CallFinalizeInModules\r
- Dim i, min_lv, min_over_lv\r
- Const limit=999999999\r
-\r
- min_over_lv = -limit\r
- Do\r
- min_lv = limit\r
- For i = 0 To UBound( g_FinalizeModules )\r
- If g_FinalizeLevels( i ) < min_lv And g_FinalizeLevels( i ) > min_over_lv Then _\r
- min_lv = g_FinalizeLevels( i )\r
- Next\r
- If min_lv = limit Then Exit Do\r
-\r
- For i = 0 To UBound( g_FinalizeModules )\r
- If g_FinalizeLevels( i ) = min_lv Then _\r
- g_FinalizeModules( i )( g_FinalizeModules_VBSPath( i ) )\r
- Next\r
- min_over_lv = min_lv\r
- Loop\r
-End Sub\r
-\r
-\r
- \r
-'********************************************************************************\r
-' <<< [ResumePush] >>> \r
-'********************************************************************************\r
-Function ResumePush ' This will be overriden\r
- ResumePush = False\r
-End Function\r
-\r
-\r
- \r
-'********************************************************************************\r
-' <<< [ResumePop] >>> \r
-'********************************************************************************\r
-Function ResumePop ' This will be overriden\r
- CallFinalizeInModules\r
- If g_CommandPrompt = 1 Then WScript.Quit 21 '// Err_TestPass\r
-End Function\r
-\r
-\r
- \r
-'********************************************************************************\r
-' <<< [IsDefined] >>> \r
-'********************************************************************************\r
-Function IsDefined( Symbol )\r
- Dim en\r
-\r
- On Error Resume Next\r
- Call GetRef( Symbol )\r
- en = Err.Number : On Error GoTo 0\r
-\r
- IsDefined = ( en <> 5 )\r
-End Function\r
-\r
-\r
- \r
-'********************************************************************************\r
-' <<< [GetExistPathInSetting] >>> \r
-'********************************************************************************\r
-Function GetExistPathInSetting( Pathes, SettingFuncName )\r
- Dim i, t\r
- For i=0 To UBound( Pathes )\r
- If g_fs.FileExists( Pathes(i) ) Then GetExistPathInSetting = Pathes(i) : Exit Function\r
- Next\r
- t = "" : For i=0 To UBound( Pathes ) : t = t + vbCrLf + Pathes(i) : Next\r
- Err.Raise 1,, SettingFuncName + " \82Å\90Ý\92è\82µ\82Ä\82¢\82é\83t\83@\83C\83\8b\82ª\8c©\82Â\82©\82è\82Ü\82¹\82ñ\81B" + _\r
- "\8eQ\8dl : vbslib \82Ì\90à\96¾\8f\91\82Ì SystemGlobal.vbs" + t\r
-End Function\r
-\r
-\r
- \r
-'********************************************************************************\r
-' <<< [include] >>> \r
-'********************************************************************************\r
-Sub include( ByVal path )\r
- Dim f, en,ed, current\r
-\r
- path = g_sh.ExpandEnvironmentStrings( path )\r
- current = g_sh.CurrentDirectory\r
- If path <> g_fs.GetFileName( path ) Then _\r
- g_sh.CurrentDirectory = g_fs.GetParentFolderName( path )\r
-\r
- On Error Resume Next\r
- Set f = g_fs.OpenTextFile( g_fs.GetFileName( path ) )\r
- en = Err.Number : ed = Err.Description : On Error GoTo 0\r
- If en <> 0 Then Err.Raise en,,ed + " in include( " + path + " )"\r
- If g_debug=0 Then\r
- On Error Resume Next\r
- ExecuteGlobal f.ReadAll()\r
- g_sh.CurrentDirectory = current\r
- en = Err.Number : ed = Err.Description : On Error GoTo 0\r
- If en=&h411 Then en = 0 '// &h411=Symbol Overrided\r
- If en <> 0 Then Err.Raise en,,ed + " in include( " + path + " )." + _\r
- " Please double click the vbs file, if syntax error occured."\r
- Else\r
- ExecuteGlobal f.ReadAll()\r
- g_sh.CurrentDirectory = current\r
- End If\r
-End Sub\r
- \r