如何将vbs脚本用VB封装为DLL，并在vbs脚本中调用

近来，做关于wincc的项目，用到将vbs脚本封装成DLL，并在vbs脚本里面调用，故而整理如下。

一、如何将vbs脚本封装DLL

1. 在VB6.0中新建ActiveX DLL工程。

2.将vbs脚本程序复制到VB工程的类模块文件。

    注意：复制完代码后，可能会显示代码局部有小错误。

                比如：字符串换行，在vbs中为&_，而在vb中为& _（中间有空格）。

     无参数的函数调用，可能需要去掉调用的括号

     类体，无须开头的class 类名，以及无须结尾的End Class

' Class Class_TableSTU 需要注释掉该行，工程中的文件就是类模块，
'而类模块的名称，就代表了所建立的类的名称

'---Class Member Definition
'Table STU : Member
Private i_stuName
Private i_stuAge

'---Get operation
Public Property Get stuName()
stuName = i_stuName
End Property
Public Property Get stuAge()
stuAge = i_stuAge
End Property

'---Let operation
Public Property Let stuName(New_stuName)
i_stuName = New_stuName
'MsgBox "Let stuName"
End Property
Public Property Let stuAge(New_stuAge)
i_stuAge = New_stuAge
'MsgBox "Let stuAge"
End Property

Public Function showStuMessage()
MsgBox "stuName = " & i_stuName & ", stuAge = " & i_stuAge
End Function

'End class 同样需要注释掉该行，原因类似于开头的解释

3.命名

这里有三个名称：类名，工程名，生成的DLL文件名

建议将工程名和生成的DLL文件名，起相同的名字（原因后面解释）。



3.生成DLL



至此，完成DLL文件的制作。

二、vbs如何调用DLL文件

1.注册DLL文件

注册方法：将DLL文件放到一个电脑的固定位置（我放在了D:\cccc\）。

                    在”开始“->cmd，在打开的界面，首先输入regsvr32 （注意regsvr32后面有空格）截图如下：



                  再将DLL文件，拖到上面，回车即可实现注册，截图如下。注册成功后会有提示。



至此完成DLL的注册。

2.vbs调用DLL中的程序

我用得工程名为TestDLL，生成的DLL文件名为MyDLL，类名为Class_TableSTU，用如下代码调用：

Dim objTemp
Set objTemp = CreateObject("TestDLL.Class_TableSTU")'OK
'Set objTemp = CreateObject("MyDLL.Class_TableSTU")'Error
objTemp.showStuMessage

所以说，为了防止将工程名和生成的DLL文件名混淆，所以建议将两者起相同的名字。