09/04/12 21:50:08
作れるかと言われると反論したくなるのが人の性
一応 JScript から
VarType は 10 になってるけど、これでいいのか?
<html><head><script language="JScript">
var missing = null;
var obj = {}
obj.passError = function(p1, p2) { missing = p1; }
obj.print = function(s) { alert(s); }
var sc = new ActiveXObject("ScriptControl");
sc.Language = "VBScript";
sc.AddObject("jsobj", obj);
sc.AddCode("Sub Hoge(o): Jsobj.print CStr(VarType(o)) & \": \" & TypeName(o) : End Sub\n");
sc.ExecuteStatement("Jsobj.passError ,0");
sc.Run("Hoge", missing);
//sc.ExecuteStatement("Hoge Null");
//sc.ExecuteStatement("Hoge Empty");
//sc.ExecuteStatement("Hoge Nothing");
window.close();
</script></head><body></body></html>