コメント |
[[tpad109.wsf]]
@DIV
<JOB>
<SCRIPT language="VBScript" src="http://winofsql.jp/webwsh/laylaClass.php"></SCRIPT>
<SCRIPT language="VBScript" src="http://winofsql.jp/webwsh/baseFunction.php"></SCRIPT>
<SCRIPT language="VBScript" src="http://winofsql.jp/webwsh/toolFunction.php"></SCRIPT>
<SCRIPT language=VBScript>
' 管理者として実行を強制する
Set obj = Wscript.CreateObject("Shell.Application")
if Wscript.Arguments.Count = 0 then
obj.ShellExecute "wscript.exe", WScript.ScriptFullName & " runas", "", "runas", 1
Wscript.Quit
end if
' ***********************************************************
' 処理開始
' ***********************************************************
' Crun2 110 ' Cscript.exe での実行を強制
sId = "tpad109" ' 対象アーカイブ
sPg = "TeraPad.exe" ' 対象アプリケーション
' ***********************************************************
' ダウンロードする URL
' ***********************************************************
strDownloadPlace = "http://www5f.biglobe.ne.jp/~t-susumu/dl/tpad/tpad109.zip"
' ***********************************************************
' ダウンロード : 対象アーカイブ
' ***********************************************************
strLocalFile = TempDir & "\" & sId & ".zip"
ret = HTTPDownload( strDownloadPlace, strLocalFile )
if not ret then
Wscript.Echo ErrorMessage
Wscript.Quit
end if
' ***********************************************************
' ダウンロード成功 : 対象アーカイブ
' ***********************************************************
Wscript.Echo strDownloadPlace & " をダウンロードしました" & vbCrLf & strLocalFile
' ***********************************************************
' 解凍ソフトの一時ダウンロード
' ***********************************************************
strDownloadPlace = "http://winofsql.jp/download/Lhasa.exe"
' ***********************************************************
' ダウンロード : 解凍ソフト
' ***********************************************************
ret = HTTPDownload( strDownloadPlace, TempDir & "\Lhasa.exe" )
if not ret then
Wscript.Echo ErrorMessage
Wscript.Quit
end if
' ***********************************************************
' ダウンロード成功 : 解凍ソフト
' ***********************************************************
Wscript.Echo strDownloadPlace & " をダウンロードしました"
' ***********************************************************
' 対象アーカイブをテンポラリディレクトリに解凍
' ***********************************************************
strCommand = Dd( TempDir & "\Lhasa.exe" ) & " -d- -a -q -f -e- " & Dd(TempDir & "\" & sId & ".zip")
RunSync(strCommand)
' ***********************************************************
' ファイルシステムオブジェクトの取得
' ***********************************************************
GetFso
' ***********************************************************
' インストール先の設定
' ***********************************************************
strInstallPath1 = SelectDir("インストール先のフォルダを指定して下さい")
if strInstallPath1 = "" then
Wscript.Echo "インストール先が指定されませんでした"
Wscript.Quit
end if
' ***********************************************************
' 解凍ディレクトリの移動
Call Fso.CopyFolder( TempDir & "\" & sId, strInstallPath1 & "\" & sId, True )
Call Fso.DeleteFolder( TempDir & "\" & sId )
' ***********************************************************
' ダウンロードファイルの削除
' ***********************************************************
Call Fso.DeleteFile( TempDir & "\" & sId & ".zip", True )
Call Fso.DeleteFile( TempDir & "\Lhasa.exe", True )
' ***********************************************************
' TeraPad.ini 出力
' ***********************************************************
on error resume next
Fso.CreateFolder(strInstallPath1 & "\" & sId & "\usr")
Fso.CreateFolder(strInstallPath1 & "\" & sId & "\usr\" & GetUser )
on error goto 0
TargetPath = strInstallPath1 & "\" & sId & "\usr\" & GetUser & "\TeraPad.ini"
strText = GetInline( "TeraPad_ini" )
Call PutTextFile( TargetPath, strText )
' ***********************************************************
' ショートカット作成
' ***********************************************************
if OkCancel("デスクトップとSendToにショートカットを作成しますか? ") then
Set obj = WshShell.CreateShortcut( DesktopDir & "\" & sId & ".lnk")
obj.TargetPath = Dd( strInstallPath1 & "\" & sId & "\" & sPg )
obj.WindowStyle = 1
obj.IconLocation = strInstallPath1 & "\" & sId & "\" & sPg
obj.Description = "フリーのシンプルなテキストエディタ"
obj.WorkingDirectory = strInstallPath1 & "\" & sId
obj.Save
Call Fso.CopyFile( DesktopDir & "\" & sId & ".lnk", SendtoDir & "\!TeraPad.lnk", True )
Wscript.Echo "デスクトップとSendToにショートカットを作成しました"
end if
MsgOk( "処理が終了しました " )
</SCRIPT>
<COMMENT>
************************************************************
TeraPad.ini
************************************************************
</COMMENT>
<RESOURCE id="TeraPad_ini">
<![CDATA[
[ToolWindow]
WindowWidth=498
WindowHeight=312
WindowMax=0
ListViewColumn0=150
ListViewColumn1=200
ListViewColumn2=200
ListViewColumn3=200
ListViewColumn4=150
ListViewColumn5=100
ListViewColumn6=130
ListViewColumn7=90
ListViewColumn8=110
ListViewColumn9=125
ListViewColumn10=160
[Option]
StartWindow=1
UserWindowSize=1
UserWindowSize_W=1024
UserWindowSize_H=768
UserWindowPos=1
UserWindowPos_X=22
UserWindowPos_Y=22
UserWindowMenu=1
StatusBar=1
SBSimplePanels=0
ToolBar=1
ColLine=0
ColLineByte=72
WordWrap=0
WrapLine=0
WordBreak=0
FollowRetMark=1
Leading=1
FollowStr=、。,.・?!゛゜ヽヾゝゞ々ー)]}」』!),.:;?]}。」、・ー゙゚
LeadStr=([{「『([{「
FollowPunctuation=1
PunctuationStr=、。,.,.。、
FontName=MS ゴシック
FontSize=12
ScrollBar_Tate=1
ScrollBar_Yoko=1
TabSpaceCount=8
WrapCount=80
AutoIndent=0
FreeCaret=0
RetMark=1
EofMark=1
TabMark=1
SpMark=1
HSpMark=1
Inyouhu=>|>|
InyouRow=1
PasteInyouhu=%> %
LinkWord=1
LinkUnderline=1
UrlEx=0
NotUrlChars=%<>,%
UndoMax=64
StartIme=0
ImeDefOnly=0
FullPathFileName=1
ButtonFileName=0
FullPathCnv=0
LinePitch=0
CharPitch=0
CaretUnderLine=0
NotDoubleOpen=1
Menu_NoSaveIni=0
LeftMargin=8
TopMargin=2
ToolBtnImg=0
ToolBtnHotImg=1
ChkFileAge=1
ChkFileAgeMsg=0
KeepRowLoad=0
CreateNewFile=1
CreateNewFileMsg=1
DropCloseToOpen=0
ChkReadOnlyFile=1
ChkOkWriteFile=1
ModifiedOnFileSave=0
LineNum=0
LoadSizeMax=0
AutoFileName=0
NullFileMsg=1
PopToolTop=0
RetRowIndent=0
HaitaSeigyo=0
ToolBarEnabled=0
PrnSetNoSave=0
HaneiBtNoClose=0
NoLButtonImeEnter=0
DefDirOn=0
DefEditMode=0
UserFileFilter=*.txt;*.htm;*.html;*.cgi;*.pl
HtmlDocFilter=*.htm;*.html
PerlDocFilter=*.cgi;*.pl;*.php
IniDocFilter=*.ini;*.inf;*.url
BatDocFilter=*.bat
CppDocFilter=*.c;*.cpp;*.h
JavaDocFilter=*.java;*.mxml;*.cs;*.js
VbDocFilter=*.bas;*.vbs;*.vb;*.wsf;*.asp;*.inc;*.hta
HspDocFilter=*.as
PasDocFilter=*.pas;*.dpr
RubyDocFilter=*.rb
[Color]
Font=clWindowText
Bk=clWindow
SelStr=clHighlightText
SelBk=clHighlight
Ret=clTeal
Tab=clSilver
Link=$00C00000
Inyou=$00C00000
UnderLine=clSilver
WrapLine=clBtnFace
ColLine=$00E4E4E4
LeftBarStr=clWindowText
RulerStr=clWindowText
Html_Comment=clGray
Html_Asp=clNavy
Html_Tag=clBlue
Html_Option=clGreen
Perl_Comment=clGreen
Perl_Str=clBlue
Perl_KeyWord=clWindowText
Perl_KeyWord_Bold=1
Perl_KeyWord_Case=1
Ruby_Comment=clGreen
Ruby_Str=clBlue
Ruby_KeyWord=clWindowText
Ruby_KeyWord_Bold=1
Ruby_KeyWord_Case=1
Ini_Comment=clGreen
Ini_Sec=clBlue
Ini_Key=clNavy
Bat_Comment=clGreen
Bat_Label=clNavy
Bat_KeyWord=clWindowText
Bat_KeyWord_Bold=1
Bat_KeyWord_Case=0
Cpp_Comment=clGreen
Cpp_Str=clBlue
Cpp_KeyWord=clWindowText
Cpp_KeyWord_Bold=1
Cpp_KeyWord_Case=1
Java_Comment=clGreen
Java_Str=clBlue
Java_KeyWord=clWindowText
Java_KeyWord_Bold=1
Java_KeyWord_Case=1
Vb_Comment=clGreen
Vb_Str=clBlue
Vb_KeyWord=clWindowText
Vb_KeyWord_Bold=1
Vb_KeyWord_Case=0
Hsp_Comment=clGreen
Hsp_Label=clNavy
Hsp_Str=clBlue
Hsp_KeyWord=clWindowText
Hsp_KeyWord_Bold=1
Hsp_KeyWord_Case=0
Pas_Comment=clGreen
Pas_Str=clBlue
Pas_KeyWord=clWindowText
Pas_KeyWord_Bold=1
Pas_KeyWord_Case=0
[Browser]
Menu=0
Save=0
IeDde=1
NnDde=0
[JCode]
LoadAutoCvt=1
SaveCvt=0
SaveRetCvt=0
NowJCodeReLoad=0
NewCode=0
NewRetCode=0
[LeftBarAndRuler]
LeftBar=1
LeftBarAutoOff=0
LeftBarColumn=4
LeftBarClr=1
Ruler=1
RulerAutoOff=0
RulerClr=0
RulerGaugeRange=1
[Backup]
Backup=0
[FileHistorySet]
FileNameFormat=0
FileHisMaxCount=10
NoTempDir=0
NoDir=0
[TTeraPadMainForm]
WindowWidth=1024
WindowHeight=736
WindowTop=0
WindowLeft=0
WindowMax=0
]]]]>
</RESOURCE>
</JOB>
@END |