C++ builder 执行vbscript脚本

首先要导入组件.

一、打开import component 对话;

二、选择import a type library ;

三、找到ms script control1.0组件;

四、添加致工程中。

具体源码如下:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "MSScriptControl_OCX.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//TScriptControl *sc=new TScriptControl(this);
//sc= TScriptControl->Create(nil);

//sc->Language="VBScript";
//OleVariant result=sc->Eval(WideString(Edit1->Text).c_bstr());
//ShowMessage(result);
//sc->Free();

TScriptControl *ScriptControl1 = new TScriptControl(this);
ScriptControl1->Language =WideString("VBscript");//当然了，只要改一改，执行jscript脚本也是一样可以的。。。
TVariant result = ScriptControl1->Eval(WideString(Edit1->Text.Trim()));
WideString msg = result ;
ShowMessage(msg);
delete ScriptControl1 ;
ScriptControl1 = NULL ;
}

//在此要感谢BCB小酒馆, 椰汁西米露 小鳗鱼