vb 生成dll ，vbs 调用dll

1.新建工程ActiveX.dll.

2.从命名工程名和类名,并编写类方法,后保存成DLL

3.用regsvr32 + DLL的全路径.(注册)

4.打开VBS 定义该DLL对象.

"Set test = CreateObject("test.class")"(test是工程名,class是类名)

5.用对象点方法就可以了.

例VB里输入代码:

Public Function getData() As String

Dim head As Long

Dim short As Integer

Open "c:\relate.hk" For Binary As #1

Get #1, , head

'Do While Not EOF(1)

Get #1, , short

usSerial = usSerial & " " & short

Get #1, , short

usCount = usCount & " " & short

toSerial = toSerial & " "

For i = 1 To 500

Get #1, , short

toSerial = toSerial & "," & short

Next i

'Loop

Close #1

usSerial = Replace(Trim(usSerial), " ", "|")

usCount = Replace(Trim(usCount), " ", "|")

toSerial = Replace(Trim(toSerial), " ", "|")

getData = usSerial & "~" & usCount & "~" & toSerial

End Function

保存为DLL,工程名为:test,类名为class

注册后,vbs里调用:

Dim test

Set test = CreateObject("test.class")

'getstr=Split(test.getData,"~")

Debug.WriteLine test.getData