在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...
相关问答：
如何实现当鼠标悬停控件上时，出现该控件的尾部显示对应的层，鼠标移动到该层上进行相应的操作，当鼠标移除时（不在控件上也不在层上）层隐藏，
http://topic.csdn.net/u/20090830/23/5e5ded07-7216-46c2-9712- ......
我家电脑原来装的是IE7浏览器，但是最近我爸爸动了某个配置，导致IE7环境下不能运行flash和javascript，看sina或者其他新闻网站上都是一块一块空白，登陆twitter也不成功，报：由于不支持javascript，导致不能登陆。 ......
后台：
protected void form_ini2(string id)
{
//处理代码
}
前台：
<script language="javascript">
function DbClickEvent(a ......
用javascript将数据导出到文本文件(txt)中..
首先假设已经有了需要写入的文本内容 var txtContent ="需要写入的内容";
现在需要用javascript将内容写入txt文件(这个txt文件不存在,需要创建)中,然后写好� ......
随着浏览器安全性的提高，要实现图片预览也越来越困难。
不过群众的智慧是无限的，网上也有很多变通或先进的方法来实现。
在研究了各种预览方法后，作为总结，写了这个程序，跟大家一起分享。
上次写的简便无刷新 ......
