CObject调用MSScriptControl.ScriptControl例子

yjgyjgg 2021-11-16 11681

    Dim o as CObject=createobject ("MSScriptControl.ScriptControl")
    Dim strProgram As String = "Sub Main" & vbCrLf & "MsgBox 123" & vbCrLf & "End Sub"
    o.Put("Language" ,"VBScript")
    o.Run("AddCode" ,strProgram)
    o.Run("Run","Main")

说明尽在不言中

因国家互联网安全管理要求,关闭回帖功能。大家需要留言,请使用【勇芳软件客服】即时联系勇芳点此打开->>勇芳软件客服
返回
联系勇芳
发新帖 搜索 反馈 回顶部