VB で JScript が使えるんだー

Big Sky :: 自作のWindowsアプリケーションにJavaScriptで動作するプラグイン機能を実装する方法
こちらのサイトで、"ScriptControl" というコンポーネントがあることを知りました。
早速、これを VB で使ってみました。

Private Sub Command1_Click()

    Dim js As Object
    Dim code As String
    
    Set js = CreateObject("ScriptControl")
    js.Language = "JScript"

    code = vbNullString
    code = code & "var func = function() {"
    code = code & "    var result = 0;"
    code = code & "    for (var i = 0; i < arguments.length; i++) {"
    code = code & "        result += arguments[i];"
    code = code & "    }"
    code = code & "    return result;"
    code = code & "};"
    
    Call js.AddCode(code)
    
    Call MsgBox(js.eval("func(1, 2, 3, 4, 5)"))
    
    Set js = Nothing

End Sub

で、実行結果は

でした。おもしろいなぁ。