AtScript 在你的程序中实现脚本功能

.简介
    
在你的程序中实现脚本功能,该脚本引擎名为AtScript , 是类似于VBScript 的语法, 在一些比VBScript 更好用,更方便,而且容易扩展,无需组件环境

 

AtScript 是类似于VBScript的脚本语言,无需组件环境.
     易学易用,如果您已了解 Visual Basic 或 Visual Basic for Applications (VBA)或VBScript，就会很快熟悉 VBScript。即使您没有学过 Visual Basic，只要学会 VBScript，就能够使用所有的 VBScript 语言进行程序设计。

.如何使用

     使用这个控制之前, 我建议您先看一下有关AtScript文件，知道您能在您的脚本中做些什么。
     http://www.installaide.com/CN/Product_ats.asp 。

一、写一个脚本 

创建一个简单的脚本

  Section Main
    msgbox "hello"
  End Section

二、如何运行脚本

    调用方法非常简单，如下所示:

 CAtsEngine  Eng;
 CString   strPrompt;
 
 UpdateData();
 Eng.LoadScript( m_strScript );

 if( !Eng.RunSegment( "Main") ) 
 {
  strPrompt.Format("Script is error, ErrorCode=%d,Line = %d,ErrorWord=%s" , Eng.m_nLastErrorCode , Eng.m_nErrorLine , Eng.m_strErrorWord );
  AfxMessageBox( strPrompt );
 }

三、如何扩展脚功能

     在atscript中，那是很容易的

     1. 创建 的对象类
 class CMyAtsObj  : public CAtsObject
 {
  public:
   CMyAtsObj();
   virtual ~CMyAtsObj();

   virtual BOOL DoFun( LPCTSTR strFunName , CAtsParam *pParam );
   virtual CAtsVarItem * GetVarItem(LPCTSTR sName );
   virtual BOOL SetVar(LPCTSTR strName , LPCTSTR strData);

  public: 
 };

    2. 创建一个对象的函数

 BOOL CMyAtsObj::DoFun( LPCTSTR sFunName , CAtsParam *pParam )
 {
  CString  strFunName  = sFunName;
  if( strFunName.CompareNoCase("Test") == 0 )
  {
   AfxMessageBox( pParam->GetItemData(1) );
   return true;
  }
  else if( strFunName.CompareNoCase("GetName") == 0 )
  {
   pParam->SetReturnData( _T("MyObj") );
   return true;
  }

  return false;
 }

     3. 将对象加入到引擎
 CAtsEngine  Eng;

 CString   strPrompt;
 
 UpdateData();
 Eng.LoadScript( m_strScript );

 // Add Customize object to engine
 CMyAtsObj * pNewObj = new CMyAtsObj;
 pNewObj->m_strName = "MyObj";
 Eng.AddObjIns( pNewObj );

 if( !Eng.RunSegment( "Main") ) 
 {
  strPrompt.Format("Script is error, ErrorCode=%d,Line = %d,ErrorWord=%s" , Eng.m_nLastErrorCode , Eng.m_nErrorLine , Eng.m_strErrorWord );
  AfxMessageBox( strPrompt );
 }

    4. 使用对象
    Section Main
  var @a as AtsString
  @a = myobj.getname()
  msgbox @a
     End Section

 

---

源码下载: http://www.installaide.com/AtSimDown.asp

 Name:Baill

Email: Installaide@hotmail.com

Web Site: http://www.installaide.com/CN/Product_ats.asp