在VC里调用javascript - VC/MFC / 基础类
void CWEHelperDlg::OnOK(){
CString code;
//调用VBSCRIPT，能弹出消息框,也能正确返回 hello
code = "function main()\r\n\tMsgBox \"ok\"\r\n\tmain=\"hello\"\r\nend function";
//调用Javascript，无法弹出消息框，返回值只是几个无法正常显示的字符(我跟踪了内存位置，确实不是我想要的结果
//code = "function main(){\r\n\talert('ok');\r\n\treturn 'hello'; \r\n}";
_variant_t ret = eval(code);
AfxMessageBox((CString)ret.bstrVal);
}
_variant_t CWEHelperDlg::eval(CString code){
_variant_t vReturn;
::IScriptControlPtr p(__uuidof(ScriptControl));
p.AddRef();
CString str = code;
str.MakeLower();
BOOL bVBScript = str.Find("end sub")>=0||str.Find("end function")>=0;
p->put_Language(_bstr_t(bVBScript?"VBScript":"JavaScript"));
p->AddCode(_bstr_t(code));
p->Eval(_bstr_t("main"), &vReturn);
p->Release();
return vReturn;
}
up
ding...
相关问答：
如何实现当鼠标悬停控件上时，出现该控件的尾部显示对应的层，鼠标移动到该层上进行相应的操作，当鼠标移除时（不在控件上也不在层上）层隐藏，
HTML code:
<html>
<head>
<meta http-equiv= ......
用javascript加载页面时指向一个描点。已知如何通过链接做成描点的，可是想让页面加载时直接指向不需要点击链接。
1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" &quo ......
<html>
<head>
<title></title>
</head>
<body>
<font color="#0000FF"><b>请在文本框1中输入文字：</b>
<form>
<input ......
要做一个抽奖的小程序，用VBscript+javascript，滚动用js,显示和数据库操作用vbs,现在想请问高手，定义js变量的时候，能否把vbs数据库中查询值赋给js中定义的变量吗？感谢解答！举个例子？
基本上js也能和vbs一样 ......
产品的配置页面共用一个用JavaScript的dTree实现的树形结构，显示的时候，树形结构靠在页面的最左边，跟我的配置页面中间隔了一大块，现在想把树形目录居中，紧靠在配置内容旁边，如何控制树形目录的位置，以及可不� ......
