AI 助理
备案控制台
开发者社区 阿里云MVP 文章 正文

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

2019-07-18 780
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介： 做过工控的人都知道，对脚本语言的支持是标准组态软件应具备的一个基本功能（如iFix，组态王等）。如果我们用VB开发类似的功能，能实现吗

做过工控的人都知道，对脚本语言的支持是标准组态软件应具备的一个基本功能（如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 Then
tmrRun.Interval = cmbRunTime.Text                          '运行间隔
tmrRun.Enabled = True                                      '开始运行  以固定间隔循环运行
txtEdit.Enabled = False
Else
tmrRun.Enabled = False                                     '停止运行
txtEdit.Enabled = True
End If
End Sub
'*************************************************************************
'**函 数 名：cmbType_Click
'**输    入：无
'**输    出：无
'**功能描述：操作类型切换
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 12:56:19
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmbType_Click()
cmdSCDemo1_Click
End Sub
'*************************************************************************
'**函 数 名：cmdRun_Click
'**输    入：无
'**输    出：无
'**功能描述：单次运行脚本
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 11:51:29
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmdRun_Click()
Call tmrRun_Timer
End Sub
'*************************************************************************
'**函 数 名：cmdSCDemo1_Click
'**输    入：无
'**输    出：无
'**功能描述：参数传递演示
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 11:03:29
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmdSCDemo1_Click()
Dim strType As String
'内部变量定义  类似组态王中的数据字典
valMem.Clear
valMem.SetValue "Value1", txtValue(0)
valMem.SetValue "Value2", txtValue(1)
valMem.SetValue "Value3", 0
Select Case cmbType.ListIndex
Case 0:
strType = "+"
Case 1:
strType = "-"
Case 2:
strType = "*"
Case 3:
strType = "/"
End Select
txtEdit = "dim lngValue1" & vbCrLf
txtEdit = txtEdit & "dim lngValue2" & vbCrLf
txtEdit = txtEdit & "dim lngValue3" & vbCrLf
txtEdit = txtEdit & "lngValue1=vm.getvalue(" & Chr(34) & "Value1" & Chr(34) & ")" & vbCrLf
txtEdit = txtEdit & "lngValue2=vm.getvalue(" & Chr(34) & "Value2" & Chr(34) & ")" & vbCrLf
txtEdit = txtEdit & "lngValue3=CInt(lngValue1)" & strType & "CInt(lngValue2)" & vbCrLf
txtEdit = txtEdit & "vm.setvalue " & Chr(34) & "Value3" & Chr(34) & ",lngValue3 " & vbCrLf
End Sub
'*************************************************************************
'**函 数 名：cmdSCDemo2_Click
'**输    入：无
'**输    出：无
'**功能描述：对象操作演示
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 13:41:23
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmdSCDemo2_Click()
txtEdit = "dim lngC" & vbCrLf
txtEdit = txtEdit & "lngC=clng(fm.txtdemo.text)" & vbCrLf
txtEdit = txtEdit & "lngC=lngC+10" & vbCrLf
txtEdit = txtEdit & "if lngC>255 then lngC=0" & vbCrLf
txtEdit = txtEdit & "fm.picdemo.backcolor=rgb(lngC,0,0)" & vbCrLf
txtEdit = txtEdit & "fm.txtdemo.text=cstr(lngC)" & vbCrLf
End Sub
'*************************************************************************
'**函 数 名：Form_Load
'**输    入：无
'**输    出：无
'**功能描述：初始化
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 11:13:03
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub Form_Load()
'添加参数运用的  内部可使用的变名  外部实际变量名
scCommand.AddObject "vm", valMem, True
'向脚本添加外部可用的对象
'最后一个参数: True表示它的子类属性方法在脚本中可以操作  false 表示今该对象本身的方法属性可用
scCommand.AddObject "fm", Me, True
'脚本运行间隔设置
cmbRunTime.ListIndex = 0
'参数操作类型
cmbType.ListIndex = 0
End Sub
'*************************************************************************
'**函 数 名：tmrRun_Timer
'**输    入：无
'**输    出：无
'**功能描述：脚本运行
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 11:29:46
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub tmrRun_Timer()
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
Dim i As Long
'参数输入
valMem.SetValue "Value1", txtValue(0).Text
valMem.SetValue "Value2", txtValue(1).Text
valMem.SetValue "Value3", 0
'脚本运行
scCommand.ExecuteStatement txtEdit.Text
'参数输出
lstValueOut.Clear
For i = 1 To valMem.Count
lstValueOut.AddItem valMem.GetValue("", i)
Next
'------------------------------------------------
Exit Sub
'----------------
ToExit:
txtError = "错 误 号:" & Err.Number & "   时间:" & Format(Now, "YYYY-MM-DD HH:MM:SS") & vbCrLf
txtError = txtError & "错误信息:" & Err.Description & vbCrLf
txtError = txtError & "错误来源:" & Err.Source
End Sub

3、添加一个模块（mdlBase），里面添加如下代码：

**********************************************************************
'**模 块 名：mdlBase
'**说    明：YFsoft 版权所有2004 - 2005(C)
'**创 建 人：叶帆
'**日    期：2004-10-15 11:10:58
'**修 改 人：
'**日    期：
'**描    述：公共变量区
'**版    本：V1.0.0
'*************************************************************************
Option Explicit
Public valMem As New clsScriptIO     '脚本语言参数交换的变量设置区

添加一个类（clsScriptIO），类名为clsScriptIO，里面添加如下代码：

**********************************************************************
'**模 块 名：clsScriptIO
'**说    明：YFsoft 版权所有2004 - 2005(C)
'**创 建 人：叶帆
'**日    期：2004-10-15 11:56:32
'**修 改 人：
'**日    期：
'**描    述：与脚本语言参数交互的类模块
'**版    本：V1.0.0
'*************************************************************************
Option Explicit
Private cltScriptMem As New Collection     '变量设置区
'*************************************************************************
'**函 数 名：Count
'**输    入：无
'**输    出：(Variant) -
'**功能描述：内存变量个数
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 12:00:57
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Public Property Get Count() As Variant
Count = cltScriptMem.Count
End Property
'*************************************************************************
'**函 数 名：GetValue
'**输    入：strKey(String) - 变量名称
'**        ：Optional lngNo(Long = 0) - 变量索引
'**输    出：(Variant) - 返回值
'**功能描述：取得制定名称的变量值
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 12:01:59
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Public Function GetValue(strKey As String, Optional lngNo As Long = 0) As Variant
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
If lngNo > 0 Then    '如果输入索引号，则返回索引号指定的变量
GetValue = cltScriptMem.Item(lngNo)
Else
GetValue = cltScriptMem.Item(strKey)
End If
'------------------------------------------------
Exit Function
'----------------
ToExit:
End Function
'*************************************************************************
'**函 数 名：SetValue
'**输    入：strKey(String) - 变量名
'**        ：value(Variant) - 设置变量
'**输    出：无
'**功能描述：为指定的变量赋值
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 12:07:05
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Public Sub SetValue(strKey As String, value As Variant)
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
cltScriptMem.Remove (strKey)
cltScriptMem.Add value, strKey
'------------------------------------------------
Exit Sub
'----------------
ToExit:
Resume Next
End Sub
'*************************************************************************
'**函 数 名：DelValue
'**输    入：strKey(String) - 变量名
'**        ：Optional lngNo(Long = 0) -索引号
'**输    出：无
'**功能描述：删除制定的变量
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 12:08:55
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Public Sub DelValue(strKey As String, Optional lngNo As Long = 0)
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
If lngNo > 0 Then    '如果输入索引号，则删除索引号指定的变量
cltScriptMem.Remove (lngNo)
Else
cltScriptMem.Remove (strKey)
End If
'------------------------------------------------
Exit Sub
'----------------
ToExit:
End Sub
'*************************************************************************
'**函 数 名：Clear
'**输    入：无
'**输    出：无
'**功能描述：删除变量
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-15 13:15:15
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Public Sub Clear()
On Error GoTo ToExit '打开错误陷阱
'------------------------------------------------
While cltScriptMem.Count > 0
cltScriptMem.Remove (1)
Wend
'------------------------------------------------
Exit Sub
'----------------
ToExit:
Resume Next
End Sub

功能演示：
1、参数传递（单击【传递参数演示】按钮，自动添加相应脚本代码。可以执行加减乘除等操作。
下图演示了错误捕捉（被0除错误）
2、对象操作（单击【对象操作演示】按钮，自动添加相应脚本代码。可以执行控件的赋值和背景色变化操作。

开发者说
目录
相关文章
不拿flag不改名
|
6月前
|
关系型数据库 MySQL PHP
如何运行ｐｈｐ脚本
如何运行ｐｈｐ脚本
不拿flag不改名
48 0
魏红斌
|
6月前
|
弹性计算 Shell 开发工具
自动为其他脚本添加解释器
【4月更文挑战第29天】
魏红斌
48 1
泡沫o0
|
6月前
|
Shell Linux C++
【Shell 编程设计】 编写自己的清理后台的Shell脚本
【Shell 编程设计】 编写自己的清理后台的Shell脚本
泡沫o0
79 1
听风de歌
|
Shell
脚本解释器模块脚本
脚本解释器模块脚本
听风de歌
38 1
道亦无名
|
Web App开发 JavaScript 前端开发
如何运行javascrip的脚本
如何运行javascrip的脚本
道亦无名
45 0
tianjixuetu
|
Linux Python
Python 用一个脚本来控制另一个脚本的运行、关闭
Python 用一个脚本来控制另一个脚本的运行、关闭
tianjixuetu
232 0
iomafilfjtgvs
|
监控 算法 Java
Shell 编程基础与脚本规范
1 编程基础 1.1 程序组成 程序：算法+数据结构 数据：是程序的核心 算法：处理数据的方式 数据结构：数据在计算机中的类型和组织方式
iomafilfjtgvs
365 0
AI_WX_3307623172
|
XML JavaScript 前端开发
在FreeSWITCH中执行长期运行的嵌入式脚本–Lua语言例子
众所周知，FreeSWITCH中可以使用嵌入式的脚本语言javascript、lua等来控制呼叫流程。而更复杂一点操作可能就需要使用Event Socket了。其实不然，嵌入式的脚本也可以一直运行，并可以监听所有的Event，就像使用Event Socket起一个单独的Daemon一样。
AI_WX_3307623172
626 0
明明如月
如何利用Vbs 运行外部程序
如何利用Vbs 运行外部程序
明明如月
224 0
单红宇
|
Android开发 数据安全/隐私保护 监控
Android应用被卸载后，自动使用 浏览器打开指定连接（或编写C代码执行其他操作）
单红宇
2157 0

阿里云MVP

热门文章

最新文章

  • 1
    《UVM实战》——3.3节field automation机制
  • 2
    QSqlDatabase: QMYSQL driver not loaded 解决方案
  • 3
    关于规则引擎的选型和疑惑思考
  • 4
    揭秘2017双11背后的网络－双11的网络产品和技术概览
  • 5
    前端开发：遇到This relative module was not found 的解决方法
  • 6
    Spring装配Bean---使用xml配置
  • 7
    SCDPM2012配置及客户端安装（二)
  • 8
    Ext.Ajax.request和formPanel.getForm().submit两种提交方法的异同
  • 9
    IBatis.Net学习笔记七--日志处理
  • 10
    一个实用的PHP缓存类
  • 1
    修改JAR文件工具
    32
  • 2
    鸿蒙开发：自定义一个动态输入框
    23
  • 3
    《C++ 人工智能模型邂逅云平台：集成之路的策略与要点全解析》
    27
  • 4
    《C++与人工智能在工业自动化故障诊断中的“智慧融合”大揭秘》
    29
  • 5
    【Azure 环境】使用Azure bicep对多个ServicePrinciple 进行role assignment分配
    25
  • 6
    锁膨胀
    21
  • 7
    官宣！杭州市地铁集团与阿里云达成战略合作
    19
  • 8
    最新！阿里云入选福布斯·出海全球化品牌Top30
    20
  • 9
    无影领衔！阿里云四项核心技术荣获科技进步一等奖
    74
  • 10
    阿里云携手天津医保局，荣获2024全国智慧医保大赛一等奖！
    26

    • 相关课程

    更多
  • Shell 脚本入门
  • Shell 脚本进阶
  • Shell 编程入门到精通

    • 相关电子书

    更多
  • 15分钟打造你自己的小程序
  • 小程序 大世界
  • 《15分钟打造你自己的小程序》

    • 相关实验场景

    更多
  • Python网络通信程序典型应用
    • 下一篇
    无影云桌面