VBScript脚本运用（脚本程序与宿主程序的交互）

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！

               

    做过工控的人都知道，对脚本语言的支持是标准组态软件应具备的一个基本功能（如iFix，组态王等）。如果我们用VB开发类似的功能，能实现吗？

    想必大家都知道微软提供了Micrsoft Script Control 1.0 控件，在VB版也见到了大家对这个控件的使用（如用ExecuteStatement方法执行脚本命令 ExecuteStatement（"msgbox “你好””）??? ）。但最重要的一点，ActiveX脚本与宿主应用程序数据交互与传递，却没有完整的解决方案。

我也是探索了很长一段时间，才摸索出一点数据传递与交互的技巧，现在共享出来，供大家讨论研究。

示例程序介绍：

1、首先加载Micrsoft Script Control 1.0 控件。

对它基本上不用配置，默认语言VBScript，对该部分的介绍请下载VBScript命令集 （http://blog.csdn.net/yefanqiu   【叶帆资源】[03] VBScript指令集）

2、添加一个窗体（frmTest），里面添加如下代码：

'*************************************************************************'**模 块 名：frmTest'**说    明：YFsoft 版权所有2004 - 2005(C)'**创 建 人：叶帆'**日    期：2004-10-15 11:00:32'**修 改 人：'**日    期：'**描    述：脚本语言运用探索'**版    本：V1.0.0'*************************************************************************Option Explicit'*************************************************************************'**函 数 名：chkRun_Click'**输    入：无'**输    出：无'**功能描述：脚本运行控制'**全局变量：'**调用模块：'**作    者：叶帆'**日    期：2004-10-15 11:19:31'**修 改 人：'**日    期：'**版    本：V1.0.0'*************************************************************************Private Sub chkRun_Click()If chkRun.value = 1 ThentmrRun.Interval = cmbRunTime.Text                          '运行间隔tmrRun.Enabled = True                                      '开始运行  以固定间隔循环运行txtEdit.Enabled = FalseElsetmrRun.Enabled =