AtScript 在你的程序中实现脚本功能源码中国源码下载站

源码下载广告

本类源码下载排行

今日资讯浏览排行

今日源码下载排行

中国源码下载站 >> 编程源码 >> C/C++

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

源码分类：编程源码 / C/C++

源码属性：免费软件

大小语言：438 K / 简体中文

运行环境：Win9x, WinNT, Win2000 / 无

相关图片：相关图片

发布时间：2007-6-14 9:15:00

整理时间：2007-6-14 9:15:00

发布会员：baill

程序版权：原创版本

完整性率：100%

程序简介

AtScript

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

.简介

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

[refer]http://www.installaide.com/Images/ats.jpg[/refer]

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

.如何使用

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

一、写一个脚本

创建一个简单的脚本

  Section Main
    msgbox "hello"
  End Section

二、如何运行脚本

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

CAtsEngineEng;
CStringstrPrompt;

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 )
{
CStringstrFunName  = 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. 将对象加入到引擎
CAtsEngineEng;

CStringstrPrompt;

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:BaillEmail:Installaide@hotmail.com

Web Site: http://www.installaide.com/AtScript.asp

下载地址

93y电影搜索程序！
7781.com在线小游戏

点击数

发表评论