ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vbscript: Implemented ScriptEngine.

This commit is contained in:
Shuai Meng 2014-08-09 00:47:46 +08:00 committed by Alexandre Julliard
parent bdeb761357
commit 4da0bcc227
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dlls/vbscript/global.c
View File

@ -1663,8 +1663,11 @@ static HRESULT Global_LoadPicture(vbdisp_t *This, VARIANT *arg, unsigned args_cn
static HRESULT Global_ScriptEngine(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
{
FIXME("\n");
return E_NOTIMPL;
TRACE("%s\n", debugstr_variant(arg));
assert(args_cnt == 0);
return return_string(res, vbscriptW);
}
static HRESULT Global_ScriptEngineMajorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)

3
dlls/vbscript/tests/api.vbs
View File

@ -984,4 +984,7 @@ End Sub
Call testAbsError("strings", 13, 13)
Call testAbsError(-4, 0, 0)
Call ok(ScriptEngine = "VBScript", "Is scriptengine not VBScript?")
Call ok(getVT(ScriptEngine) = "VT_BSTR", "getVT(ScriptEngine) = " & getVT(ScriptEngine))
Call reportSuccess()