在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...
相关问答:
后台:
protected void form_ini2(string id)
{
//处理代码
}
前台:
<script language="javascript">
function DbClickEvent(a ......
三个数x,y,z 比大小..
var x,y,z,t;
if (x>y)
{t=x;x=y;y=t;} //交换x,y的值
if(x>z)
{t=z;z=x;x=t;}//交换x,z的值
if(y>z)
{t=y;y=z;z=t;}//交换z,y的值
这是 ......
我就会一些简单表单验证,想提高javascript,但是下的很多东西不是太简单就是资料太少,或是资料不全,视频的话下载花了很多时间,下载完才发现不适合自己,浪费很多时间,所以请高手们指引一下,那些教程或资料适合 ......
我的源文件如下:
<html>
<head> <title>show picture </title>
<script>
function change(fileName)
{
  ......
各位使用js的高手. 小弟问几个问题,请大家帮忙解答.困扰了我2个星期了.一直不太明白.
比如 :
Div1 是一个层;
var myitem=new Item(document.getElem ......