vb调用vbs代码

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了vb调用vbs代码相关的知识,希望对你有一定的参考价值。

我有段VBS源代码
如何用VB调用它,并且生成EXE可执行文件?

使用Script Control
在工程->引用 里添加Microsoft Script Controls 1.0
代码如下

Private Sub Command1_Click()
Dim vbs As String
Open "VBS的文件路径" For Input As #1
vbs = StrConv(InputB(LOF(1), 1), vbUnicode)

Close #1
Dim s As ScriptControl

Set s = CreateObject("ScriptControl")
s.Language = "VBScript"
s.AllowUI = True
'添加代码并执行
s.AddCode vbs
s.Run "vbs中的过程名"

Set s = Nothing

End Sub

其中 VBS的文件路径 和 vbs中的过程名 自己替换
参考技术A 有个工具可以将vbs生成exe。 参考技术B shell"路径"

以上是关于vb调用vbs代码的主要内容,如果未能解决你的问题,请参考以下文章