<<< 返回 access911.net 编程静态资料库索引页

如何用程序更改模块内的代码?

 

作者:未知  摘自:  录入:cg1  时间:2003-3-24  浏览人次:895


专题地址:http://access911.net/fixhtm/73FAB71E11DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何用程序更改模块内的代码?《VBA》

 


问题:

以下是一段获取硬盘序列号的代码:

Private Declare Function 获得硬盘序列号 Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long


(1)Private Sub Form_Load()
(2)On Error GoTo Err_Form_Load    
(3)    Dim aa As Long
(4)    Dim VolName As String
(5)    Dim 硬盘序列号 As Long
(6)    Dim Maxlen As Long
(7)    Dim Sysflag As Long
(8)  .....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB71E11DC.htm

 


上一篇:如何用api函数备份一个数据库?

下一篇:什么才是提高ASP性能的最佳选择(一)

2017年2月22日生成静态资料