开发工具:
文件大小: 874kb
下载次数: 0
上传时间: 2007-06-13
详细说明: 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
二、如何运行脚本
调用方法非常简单,如下所示:
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/AtScript.zip
Name:BaillEmail:Installaide@hotmail.com
Web Site: http://www.installaide.com/AtScript.asp ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度。
- 本站已设置防盗链,请勿用迅雷、QQ旋风等多线程下载软件下载资源,下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
- 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.