在自己的程序中加入脚本支持 —— ActiveX Scripting技术

最新推荐文章于 2024-01-20 13:59:20 发布
最新推荐文章于 2024-01-20 13:59:20 发布
阅读量4.2k 收藏 7
点赞数
分类专栏： C++ 文章标签： 脚本 scripting null vbscript struct application
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/Waiting4you/article/details/1887463
版权
<script type="text/javascript"> </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>

<转载时请注明出处--Waiting4you>
　　在优快云上看到有不少人问怎样才能象MS Office一样支持VBA，偶也很感兴趣，可惜Google后发现要支持VBA得付钱给M$才行，象我们这种无产阶级自然是只有想的份啦。
　　不过MS还是有点“爱心”D，它给了我们另外一个选择——ActiveX Scripting(后面简称[AS])。
　　简单的说[AS]就是：MS来帮我们解析脚本里的基本语句（如if、for、表态式、赋值等），我们负责解释、执行它所不认识的函数，对象。
　　下面再简单说一下操作[AS]的流程：
　　1． 实例化一个脚本对象（IActiveScript），一般装了IE的电脑上应该都有JScript和VBScript。
　　2． 告诉IActiveScript谁来解释脚本中的对象(IActiveScript ::SetScriptSite)
　　3． 告诉IActiveScript脚本里会用到哪些对象（用IActiveScript ::AddNamedItem）
　　4． 装入脚本(JScript或VBScript代码，UNICODE格式)
　　5． 运行脚本(通过设置IActiveScript ::SetScriptState实现)
　　6． [AS]在运行脚本过程中如果遇到第3步里告诉它的对象，它就会向我们要此对象的接口以便继续执行(它会调用IActiveScriptSite::GetItemInfo,第2步里告诉它的)。
　　7． 打完收工。当然也可以强制停下运行中的脚本（比如不小心编了一个死循环的脚本）。也是通过设置IActiveScript ::SetScriptState实现。
　　从上面可以看出，我们的主要工作是实现脚本里的对象的解释工作。在COM编程中，毫无悬念地，这个光荣而又艰巨的任务就又落到了IDispatch身上。IDispatch的生平事迹咱就不介绍了，不明白的去问明白的，都不明白的去Google，心急的可以看后面的示例代码。
　　对我们编程的来说，说再多也不如源代码来得直接有效，下面我们就来做一个支持脚本的小程序。这里我们使用BCB来做，其它如VC，GCC当然也行，不过对于快速原型开发方面，BCB绝对是不二选择(广告时间)。
　　
先看偶写的一个JScript脚本:

var  bForward  =   true ;
 for ( var  i = 0 ;i < ScreenWidth - 200 ;i += 100 )
 {
    for(var j=0;j<ScreenHeight-200;j+=10)
    {
        var x = i;
        var y = bForward? j : (ScreenHeight-200-j)
        MyWin.MoveTo(x,y);
        MyWin.Caption = "X:" + x + " Y:"+y;
        MyWin.Color = (x<<16|y)&0xffffff;
        Sleep(10);
    }
    bForward = !bForward;
}


此脚本的目的是让一个叫MyWin的窗口从左到右地上下移动，同时改变标题和颜色。
前面说了MS只帮我们解决脚本语言上的问题，我们来处理对象和函数。在这个脚本里,我们的任务有：ScreenWidth、ScreenHeight、Sleep、MyWin对象以及它的方法属性。
这里还得说一下IDispatch的调用过程：比如当[AS]执行到MyWin.MoveTo(x,y);时，它先得到MyWin的IDispatch接口（它是怎么得到的？后面会讲先按下不提），然后调用IDispatch的GetIDsOfNames(riid,L"MoveTo",1,lcid,&rgDispId)获得MoveTo对应的"Member Id"(rgDispId参数)。再用这个"Member Id"去调用Invoke(rgDispId,...)。所以我们只需关注GetIDsOfNames和Invoke两个方法即可。

先编写一个TMyGlobalFunc来处理ScreenWidth、ScreenHeight、Sleep这三个全局函数:

struct  TMyGlobalFunc : TDispatch {
    enum {itemScreenWidth,itemScreenHeight,itemSleep};
    static wchar_t Name[];
    STDMETHOD(GetIDsOfNames)(REFIID riid,LPOLESTR *rgszNames,UINT cNames,LCID lcid,
                                DISPID *rgDispId){
        if(lstrcmpW(rgszNames[0],L"ScreenWidth") == 0){
            *rgDispId = itemScreenWidth;
        }
        else if(lstrcmpW(rgszNames[0],L"ScreenHeight") == 0) {
            *rgDispId = itemScreenHeight;
        }
        else if(lstrcmpW(rgszNames[0],L"Sleep") == 0) {
            *rgDispId = itemSleep;
        }
        else
            return E_NOTIMPL;
        return S_OK;
    }

    STDMETHOD(Invoke)(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,
                      DISPPARAMS *pDispParams,
                      VARIANT *pVarResult,EXCEPINFO *pExcepInfo,UINT *puArgErr){
        switch(dispIdMember)
        {
          case itemScreenWidth:
            pVarResult->vt=VT_I4;
            pVarResult->intVal = Screen->Width;
            break;
          case itemScreenHeight:
            pVarResult->vt=VT_I4;
            pVarResult->intVal = Screen->Height;
            break;
          case itemSleep:
            if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
            if(pDispParams->rgvarg[0].vt != VT_I4) {
                *puArgErr = 0;
                return DISP_E_TYPEMISMATCH;
            }
            Application->ProcessMessages();
            Sleep(pDispParams->rgvarg[0].intVal);
            break;
          default:
            return DISP_E_MEMBERNOTFOUND;
        }
        return S_OK;
    }
} ;
wchar_t TMyGlobalFunc::Name[] = L " MyGlobalFunc " ;


再写个TMyWin来处理MyWin对象的方法和属性，和上面一样

struct  TMyWin : TDispatch {
    enum {itemCaption,itemColor,itemMoveTo};
    static wchar_t Name[];
// IDispatch
    STDMETHOD(GetIDsOfNames)(REFIID riid,LPOLESTR *rgszNames,UINT cNames,LCID lcid,
                                DISPID *rgDispId){
        if(lstrcmpW(rgszNames[0],L"Caption") == 0) {
            *rgDispId = itemCaption;
        }
        else if(lstrcmpW(rgszNames[0],L"Color") == 0) {
            *rgDispId = itemColor;
        }
        else if(lstrcmpW(rgszNames[0],L"MoveTo") == 0) {
            *rgDispId = itemMoveTo;
        }
        else
            return E_NOTIMPL;
        return S_OK;
    }

    STDMETHOD(Invoke)(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,
                      DISPPARAMS *pDispParams,
                      VARIANT *pVarResult,EXCEPINFO *pExcepInfo,UINT *puArgErr){
        switch(dispIdMember)
        {
          case itemCaption:
          {
            if(wFlags==DISPATCH_PROPERTYGET)
            {
                pVarResult->vt = VT_BSTR;
                pVarResult->bstrVal = GetCaption();
            }
            else if(wFlags==DISPATCH_PROPERTYPUT)
            {
                if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
                if(pDispParams->rgvarg[0].vt != VT_BSTR) {
                    *puArgErr = 0;
                    return DISP_E_TYPEMISMATCH;
                }
                SetCaption(pDispParams->rgvarg[0].bstrVal);
            }
            else
                return DISP_E_MEMBERNOTFOUND;
            break;
          }
          case itemColor:
          {
            if(wFlags==DISPATCH_PROPERTYGET)
            {
                pVarResult->vt = VT_I4;
                pVarResult->intVal = GetColor();
            }
            else if(wFlags==DISPATCH_PROPERTYPUT)
            {
                if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
                if(pDispParams->rgvarg[0].vt != VT_I4) {
                    *puArgErr = 0;
                    return DISP_E_TYPEMISMATCH;
                }
                SetColor(pDispParams->rgvarg[0].intVal);
            }
            else
                return DISP_E_MEMBERNOTFOUND;
            break;
          }
          case itemMoveTo:
          {
            if(wFlags==DISPATCH_METHOD)
            {
                if(pDispParams->cArgs!=2) return DISP_E_BADPARAMCOUNT;
                if(pDispParams->rgvarg[0].vt != VT_I4) {
                    *puArgErr = 0;
                    return DISP_E_TYPEMISMATCH;
                }
                else if(pDispParams->rgvarg[1].vt != VT_I4){
                    *puArgErr = 1;
                    return DISP_E_TYPEMISMATCH;
                }
                MoveTo( pDispParams->rgvarg[1].intVal,
                        pDispParams->rgvarg[0].intVal);
            }
            else
                return DISP_E_MEMBERNOTFOUND;
            break;
          }
          default:
            return DISP_E_MEMBERNOTFOUND;
        }
        return S_OK;
    }

//  TMyWin上所有的方法属性都对这个TForm *fm_Opt操作
    TMyWin(TForm *fm_Opt) : TDispatch(),m_Form(fm_Opt){ ; }  

    BSTR GetCaption(){
        return WideString(m_Form->Caption).Detach();
    }
    void SetCaption(BSTR bstrCaption){
        m_Form->Caption = bstrCaption;
    }
    int GetColor(){
        return (int)m_Form->Color;
    }
    void SetColor(int iColor){
        m_Form->Color = TColor(iColor);
    }

    void MoveTo(int X,int Y){
        m_Form->Left=X;
        m_Form->Top=Y;
    }

private:
    TForm *m_Form;
} ;
wchar_t TMyWin::Name[] = L " MyWin " ;

主要任务完成，接着我们要实现IActiveScriptSite，它用于上面所说的第2步和第6步。[AS]解析上面的脚本时遇到MyWin及ScreenWidth、ScreenHeight、Sleep时会通过GetItemInfo向它要接口，它则负责把我们刚才写的IDispatch喂给[AS]。
这个IActiveScriptSite要包含头文件#include <activscp.h>

struct  TMyActiveScriptSite
    : IActiveScriptSite
 {
    TMyActiveScriptSite(TMyWin *pMyWin,TMyGlobalFunc *pMyGlobalFunc)
        : m_iRefCount(1),m_pMyWin(pMyWin),m_pMyGlobalFunc(pMyGlobalFunc){
    }

// IUNKnown,不得不写
    HRESULT __stdcall QueryInterface(REFIID iid, void **ppv){
        if(iid==IID_IUnknown||iid==IID_IActiveScriptSite)
        {
            *ppv=this;
            AddRef();
            return S_OK;
        }
        *ppv=NULL;
        return E_NOINTERFACE;
    }
    ULONG __stdcall AddRef(void) {
        return ++m_iRefCount;
    }
    ULONG __stdcall Release(void) {
        if(--m_iRefCount==0){
            delete this;
            return 0;
        }
        return m_iRefCount;
    }

// IActiveScriptSite
    STDMETHOD(GetLCID)(LCID* /*plcid*/) {
        return E_NOTIMPL;
    }
    
　　//主要的就是这个
    STDMETHOD(GetItemInfo)(LPCOLESTR pstrName,
                          DWORD dwReturnMask,
                          IUnknown** ppiunkItem,
                          ITypeInfo** ppti) {
        if( (dwReturnMask & SCRIPTINFO_ITYPEINFO)!=0 ){
            *ppti = NULL;
            return E_FAIL;
        }
        if( (dwReturnMask & SCRIPTINFO_IUNKNOWN)==0 ) return E_FAIL;
        if( ppiunkItem==NULL ) return E_POINTER;
        *ppiunkItem = NULL;
        if( lstrcmpW( pstrName, TMyWin::Name )==0 ) {  //[AS]要MyWin，送上！
            m_pMyWin->AddRef();
            *ppiunkItem = m_pMyWin;
            return S_OK;
        }
        else if( lstrcmpW( pstrName, TMyGlobalFunc::Name )==0 ) { //[AS]要MyGlobalFunc，送上！
            m_pMyGlobalFunc->AddRef();
            *ppiunkItem = m_pMyGlobalFunc;
            return S_OK;
        }
        return E_FAIL;   //要其它的，没有！
   }

   STDMETHOD(GetDocVersionString)(BSTR* pbstrVersion) {
      if( pbstrVersion==NULL ) return E_POINTER;
      *pbstrVersion = ::SysAllocString(OLESTR("Script 1.0"));
      return S_OK;
   }

   STDMETHOD(OnScriptTerminate)(
               const VARIANT* /*pvarResult*/,
               const EXCEPINFO* /*pexcepinfo*/) {
      return S_OK;
   }

   STDMETHOD(OnStateChange)(SCRIPTSTATE /*ssScriptState*/) {
      return S_OK;
   }
   // 脚本里有错误时会调用OnScriptError
   STDMETHOD(OnScriptError)(IActiveScriptError* pScriptError) {
      EXCEPINFO e;
      DWORD dwContext;
      ULONG ulLine;
      LONG lPos;
      pScriptError->GetExceptionInfo(&e);
      pScriptError->GetSourcePosition(&dwContext, &ulLine, &lPos);
      char *pstrFormat = "An error occured while parsing script: Source: %ws Error: %08X Description: %ws Line: %d";
      char pstrStr[1024];
      ::wsprintf( pstrStr, pstrFormat,
         e.bstrSource,
         e.scode,
         e.bstrDescription,
         ulLine+1);
      ::MessageBox(::GetActiveWindow(), pstrStr, _T("Compile Error"), MB_OK | MB_ICONEXCLAMATION | MB_SETFOREGROUND);
      return S_OK;
   }

   STDMETHOD(OnEnterScript)() {
      return S_OK;
   }

   STDMETHOD(OnLeaveScript)() {
      return S_OK;
   }
private:
    TMyWin *m_pMyWin;
    TMyGlobalFunc *m_pMyGlobalFunc;
    int m_iRefCount;
} ;

万事俱备，就等执行了:
打开BCB,新建一VCL Form Application。
在默认的Form1上加入一个TMemo改名为:mmoScript；加入一个TButton改名为btnRun。btnRun->OnClick代码：
偷懒用到了TComInterface，要包含: #include <utilcls.h>

void  __fastcall TForm1::btnRunClick(TObject  * Sender)
 {
    TComInterface<IActiveScript> pAS;
    pAS.CreateInstance(L"JScript");   // 第一步，实例化Jscript(同学们也可以试试VBScript)
    if(!pAS) return;

    TComInterface<IActiveScriptParse> pASP(pAS);
    if(!pASP) return;

    pASP->InitNew();

    // 我们的劳动成果在这里
    TComInterface<TMyWin> pDispatch_MyWin = new TMyWin(this);
    TComInterface<TMyGlobalFunc> pDispatch_MyGlobalFunc = new TMyGlobalFunc;
    TComInterface<TMyActiveScriptSite> pActiveScriptSite_Mine = new TMyActiveScriptSite(pDispatch_MyWin,pDispatch_MyGlobalFunc);
    
　　//第二步，告诉IActiveScript谁来解释脚本中的对象
　　pAS->SetScriptSite(pActiveScriptSite_Mine);
　　
    //第三步，告诉IActiveScript脚本里会用到哪些对象
    pAS->AddNamedItem(TMyWin::Name,SCRIPTITEM_ISVISIBLE);  //会用到”MyWin”
    pAS->AddNamedItem(TMyGlobalFunc::Name,SCRIPTITEM_ISVISIBLE|SCRIPTITEM_GLOBALMEMBERS); //多了一个SCRIPTITEM_GLOBALMEMBERS，意思是如果遇到全局函数就向”MyGlobalFunc”要。
    
    //第四步，装入脚本
    pASP->ParseScriptText(WideString(mmoScript->Lines->Text),
                                  NULL,
                                  NULL,
                                  NULL,
                                  0,
                                  0,
                                  0,
                                  NULL,
                                  NULL);

　　//第五步，运行脚本
　　pAS->SetScriptState(SCRIPTSTATE_STARTED);
　　
    pAS->Close();
}

编译，运行。
把写的Jscript代码拷贝到mmoScript里然后按btnRun运行可以看到效果。当然也可以修改脚本弄点更好玩的花样出来，呵呵。
最后还要多说一句关于ParseScriptText，用好它后面的几个参数。看MSDN，修改其中一个参数这段代码就可以用作表态式解析了。

附上完整代码:
Script.h

#ifndef SCRIPT_H
 #define  SCRIPT_H
// =============================================================
#include  < tchar.h >
#include  < activscp.h >

//  TDispatch：简单实现IDispath的所有方法，用于作自动化对象的基类。
struct  TDispatch : IDispatch {
    TDispatch():m_iRefCount(1){;}
    ~TDispatch(){;}
// IUNKnown
    HRESULT __stdcall QueryInterface(REFIID iid, void **ppv){
        if(iid==IID_IUnknown||iid==IID_IDispatch)
        {
            *ppv=this;
            AddRef();
            return S_OK;
        }
        *ppv=NULL;
        return E_NOINTERFACE;
    }
    ULONG __stdcall AddRef(void) {
        return ++m_iRefCount;
    }
    ULONG __stdcall Release(void) {
        if(--m_iRefCount==0){
            delete this;
            return 0;
        }
        return m_iRefCount;
    }

// IDispatch
    STDMETHOD(GetTypeInfoCount)(UINT *pctinfo){return S_OK;}
    STDMETHOD(GetTypeInfo)(UINT iTInfo,LCID lcid,ITypeInfo **ppTInfo){return S_OK;}
    STDMETHOD(GetIDsOfNames)(REFIID riid,LPOLESTR *rgszNames,UINT cNames,LCID lcid,
                                DISPID *rgDispId){
        return E_NOTIMPL;
    }

    STDMETHOD(Invoke)(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,
                      DISPPARAMS *pDispParams,
                      VARIANT *pVarResult,EXCEPINFO *pExcepInfo,UINT *puArgErr){
        return S_OK;
    }
private:
    int m_iRefCount;
} ;

 //  TMyWin,实现MyWin对象类，解释Caption,Color属性，MoveTo方法
struct  TMyWin : TDispatch {
    enum {itemCaption,itemColor,itemMoveTo};
    static wchar_t Name[];
// IDispatch
    STDMETHOD(GetIDsOfNames)(REFIID riid,LPOLESTR *rgszNames,UINT cNames,LCID lcid,
                                DISPID *rgDispId){
        if(lstrcmpW(rgszNames[0],L"Caption") == 0)
        {
            *rgDispId = itemCaption;
        }
        else if(lstrcmpW(rgszNames[0],L"Color") == 0)
        {
            *rgDispId = itemColor;
        }
        else if(lstrcmpW(rgszNames[0],L"MoveTo") == 0)
        {
            *rgDispId = itemMoveTo;
        }
        else
            return E_NOTIMPL;
        return S_OK;
    }

    STDMETHOD(Invoke)(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,
                      DISPPARAMS *pDispParams,
                      VARIANT *pVarResult,EXCEPINFO *pExcepInfo,UINT *puArgErr){
        switch(dispIdMember)
        {
          case itemCaption:
          {
            if(wFlags==DISPATCH_PROPERTYGET)
            {
                pVarResult->vt = VT_BSTR;
                pVarResult->bstrVal = GetCaption();
            }
            else if(wFlags==DISPATCH_PROPERTYPUT)
            {
                if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
                if(pDispParams->rgvarg[0].vt != VT_BSTR) {
                    *puArgErr = 0;
                    return DISP_E_TYPEMISMATCH;
                }
                SetCaption(pDispParams->rgvarg[0].bstrVal);
            }
            else
                return DISP_E_MEMBERNOTFOUND;
            break;
          }
          case itemColor:
          {
            if(wFlags==DISPATCH_PROPERTYGET)
            {
                pVarResult->vt = VT_I4;
                pVarResult->intVal = GetColor();
            }
            else if(wFlags==DISPATCH_PROPERTYPUT)
            {
                if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
                if(pDispParams->rgvarg[0].vt != VT_I4) {
                    *puArgErr = 0;
                    return DISP_E_TYPEMISMATCH;
                }
                SetColor(pDispParams->rgvarg[0].intVal);
            }
            else
                return DISP_E_MEMBERNOTFOUND;
            break;
          }
          case itemMoveTo:
          {
            if(wFlags==DISPATCH_METHOD)
            {
                if(pDispParams->cArgs!=2) return DISP_E_BADPARAMCOUNT;
                if(pDispParams->rgvarg[0].vt != VT_I4) {
                    *puArgErr = 0;
                    return DISP_E_TYPEMISMATCH;
                }
                else if(pDispParams->rgvarg[1].vt != VT_I4){
                    *puArgErr = 1;
                    return DISP_E_TYPEMISMATCH;
                }
                MoveTo( pDispParams->rgvarg[1].intVal,
                        pDispParams->rgvarg[0].intVal);
            }
            else
                return DISP_E_MEMBERNOTFOUND;
            break;
          }
          default:
            return DISP_E_MEMBERNOTFOUND;
        }
        return S_OK;
    }

//  TMyWin
    TMyWin(TForm *fm_Opt) : TDispatch(),m_Form(fm_Opt){ ; }

    BSTR GetCaption(){
        return WideString(m_Form->Caption).Detach();
    }
    void SetCaption(BSTR bstrCaption){
        m_Form->Caption = bstrCaption;
    }
    int GetColor(){
        return (int)m_Form->Color;
    }
    void SetColor(int iColor){
        m_Form->Color = TColor(iColor);
    }

    void MoveTo(int X,int Y){
        m_Form->Left=X;
        m_Form->Top=Y;
    }

private:
    TForm *m_Form;
} ;
wchar_t TMyWin::Name[] = L " MyWin " ;

 struct  TMyGlobalFunc : TDispatch {
    enum {itemScreenWidth,itemScreenHeight,itemSleep};
    static wchar_t Name[];
    STDMETHOD(GetIDsOfNames)(REFIID riid,LPOLESTR *rgszNames,UINT cNames,LCID lcid,
                                DISPID *rgDispId){
        if(lstrcmpW(rgszNames[0],L"ScreenWidth") == 0)
        {
            *rgDispId = itemScreenWidth;
        }
        else if(lstrcmpW(rgszNames[0],L"ScreenHeight") == 0)
        {
            *rgDispId = itemScreenHeight;
        }
        else if(lstrcmpW(rgszNames[0],L"Sleep") == 0)
        {
            *rgDispId = itemSleep;
        }
        else
            return E_NOTIMPL;
        return S_OK;
    }

    STDMETHOD(Invoke)(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,
                      DISPPARAMS *pDispParams,
                      VARIANT *pVarResult,EXCEPINFO *pExcepInfo,UINT *puArgErr){
        switch(dispIdMember)
        {
          case itemScreenWidth:
            pVarResult->vt=VT_I4;
            pVarResult->intVal = Screen->Width;
            break;
          case itemScreenHeight:
            pVarResult->vt=VT_I4;
            pVarResult->intVal = Screen->Height;
            break;
          case itemSleep:
            if(pDispParams->cArgs!=1) return DISP_E_BADPARAMCOUNT;
            if(pDispParams->rgvarg[0].vt != VT_I4) {
                *puArgErr = 0;
                return DISP_E_TYPEMISMATCH;
            }
            Application->ProcessMessages();
            Sleep(pDispParams->rgvarg[0].intVal);
            break;
          default:
            return DISP_E_MEMBERNOTFOUND;
        }
        return S_OK;
    }
} ;
wchar_t TMyGlobalFunc::Name[] = L " MyGlobalFunc " ;

 struct  TMyActiveScriptSite
    : IActiveScriptSite
 {
    TMyActiveScriptSite(TMyWin *pMyWin,TMyGlobalFunc *pMyGlobalFunc)
        : m_iRefCount(1),m_pMyWin(pMyWin),m_pMyGlobalFunc(pMyGlobalFunc){
    }

// IUNKnown
    HRESULT __stdcall QueryInterface(REFIID iid, void **ppv){
        if(iid==IID_IUnknown||iid==IID_IActiveScriptSite)
        {
            *ppv=this;
            AddRef();
            return S_OK;
        }
        *ppv=NULL;
        return E_NOINTERFACE;
    }
    ULONG __stdcall AddRef(void) {
        return ++m_iRefCount;
    }
    ULONG __stdcall Release(void) {
        if(--m_iRefCount==0){
            delete this;
            return 0;
        }
        return m_iRefCount;
    }

// IActiveScriptSite
    STDMETHOD(GetLCID)(LCID* /*plcid*/) {
        return E_NOTIMPL;
    }

    STDMETHOD(GetItemInfo)(LPCOLESTR pstrName,
                          DWORD dwReturnMask,
                          IUnknown** ppiunkItem,
                          ITypeInfo** ppti) {
        if( (dwReturnMask & SCRIPTINFO_ITYPEINFO)!=0 ){
            *ppti = NULL;
            return E_FAIL;
        }
        if( (dwReturnMask & SCRIPTINFO_IUNKNOWN)==0 ) return E_FAIL;
        if( ppiunkItem==NULL ) return E_POINTER;
        *ppiunkItem = NULL;
        if( lstrcmpW( pstrName, TMyWin::Name )==0 ) {
            m_pMyWin->AddRef();
            *ppiunkItem = m_pMyWin;
            return S_OK;
        }
        else if( lstrcmpW( pstrName, TMyGlobalFunc::Name )==0 ) {
            m_pMyGlobalFunc->AddRef();
            *ppiunkItem = m_pMyGlobalFunc;
            return S_OK;
        }
        return E_FAIL;
   }

   STDMETHOD(GetDocVersionString)(BSTR* pbstrVersion) {
      if( pbstrVersion==NULL ) return E_POINTER;
      *pbstrVersion = ::SysAllocString(OLESTR("Script 1.0"));
      return S_OK;
   }

   STDMETHOD(OnScriptTerminate)(
               const VARIANT* /*pvarResult*/,
               const EXCEPINFO* /*pexcepinfo*/) {
      return S_OK;
   }

   STDMETHOD(OnStateChange)(SCRIPTSTATE /*ssScriptState*/) {
      return S_OK;
   }

   STDMETHOD(OnScriptError)(IActiveScriptError* pScriptError) {
      EXCEPINFO e;
      DWORD dwContext;
      ULONG ulLine;
      LONG lPos;
      pScriptError->GetExceptionInfo(&e);
      pScriptError->GetSourcePosition(&dwContext, &ulLine, &lPos);
      char *pstrFormat = "An error occured while parsing script: Source: %ws Error: %08X Description: %ws Line: %d";
      char pstrStr[1024];
      ::wsprintf( pstrStr, pstrFormat,
         e.bstrSource,
         e.scode,
         e.bstrDescription,
         ulLine+1);
      ::MessageBox(::GetActiveWindow(), pstrStr, _T("Compile Error"), MB_OK | MB_ICONEXCLAMATION | MB_SETFOREGROUND);
      return S_OK;
   }

   STDMETHOD(OnEnterScript)() {
      return S_OK;
   }

   STDMETHOD(OnLeaveScript)() {
      return S_OK;
   }
private:
    TMyWin *m_pMyWin;
    TMyGlobalFunc *m_pMyGlobalFunc;
    int m_iRefCount;
} ;
 // =============================================================
#endif


Unit1.cpp

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

#include  < vcl.h >
#pragma  hdrstop

#include  " Unit1.h "
#include  " Script.h "
#include  < utilcls.h >
// ---------------------------------------------------------------------------
#pragma  package(smart_init)
#pragma  resource "*.dfm"
TForm1  * Form1;
 // ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent *  Owner)
    : TForm(Owner)
 {
}
// ---------------------------------------------------------------------------
void  __fastcall TForm1::btnRunClick(TObject  * Sender)
 {
    TComInterface<IActiveScript> pAS;
    pAS.CreateInstance(L"JScript");
    if(!pAS) return;

    TComInterface<IActiveScriptParse> pASP(pAS);
    if(!pASP) return;

    pASP->InitNew();

    TComInterface<TMyWin> pDispatch_MyWin=new TMyWin(this);
    TComInterface<TMyGlobalFunc> pDispatch_MyGlobalFunc = new TMyGlobalFunc;
    TComInterface<IActiveScriptSite> pActiveScriptSite_Mine = new TMyActiveScriptSite(pDispatch_MyWin,pDispatch_MyGlobalFunc);

    pAS->SetScriptSite(pActiveScriptSite_Mine);
    
    pAS->AddNamedItem(TMyWin::Name,SCRIPTITEM_ISVISIBLE);
    pAS->AddNamedItem(TMyGlobalFunc::Name,SCRIPTITEM_ISVISIBLE|SCRIPTITEM_GLOBALMEMBERS);

    pASP->ParseScriptText(WideString(mmoScript->Lines->Text),
                                  NULL,
                                  NULL,
                                  NULL,
                                  0,
                                  0,
                                  0,
                                  NULL,
                                  NULL);
    pAS->SetScriptState(SCRIPTSTATE_STARTED);

    pAS->Close();
}
// ---------------------------------------------------------------------------

<script type="text/javascript"> </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>

[网络安全自学篇] 七十八.XSS跨站脚本攻击案例分享及总结（二）
杨秀璋的专栏
05-18 1万+
这是作者网络安全自学教程系列，主要是关于安全工具和实践操作的在线笔记，特分享出来与博友们学习，希望您喜欢，一起进步。前文分享了肖老师（Seak）的分享，介绍恶意代码与APT攻击中的武器，包括A2PT的攻击武器、普通APT组织的自研恶意代码、商用恶意代码、无恶意代码作业、开源和免费工具等。这些天分享了很多系统安全和软件安全的知识，接下来让我们回归网络安全，做做XSS跨站脚本攻击案例。这些题目来自Fox好友，在此感谢他。主要内容包括XSS原理、不同类型的XSS、XSS靶场9道题目、如何防御XSS。希望您喜欢~
scripting.exe
06-23
script js event Say Goodbye to Macro Envy with Active Scripting
在自己的程序中加入脚本支持（二）
wewaa的专栏
09-10 1767
<br />万事俱备，就等执行了:<br />打开BCB,新建一VCL Form Application。<br />在默认的Form1上加入一个TMemo改名 为:mmoScript；加入一个TButton改名为btnRun。 btnRun->OnClick代码：<br />偷懒用到了 TComInterface，要包含: #include <utilcls.h><br /><br />1. void __fastcall TForm1::btnRunClick(TObject *Sender)<br /
ActiveX脚本宿主
weixin_34128411的博客
01-07 154
    本文讨论如何使用MFC实现ActiveX脚本宿主.        一个脚本宿主就是一个能运行其它脚本语言(VB脚本,VBA,Java脚本)并且能将应用程序内部的COM接口暴露给这些脚本的应用程序.微软的IE浏览器,Excel,Word,Access都是脚本宿主.IE用的是VB脚本,而其它的则是用的VBA.    大部分关于如何实现脚本宿主的代码来自于Developer Studio光盘中的...
ActiveX Scripting技术(一)
今夜雨
02-19 2279
ActiveX Scripting技术是Microsoft ActiveX技术的一个组成部 分,它的主要目的是使应用程序在不被修改的情况下,为各种脚本语言 所控制。在软件交互性不断提高的今天,仅仅提供菜单或工具箱的界 面已经不能满足用户的需要了,软件的可定制特性已经成为当今软件 的一项基本特征,尤其对于一些通用的软件更为如此。大家比较熟悉 的Microso ft Office,比如Word字处理软件,它不仅提供了界面的任 意定制,还提供了方便的BASIC语言的可编程特性,用户可以通过编写B
ActiveX去除安全警告！
a7082633的博客
10-15 708
要想创建一个能够在IE中成功加载而没有“不安全”的警告或者错误提示信息的ActiveX控件，我们必须实现安全的初始化和脚本。基本上，所有要做的工作都是在DllRegisterServer 和DllUnregisterServer这两个函数中完成的。下面，我们就来一步步地将我们的ActiveX控件变成一个“安全的”控件。        1. 编辑XXX(此处为控件的工程名).cpp并添加如下的
计算机病毒原理与防范学习通习题——脚本病毒分析
最新发布
赖格宝的博客
01-20 541
改变对象的申明方法。这个病毒是通过Microsoft Outlook电子邮件系统传播的，邮件的主题是“I LOVE YOU”,并包含一个病毒附件，用户一旦打开这个附件,系统就会对本地系统进行搜索感染复制并向地址簿中的所有邮件地址发送这个病毒。病毒宏的传染传播通常是Word在打开一个带宏病毒的文档或模版时，激活了病毒宏，病毒宏将自身复制至Word通用(Normal)模版中，以后再打开或关闭文件时病毒宏就会把病毒复制到该文件（1分）；通过E-mail传播的病毒需要OE的自动发送邮件功能支持（1分）。
ASP语言在网站开发中的应用——百瑞通公司毕业设计解析
2. 与多种脚本语言兼容：ASP支持VBScript和JavaScript这两种常见的脚本语言，并且能够与任何ActiveX Scripting语言兼容，这为开发者提供了丰富的选择，可以根据需求和熟悉度选择合适的编程语言。 3. 服务器端执行：...
Microsoft Windows 脚本技术(包括JavaScript, VbScript WScript)
10-21
WScript还包含了一个命令行工具——cscript.exe和wscript.exe，两者都可以执行脚本，但cscript主要用于控制台应用程序，而wscript则用于创建具有图形用户界面的脚本。这为开发者提供了灵活的选择，根据任务需求选择...
网络程序设计——ASP（第3版）
11-19
《网络程序设计——ASP（第3版）》是一本深入探讨ASP（Active Server Pages）技术的专业书籍，旨在帮助读者掌握在网络环境中使用ASP进行动态网页开发的技能。ASP是微软公司推出的一种服务器端脚本环境，它允许开发者...
IE一键设置脚本ActiveX控件常规允许工具
12-27
运行bat文件，对IE一键设置ActiveX控件、JAVA脚本、活动脚本。win7及以上版本，最好采用右键点击，选择以管理员身份运行bat文件。
ActiveScript3.0速查手册
11-18
ActiveScript3.0速查手册,很有用的帮助。
ActiveX Scripting技术(二)
今夜雨
02-19 1216
在介绍了应用系统和脚本引擎所实现的一些关键接口之后,我们 再进一步看看应用系统和脚本引擎的协作过程,如图2所示。 图中给出了8个步骤,下面逐一介绍。 图2 应用系统与脚本引擎的协作过程 (1)创建必要的受控对象,这些受控对象是指将要在脚本文件中引 用到的Automation 对象,通常是应用系统的文档对象,也可以是某些A ctiveX控制;
ActiveX Scripting技术--背景
kingzeus的专栏
05-07 1012
ActiveX Scripting是Microsoft 的Automation技术和Script技术结合的产物，因此，在介绍ActiveX Scripting之前，首先我们来看看Automation和Script两种技术的发展情况。 (1)    Automation技术是Microsoft OLE技术 的一部分，它可使解释性的宏语言(主要是Visual Basic)能够在不了解应用程序的
ActiveX调用 js脚本方法
silent_cat的专栏
04-18 3668
<br />Q:<br />ActiveX中如何调用Script函数？如何访问Document，Browser，浏览器地址，Cookie...<br /><br />A:<br />在ATL写的ActiveX中，重载IOleObject::SetClientSite()方法。<br />http://support.microsoft.com/kb/181678/en-us<br />在MFC写的ActiveX中，重载COleObject::OnSetClientSite()方法。<br />http://
ActiveX Scripting技术--简介
kingzeus的专栏
05-07 1187
　　ActiveX Scripting技术是Microsoft 的ActiveX技术的一个组成部分，它主要目的是使应用程序在不被修改的情况下，为各种脚本语言所控制。在软件交互性不断提高的今天，仅仅提供菜单或工具箱的界面已经不能满足用户的需要了，软件的可定制特性已经成为当今软件的一项基本特征，尤其对于一些通用的软件更为如此。大家比较熟悉的Microsoft Office软件，比如Word字处理软件，
ActiveX控件的安全初始化和脚本操作
xjdaniel的专栏
06-07 1017
ActiveX控件的安全初始化和脚本操作 简　介 　　很多微软的ActiveX控件(本地/远程)都需要使用持久性数据进行初始化，而且它们大多数都是可以通过脚本进行操作的 (支持一个方法，事件和属性的集合提供脚本语言操作)。初始化(使用持久性数据)和脚本操作都需要一个确定的安全性机制保证其安全性不被违背。 一个说明控件初始化安全性风险的例子就是压缩/解压控件。如果用户点击了一个包含木马程序的
ActiveX控件实现安全的初始化和脚本
深之JohnChen的专栏
06-21 2857
ActiveX控件打包成cab后,在脚本中调用中时,要保证控件的安全性才能在你的网页上安全运行,有两种方法来实现这一保证:实现一个名称为IObjectSafe的接口到你的控件。如果IE发现你的控件支持IObjectSafety，它调用 IObjectSafety::SetInterfaceSafetyOptions 方法然后才载入你的控件。另外一种方法需要修改注册表。ActiveX控件安全初始化之
IE中怎么Enable Avtive Scripting
Jill Liang的专栏
11-23 1058
Tools -> Internet Options -> Security -> Internet -> Default Level -> Custom Level -> Security Settings -> Internet Zone -> Enable for Active Scripting in the Scripting Section.
评论 8
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值