Jeans & Development コンピューターのことなどを綴ったメモ (旧：目から鱗 w/SQLite)

先日とりあげた、wscript.exe用のマニフェストを書く方法に加えて、ScriptControlを利用する方法も試してみた。とりあえず、VB(VB5)を用いて簡単に作成したプログラムのソースコードは次のとおり。

Option Explicit

Sub Main()
    Dim cmdLine As String
    cmdLine = LCase(Command)
    If Len(cmdLine) = 0 Then End
    If Right(cmdLine, 1) = """" Then cmdLine = Left(cmdLine, Len(cmdLine) - 1)
    
    Dim isVBScript As Boolean, isEncoded As Boolean
    isEncoded = (Right(cmdLine, 1) = "e")
    isVBScript = (Left(Right(cmdLine, 3), 2) = "vb")
    
    Dim Lang As String
    If isVBScript Then
        Lang = "vbscript"
    Else
        Lang = "jscript"
    End If
    If isEncoded Then Lang = Lang & ".encode"
    
    Dim Code As String, buff As String
    Code = ""
    Open Command For Input As #1
    Do Until EOF(1)
        Line Input #1, buff
        Code = Code + buff + vbCrLf
    Loop
    
    Dim sc
    Set sc = CreateObject("ScriptControl")
    sc.language = Lang
    sc.executestatement Code
End Sub

oyagame.exeという名でexeファイルを作成し、oyagame.exe.manifestを先の記事と同様に作成すると、このexeを解してJScriptのコードが動くことを確認。ただし、JScriptをwscript.exeで実行したときに使えるWScriptオブジェクトは使えないらしい。これがVBScript/JScriptでプログラムを書くときにどれくらい支障をきたすかは、良く分からない。ちょっと考えた感じだと、WScript.Quit()が使えないのは痛いかも。

ところで、JScript.NETも試してみたけれど、今のままではoyagameでは使えない（使いにくい）ことが分かった。その理由は、eval(SDL.ConstJS); で定義する定数が、JScript.NETでは使えないこと。もし需要があるのなら、JScript.NETで使えるようにすること、考えてみたい。