ScriptControl控件执行自定义VBS脚本示例分析

scriptcontrol控件-msscript.ocx msscript.oca

'allowui:可读写,布尔值,检测是否允许运行用户的接口元素.如果为false,则诸如消息框之类的界面元素不可见.
'codeobject: 返回宿主被调用的特定的公用成员对象.只读.
'modules:只读.返回宿主提供给脚本的组件库模块.com组件通常都是以对象收集的形式向用户提供可以留给用户二次开发的对象集合,每一个收集即一个modules（模块）.
'language:设置或获取脚本引擎解释的语言,例如:vbscript.jscript.
'name:返回模块.过程.或者对象的名字,只读属性.
'procedures:返回模块中定义的过程,只读.
'sitehwnd:窗口句柄,如果本控件以activex控件创建,则此属性为控件的容器；如果是以自动化对象创建,则为0,即桌面.此属性可读写.
'state:设置或返回控件的状态,如果为0,控件只执行语句但不转发事件,为1则为加入的本控件接受的对象转发事件.
'timeout:设置或返回控件的相应脚本的超时值.当超时值到达时,将引发timeout事件.也可设为-1,表示无超时设定.
'usesafesubset: 设置或返回宿主程序是否关心安全.宿主程序的安全级别可以从此属性设置.
'error:错误对象,发生错误时,此属性返回一个错误对象.
'addcode :往一个模块加入一些代码.格式为:addcode code,可以调用多次.
'addobject:向一个模块加入一个对象,格式:scriptcontrol.addobject(name, object[,addmembers]),name为欲加入的对象名字,object为实际的对象,addmembers为可选指示此对象是否为全局对象,false为局部对象.只有往本对象中加入对象后才能在脚本中使用
'eval:求值表达式.格式为object.eval_r(expression) .
'executestatement: 解释并执行脚本语句.格式: object.executestatement statement.
'reset: 丢弃所有的对象和代码.state属性将为0.
'run:运行一个指定的过程.格式:object.run(procedurename,parameters()),procedurename为要运行的过程名,parameters()为参数
'仅有两个事件:error 和timeout.前者可以用于错误捕获,后者在脚本得不到响应时发生.
private sub command1_click()
dim strfun as string
dim a, b as long
a = 2
b = 3
strfun = "function add(a,b)" & vbcrlf & "add=a+b" & vbcrlf & "end   function" & vbcrlf
scriptcontrol1.modules.add "mycode"
scriptcontrol1.modules.item(1).addcode strfun
msgbox scriptcontrol1.run("add", a, b)
end sub
private sub command2_click()
dim codestr as string
codestr = "msgbox 2+3" & vbcrlf   
scriptcontrol1.executestatement codestr
end sub
private sub command3_click()      //运行print 运算表达式
dim codestr as string
codestr = text1.text
codestr = mid(codestr, 6)
msgbox scriptcontrol1.eval(codestr)
end sub