问题:比如:在"D:/1/123.txt有如下代码: msgbox"123456"
怎样调用它.使程序运行后能弹出123456
怎样调用它.使程序运行后能弹出123456
答:借助Microsoft(R) Script Control控件可以轻松实现该功能
关键代码
Private Sub cmbRun_Click()
'通过MS.ScriptControl控件运行VBS脚本
With ScriptControl1
.Language = "VBScript"
.ExecuteStatement Text1.Text
End With
End Sub
'通过MS.ScriptControl控件运行VBS脚本
With ScriptControl1
.Language = "VBScript"
.ExecuteStatement Text1.Text
End With
End Sub
下载源代码工程文件 ScriptVBSample.zip.jpg(9KB) 右键另存为... (注:下载后请修改文件名去掉.jpg后缀)
另附相关文章
Microsoft(R) Script 控件使用户可以创建运行任何 ActiveX(R) scripting 引擎,例如 Microsoft(R) Visual Basic
(R) Scripting Edition 或Microsoft(R) JScript(TM) 的应用程序。用户可以将任何 Automation 对象的对象模型添加
到 Script 控件中,这样该对象的方法和属性就可以为 scripting 引擎所使用。通过将某个应用程序的对象模型和某个
scripting 引擎加以综合,用户就可以创建一个结合了两方面优点的 scripting 应用程序。应用程序不但具有