<SCRIPT language=VBScript>
' ----------------------------------------------------------
' θθ`
' ----------------------------------------------------------
Const ForReading = 1, ForWriting = 2
' ----------------------------------------------------------
' IuWFNgpΟθ`
' ----------------------------------------------------------
Dim fs,fh
' ----------------------------------------------------------
' t@CVXeIuWFNgμ¬
' ----------------------------------------------------------
Set fs = CreateObject( "Scripting.FileSystemObject" )
' ----------------------------------------------------------
' Ο
' ----------------------------------------------------------
' **********************************************************
' JgfBNgζΎ
' **********************************************************
Function GetCurrentDir( )
CurrentDir = location
CurrentDir = Replace( CurrentDir, "file:///", "" )
CurrentDir = Replace( CurrentDir, "input.htm", "" )
CurrentDir = Replace( CurrentDir, "/", "\" )
GetCurrentDir = CurrentDir
End Function
' **********************************************************
' ξ{Zbgμ¬
' **********************************************************
Function CreateSet()
Set fh = fs.OpenTextFile( GetCurrentDir( ) & "game.hta", ForWriting, True )
fh.WriteLine "<HTML>"
fh.WriteLine "<HEAD>"
fh.WriteLine "<META HTTP-EQUIV=""Content-Type"" Content=""text/html; charset=shift_jis"">"
fh.WriteLine "</HEAD>"
fh.WriteLine "<FRAMESET rows=""*"">"
fh.WriteLine "<FRAME name=""Input"" src=""start.htm"" APPLICATION=""yes"">"
fh.WriteLine "</FRAMESET>"
fh.WriteLine "</HTML>"
Call fh.Close()
Set fh = fs.OpenTextFile( GetCurrentDir( ) & "start.htm", ForWriting, True )
fh.WriteLine "<S" & "CRIPT language=VBScript>"
fh.WriteLine "</S" & "CRIPT>"
fh.WriteLine ""
fh.WriteLine "<HTML>"
fh.WriteLine "<HEAD>"
fh.WriteLine "<META HTTP-EQUIV=""Content-Type"" Content=""text/html; charset=shift_jis"">"
fh.WriteLine "<STYLE type=""text/css"">"
fh.WriteLine "IMG { position:absolute }"
fh.WriteLine "INPUT { position:absolute }"
fh.WriteLine "</STYLE>"
fh.WriteLine "</HEAD>"
fh.WriteLine "<BODY id=""Body"">"
fh.WriteLine "</BODY>"
fh.WriteLine "</HTML>"
Call fh.Close()
End Function
</SCRIPT>
<HTML>
<BODY>
<INPUT type=button value="ξ{Zbgμ¬" onClick='Call CreateSet()'>
</BODY>
</HTML>