求救!怎么样在vbscript脚本里调用VC写的dll了? 怎么样在vbscript脚本(非网页脚本)里调用VC写的dll了?能提供例子就更好了,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 什么DLL??标准DLL??ActiveX DLL?? 要想调用标准 DLL 中的函数,必须利用 VB 的编译版——VB6。即便如此,也不能访问所有的 DLL 函数,要做到这一点,需要 C/C++。VBScript 只能调用打包成 COM 类的方法。微软有一个工具软件 OLEView 可以查找可用的 COM 类。例如下面的调用: set myObject = CreateObject("ADODB.Recordset")之后就可以调用 Recordset 类中的方法了。 VC++ 如何执行脚本 分类: VC|BCB|DELPHI 2010-11-26 08:42 269人阅读 评论(0) 收藏 举报 1. 导入库 ,该指令一般加在 stdafx.h 中 #import "msscript.ocx" no_namespace 2. 创建脚本对象 //脚本引擎 IScriptControlPtr m_pScript; m_pScript.CreateInstance(__uuidof(ScriptControl)); m_pScript->Timeout = 1000 * nTimeout; //超时设置 m_pScript->PutAllowUI( VARIANT_FALSE ); m_pScript->PutLanguage( _bstr_t(_T("JScript")) ); 3. 读取脚本文件 wstring js = read_file("c:/1.js");//read_file 函数此处略去 4. 增加代码并执行 //增加代码 m_pScript->AddCode( _bstr_t(js.c_str())); //执行代码(1.js 中有 main 函数) m_pScript->(_bstr_t(_T("main()"))); 至于脚本和VC的交互,可以通过创建 com 组件来实现,在 vc 工程中,增加一个 com 组件,比如 IVREngine,然后添加方法,在执行脚本前,把该对象增加到脚本引擎中,代码如下: //辅助对象 CComPtr<IIVREngine> pIVREngine; pIVREngine.CoCreateInstance(__uuidof(IVREngine)); m_pScript->AddObject( _bstr_t("IVR"), pIVREngine, VARIANT_TRUE ); 这时,在脚本(1.js)中,就可以直接调用 IIVREngine 提供的方法了,比如 IVR.PlayFile("c:/1.wav"); 注意已有相应的类CScriptObject BOOL CScriptDemoApp::InitInstance(){// Initialize COMCoInitialize(NULL);.......} 菜单控件,初始时我想设置某几项为不可见状态,为什么运行时出错,提示“Visible”属性不能设置 讨论Active X控件问题 ,请进!!! ado 数据打开方式的问题?? 菜鸟提个问题: datagrid 和 flexgrid哪个好? 哪个控件可以实现读取网络驱动器?明天早上起来结贴,谢谢各位! 高分酬谢!请问如何将窗口客户区域所见的控件转成位图并打印? 选择目录对话框中,点击“取消”按钮后报错? 请问TreeView中如何把父节点下的内容清除!!! 那里有做help文件的好工具? 连锁门店问题 vb 串口通讯 怎样设置成62500波特率
set myObject = CreateObject("ADODB.Recordset")之后就可以调用 Recordset 类中的方法了。
分类: VC|BCB|DELPHI 2010-11-26 08:42 269人阅读 评论(0) 收藏 举报
1. 导入库 ,该指令一般加在 stdafx.h 中 #import "msscript.ocx" no_namespace
2. 创建脚本对象 //脚本引擎
IScriptControlPtr m_pScript;
m_pScript.CreateInstance(__uuidof(ScriptControl));
m_pScript->Timeout = 1000 * nTimeout; //超时设置
m_pScript->PutAllowUI( VARIANT_FALSE );
m_pScript->PutLanguage( _bstr_t(_T("JScript")) ); 3. 读取脚本文件 wstring js = read_file("c:/1.js");//read_file 函数此处略去 4. 增加代码并执行 //增加代码
m_pScript->AddCode( _bstr_t(js.c_str()));
//执行代码(1.js 中有 main 函数)
m_pScript->(_bstr_t(_T("main()"))); 至于脚本和VC的交互,可以通过创建 com 组件来实现,在 vc 工程中,增加一个 com 组件,比如 IVREngine,然后添加方法,在执行脚本前,把该对象增加到脚本引擎中,代码如下: //辅助对象
CComPtr<IIVREngine> pIVREngine;
pIVREngine.CoCreateInstance(__uuidof(IVREngine));
m_pScript->AddObject( _bstr_t("IVR"), pIVREngine, VARIANT_TRUE ); 这时,在脚本(1.js)中,就可以直接调用 IIVREngine 提供的方法了,比如 IVR.PlayFile("c:/1.wav"); 注意已有相应的类CScriptObject BOOL CScriptDemoApp::InitInstance(){// Initialize COMCoInitialize(NULL);.......}