vb调用vbs代码

Posted 2023-03-03

我有段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"路径"