[分享]：使用VL调用VB编写的AcitveX DLL

efan2000

首先在VB中新建一个ActiveX DLL工程，工程名称为VBTest，新建一个类模块，名称为Test。
在类模块中加下下面的代码，其中GetComputerName的API函数是用于获取本地的计算机名称。具体说明参考API资料。

2. 
   
3.   [FONT=courier new]
   
4. Private Declare Function APIGetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
   
5. 
   
6. Public Property Get GetComputerName() As String
   
7.     Dim strString As String
   
8.     strString = String(255, Chr$(0))
   
9.     APIGetComputerName strString, 255
   
10.     strString = Left$(strString, InStr(1, strString, Chr$(0)))
    
11.     GetComputerName = strString
    
12. End Property
    
13.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private Declare Function APIGetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long<br /> <br /> Public Property Get GetComputerName() As String<br />     Dim strString As String<br />     strString = String(255, Chr$(0))<br />     APIGetComputerName strString, 255<br />     strString = Left$(strString, InStr(1, strString, Chr$(0)))<br />     GetComputerName = strString<br /> End Property<br />   [/FONT]<br />

完成后，编译成VBTest.DLL文件。
接下来，在VL中，首先获取该对象的引用。
(setq vltest (vlax-create-object "VBTest.test"))
接着，获取它的GetComputerName属性。
(setq name (vlax-get-property vltest 'getcomputername))
这时就会在IDE窗口中出现自己的计算机名称了。其它的使用类似，有兴趣的朋友可以自己去研究。
以下附上所有的代码。

efan2000

补充，VL提供了对ActiveX对象的操作，对于VB中的函数和过程，使用vlax-invoke-method来操作，而对于VB中的属性过程，则用vlax-get-property获取属性和vlax-put-property设置属性。
最后，提供一个API的ActiveX DLL文件，可以用于获取分区的序列号，网卡的序列号和IP地址，还可以对某一IP地址进行Ping操作。

2. 
   
3.   [FONT=courier new]
   
4. 创建API对象。
   
5. 
   
6. 1、GetVolumeSerialNumber RootPathName
   
7.    返回某一盘符的序列号。
   
8.    如：(setq sn (vlax-invoke-method apiobj 'GetVolumeSerialNumber "C:"))
   
9. 2、GetMACAddress
   
10.    返回网卡的序列号。
    
11.    如：(setq sn (vlax-invoke-method apiobj 'GetMACAddress))
    
12. 3、GetIPAddress
    
13.    返回某一机器名称的IP地址。
    
14.    如：(setq ip (vlax-invoke-method apiobj 'GetIPAddress "www.xdcad.net"))，或者(setq ip (vlax-invoke-method apiobj 'GetIPAddress ""))返回本地的IP地址。
    
15. 4、Ping HostName
    
16.    Ping某一IP地址的机器，成功返回True。
    
17.    如：(setq ip (vlax-invoke-method apiobj 'Ping "www.xdcad.net"))，返回vlax-true表示IP地址有效，返回vlax-false无效。或者(setq ip (vlax-invoke-method apiobj 'Ping "192.168.0.1"))
    
18. 
    
19. 最后，释放对象。
    
20. (vlax-release-object apiobj)
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br /> 创建API对象。<br /> <br /> 1、GetVolumeSerialNumber RootPathName<br />    返回某一盘符的序列号。<br />    如：(setq sn (vlax-invoke-method apiobj 'GetVolumeSerialNumber "C:"))<br /> 2、GetMACAddress<br />    返回网卡的序列号。<br />    如：(setq sn (vlax-invoke-method apiobj 'GetMACAddress))<br /> 3、GetIPAddress<br />    返回某一机器名称的IP地址。<br />    如：(setq ip (vlax-invoke-method apiobj 'GetIPAddress "www.xdcad.net"))，或者(setq ip (vlax-invoke-method apiobj 'GetIPAddress ""))返回本地的IP地址。<br /> 4、Ping HostName<br />    Ping某一IP地址的机器，成功返回True。<br />    如：(setq ip (vlax-invoke-method apiobj 'Ping "www.xdcad.net"))，返回vlax-true表示IP地址有效，返回vlax-false无效。或者(setq ip (vlax-invoke-method apiobj 'Ping "192.168.0.1"))<br /> <br /> 最后，释放对象。<br /> (vlax-release-object apiobj)<br />   [/FONT]<br />

efan2000

更新，可返回局域网内的某一IP地址的网卡序列号。

2. 
   
3.   [FONT=courier new]
   
4. 在“开始”——“运行”菜单中，键入regsvr32 apilib.dll的路径+文件名。
   
5. 
   
6. (setq apiobj (vlax-create-object "APILib.API"))
   
7. 创建API对象。
   
8. 
   
9. 1、GetVolumeSerialNumber RootPathName
   
10.    返回某一盘符的序列号。
    
11.    如：(setq sn (vlax-invoke-method apiobj 'GetVolumeSerialNumber "C:"))。
    
12. 2、GetMACAddress HostName
    
13.    返回网卡的序列号。
    
14.    如：(setq sn (vlax-invoke-method apiobj 'GetMACAddress "192.168.0.1"))，或者(setq sn (vlax-invoke-method apiobj 'GetMACAddress ""))返回本地的IP地址。
    
15.    注意：仅能返回局域网内的网卡序列号，且仅支持Windows 2000以上的操作系统。
    
16. 3、GetIPAddress HostName
    
17.    返回某一机器名称的IP地址。
    
18.    如：(setq ip (vlax-invoke-method apiobj 'GetIPAddress "www.xdcad.net"))，或者(setq ip (vlax-invoke-method apiobj 'GetIPAddress ""))返回本地的IP地址。
    
19. 4、Ping HostName
    
20.    Ping某一IP地址的机器，成功返回True。
    
21.    如：(setq ip (vlax-invoke-method apiobj 'Ping "www.xdcad.net"))，返回vlax-true表示IP地址有效，返回vlax-false无效。或者(setq ip (vlax-invoke-method apiobj 'Ping "192.168.0.1"))。
    
22. 5、GetComputerName
    
23.    返回本地的机器名称。
    
24.    如：(setq name (vlax-invoke-method apiobj 'GetComputerName))。
    
25. 6、GetUserName
    
26.    返回登录系统的用户名称。
    
27.    如：(setq name (vlax-invoke-method apiobj 'GetUserName))。
    
28. 7、GetSystemDirectory
    
29.    返回系统目录的路径。
    
30.    如：(setq path (vlax-invoke-method apiobj 'GetSystemDirectory))。
    
31. 8、GetWindowsDirectory
    
32.    返回Windows操作系统安装目录的路径。
    
33.    如：(setq path (vlax-invoke-method apiobj 'GetWindowsDirectory))。
    
34. 9、GetTempPath
    
35.    返回临时目录的路径。
    
36.    如：(setq path (vlax-invoke-method apiobj 'GetTempPath))。
    
37. 
    
38. 最后，释放对象。
    
39. (vlax-release-object apiobj)
    
40.   [/FONT]
    

<br />   [FONT=courier new]<br /> 在“开始”——“运行”菜单中，键入regsvr32 apilib.dll的路径+文件名。<br /> <br /> (setq apiobj (vlax-create-object "APILib.API"))<br /> 创建API对象。<br /> <br /> 1、GetVolumeSerialNumber RootPathName<br />    返回某一盘符的序列号。<br />    如：(setq sn (vlax-invoke-method apiobj 'GetVolumeSerialNumber "C:"))。<br /> 2、GetMACAddress HostName<br />    返回网卡的序列号。<br />    如：(setq sn (vlax-invoke-method apiobj 'GetMACAddress "192.168.0.1"))，或者(setq sn (vlax-invoke-method apiobj 'GetMACAddress ""))返回本地的IP地址。<br />    注意：仅能返回局域网内的网卡序列号，且仅支持Windows 2000以上的操作系统。<br /> 3、GetIPAddress HostName<br />    返回某一机器名称的IP地址。<br />    如：(setq ip (vlax-invoke-method apiobj 'GetIPAddress "www.xdcad.net"))，或者(setq ip (vlax-invoke-method apiobj 'GetIPAddress ""))返回本地的IP地址。<br /> 4、Ping HostName<br />    Ping某一IP地址的机器，成功返回True。<br />    如：(setq ip (vlax-invoke-method apiobj 'Ping "www.xdcad.net"))，返回vlax-true表示IP地址有效，返回vlax-false无效。或者(setq ip (vlax-invoke-method apiobj 'Ping "192.168.0.1"))。<br /> 5、GetComputerName<br />    返回本地的机器名称。<br />    如：(setq name (vlax-invoke-method apiobj 'GetComputerName))。<br /> 6、GetUserName<br />    返回登录系统的用户名称。<br />    如：(setq name (vlax-invoke-method apiobj 'GetUserName))。<br /> 7、GetSystemDirectory<br />    返回系统目录的路径。<br />    如：(setq path (vlax-invoke-method apiobj 'GetSystemDirectory))。<br /> 8、GetWindowsDirectory<br />    返回Windows操作系统安装目录的路径。<br />    如：(setq path (vlax-invoke-method apiobj 'GetWindowsDirectory))。<br /> 9、GetTempPath<br />    返回临时目录的路径。<br />    如：(setq path (vlax-invoke-method apiobj 'GetTempPath))。<br /> <br /> 最后，释放对象。<br /> (vlax-release-object apiobj)<br />   [/FONT]<br />

houxianyong

谢谢斑竹指点，豁然开朗

自由的鱼

简直就是茅塞顿开啊

netbee

这么说是可以直接用VLISP调用DLL的函数啦？
在
(setq apiobj (vlax-create-object "APILib.API"))
这句中的"APILib.API"的点后面为什么为API，可以为其他的名称吗？
要是我只有一个DLL文件，及知道里面的一个函数名及调用方法，我又如何创建对象呢？
如：MYLIB.DLL中有个函数GETID
如何建呢

还有，每台新机子都要进行DLL的注册吗：
在“开始”——“运行”菜单中，键入regsvr32 apilib.dll的路径+文件名。

aeo

看efan2000的第一行:
首先在VB中新建一个ActiveX DLL工程，工程名称为VBTest，新建一个类模块，名称为Test
编译成dll后，工程和类的名称不会变.
(vlax-create-object  "VBTest.Test")

在vb中，有了这类后: dim efan2000 as test
              efan2000就成了一个object.就可以用它的方法和属性.
              efan2000.old = 100岁
       efan2000.GetUserName()
          ...
vl方法: (setq efan2000 (vlax-create-object  "VBTest.Test"))
             (vlax-invoke-method efan2000  'GetUserName)           ...

playboy

很深奥不懂
请楼主指点一下

netbee

这里有一个读主板ID的DLL。
其中的函数名
Getmoth()
调用参数两个：Integer, String
其中第一个参数是整数，为0则返回作者信息，为4则返回主板ID，为40则返回经计算的注册码
返回码保存在第二个参数中
其中第二个参数是字符串地址指针
整个函数返回整数值，判断函数执行情况，请问如何进行调用呢？

zhang8755

9楼的请注意：没有active X接口的Dll不能调用。

urljit

如果用户没有运行regsvr32 apilib.dll，是否可以让vl调用相关函数运行它呢？

winabcd

好东西，值得好好研究一下。
谢谢各位提供这么好的东西

小菜

可惜不能和VLISP编译成一个文件，不然加密还是挺管用的

helison

如何用易语言写能让VL调用的DLL？？

xazhji

能否有读cpu序列号的dll ?