ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
テンプレート登録【HTML】 ( No.10 )
日時: 2018/02/02 17:44
名前: lightbox



http://winofsql.jp/wsf/newTemplate_layla001.wsf



作成されるコード↓
拡張子:
<HTML>
<HEAD>
<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
<TITLE>HTML テンプレート</TITLE>
<STYLE type="text/css">
* {
	font-family: "MS Pゴシック";
	font-size: 12px;
}
BODY {
	background-color: forestgreen;
	color: white;
}
</STYLE>
<LINK rel="stylesheet" type="text/css" href="style.css">
<SCRIPT 
	language="javascript"
	type="text/javascript"
	src="http://lightbox.in.coocan.jp/prototype.js">
</SCRIPT>
<SCRIPT language="javascript" type="text/javascript">

// *********************************************************
// 関数
// *********************************************************
function doAction( strValue ) {

	alert( strValue )

	return true;
}

</SCRIPT>
</HEAD>

<!-- *******************************************************
 BODY
******************************************************** -->
<BODY>

<!-- *******************************************************
 フォーム
******************************************************** -->
<FORM
	name="frmMain"
	method="GET"
>

<INPUT type="button" value="実行" onClick='doAction("引数");'>

</FORM>

</BODY>
</HTML>
WEB WSH(インストール) コード↓
拡張子:
<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 & "\layla001.tpl"
TeplateText = GetInline( "Template" )
Call PutTextFile( TargetPath, TeplateText )

TargetPath = TemplateDir & "\layla001.vbs"
VbsText = GetInline( "CopyTemplate" )
VbsText = Replace( VbsText, "$FROM", TemplateDir & "\layla001.tpl" )
Call PutTextFile( TargetPath, VbsText )

TargetPath = TempDir & "\layla001.reg"
ScriptPath = Replace( TemplateDir & "\layla001.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[
<HTML>
<HEAD>
<META http-equiv="Content-type" content="text/html; charset=Shift_JIS">
<TITLE>HTML テンプレート</TITLE>
<STYLE type="text/css">
* {
	font-family: "MS Pゴシック";
	font-size: 12px;
}
BODY {
	background-color: forestgreen;
	color: white;
}
</STYLE>
<LINK rel="stylesheet" type="text/css" href="style.css">
<SCRIPT 
	language="javascript"
	type="text/javascript"
	src="http://lightbox.in.coocan.jp/prototype.js">
</SCRIPT>
<SCRIPT language="javascript" type="text/javascript">

// *********************************************************
// 関数
// *********************************************************
function doAction( strValue ) {

	alert( strValue )

	return true;
}

</SCRIPT>
</HEAD>

<!-- *******************************************************
 BODY
******************************************************** -->
<BODY>

<!-- *******************************************************
 フォーム
******************************************************** -->
<FORM
	name="frmMain"
	method="GET"
>

<INPUT type="button" value="実行" onClick='doAction("引数");'>

</FORM>

</BODY>
</HTML>
>
</RESOURCE>

<COMMENT>
************************************************************
 レジストリ登録用データ
************************************************************
</COMMENT>
<RESOURCE id="regData">
<![CDATA[
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.layla001]
@="layla001"

[-HKEY_CLASSES_ROOT\.layla001\ShellNew]

[HKEY_CLASSES_ROOT\.layla001\ShellNew]
"Command"="wscript.exe \"$SCRIPT\" \"%1\""

[HKEY_CLASSES_ROOT\layla001]
@="HTML テンプレート"

[HKEY_CLASSES_ROOT\layla001\shell]

[HKEY_CLASSES_ROOT\layla001\shell\open]

[HKEY_CLASSES_ROOT\layla001\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 = "_Template.htm"

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>