日時: 2018/01/30 17:42 名前: lightbox
http://winofsql.jp/wsf/newTemplate_layla002.wsf
拡張子:
<JOB>
<COMMENT>
************************************************************
WSH 実行スケルトン
************************************************************
</COMMENT>
<COMMENT>
************************************************************
外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
language="VBScript"
src="http://lightbox.in.coocan.jp/laylaClass.vbs">
</SCRIPT>
<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
TargetPath = TemplateDir & "\layla002.tpl"
TeplateText = GetInline( "Template" )
Call PutTextFile( TargetPath, TeplateText )
TargetPath = TemplateDir & "\layla002.vbs"
VbsText = GetInline( "CopyTemplate" )
VbsText = Replace( VbsText, "$FROM", TemplateDir & "\layla002.tpl" )
Call PutTextFile( TargetPath, VbsText )
TargetPath = TempDir & "\layla002.reg"
ScriptPath = Replace( TemplateDir & "\layla002.vbs", "\", "\\" )
RegText = GetInline( "regData" )
RegText = Replace( RegText, "$SCRIPT", ScriptPath )
Call PutTextFileUnicode( TargetPath, RegText )
Call RunSync( "regedit.exe " & Dd(TargetPath) )
</SCRIPT>
<COMMENT>
************************************************************
テンプレート
************************************************************
</COMMENT>
<RESOURCE id="Template">
<![CDATA[
// MKEditor for Windows Project
// Version 3.8
// ProjectFile:
/* ProjectItem */
Type=ntBox
Level=0
Name=ボックス
Lock=0
Comment=
Ext=
begin/*
*/end
/* ProjectItem */
Type=ntTrash
Level=0
Name=ゴミ箱
Lock=0
Comment=
Ext=
begin/*
*/end
>
</RESOURCE>
<COMMENT>
************************************************************
レジストリ登録用データ
************************************************************
</COMMENT>
<RESOURCE id="regData">
<![CDATA[
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\.layla002]
@="layla002"
[-HKEY_CLASSES_ROOT\.layla002\ShellNew]
[HKEY_CLASSES_ROOT\.layla002\ShellNew]
"Command"="wscript.exe \"$SCRIPT\" \"%1\""
[HKEY_CLASSES_ROOT\layla002]
@="MKEditor プロジェクト"
[HKEY_CLASSES_ROOT\layla002\shell]
[HKEY_CLASSES_ROOT\layla002\shell\open]
[HKEY_CLASSES_ROOT\layla002\shell\open\command]
@="\"notepad.exe\" \"%1\""
>
</RESOURCE>
<COMMENT>
************************************************************
登録用スクリプト
************************************************************
</COMMENT>
<RESOURCE id="CopyTemplate">
<![CDATA[
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fso = WScript.CreateObject("Scripting.FileSystemObject")
strTemplate = "_MKEditor.mkp"
on error resume next
strTarget = WScript.Arguments(0)
aData = Split( strTarget, "\" )
strTarget = ""
For I = 0 to Ubound( aData ) - 1
strTarget = strTarget & aData( I ) & "\"
Next
if Fso.FileExists(strTarget & strTemplate) then
if vbOK = MsgBox( "テンプレートファイルが既に存在しますが、置き換えますか?", vbOKCancel, "laylaClass" ) then
Call Fso.CopyFile( "$FROM", strTarget & strTemplate, True )
end if
else
Call Fso.CopyFile( "$FROM", strTarget & strTemplate, False )
end if
on error goto 0
]]>
</RESOURCE>
</JOB>
![メンテナンス](../imgpatio/mente.gif) |