软件限制使用技巧

admin

181 取得电脑名称
% V4 j0 q% o( ^
1 H1 Z8 N4 j1 y) k, q

1. Private Sub Workbook_Open()
   % e, g4 p; ~2 z, K- R# V
2.      Dim myName As String
   
3.      myName = Environ("Computername")
   ; k( O0 R) Z. M4 e) c
4.      If myName <> "ERPSERVER" Then
   
5.          MsgBox "对不起您不是合法用户，文件将关闭!"
   
6.         ThisWorkbook.Close
   # x) l% q8 E/ E8 T/ T0 m
7.      End If
   3 _& M: V6 o/ i1 {
8. End Sub

复制代码

代码解析：
) t8 G. D8 p: e0 F. f$ s( C工作簿的Open事件过程，在工作簿打开时判断电脑的名称，如果不是“ERPSERVER”则退出关闭工作簿。
第3行代码取得电脑的名称。Environ函数返回String，关连一个操作系统环境变量，语法如下：
) v" |( r' P- V- f6 MEnviron({envstring | number})
参数envstring是可选的，包含一个环境变量名的字符串表达式。如果在环境字符串表格中找到参数envstring，则Environ函数返回在环境字符串表格中对应那个环境变量的等号后面的那段文本。
; }* t" f  V( |+ l$ `, yEnviron("Computername")返回电脑名称，如果需要取得当前登录用户的用户名则使用Environ("UserName")。
3 [7 b& @. O+ R参数number是可选的，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。
, P4 o2 F, j3 B( P$ F% d# W8 D8 `第4行到第7行代码，如果当前电脑不是指定的电脑，关闭工作簿。在实际应用中需要配合其他方法使用户在打开时强制启用宏才能达到这一效果。
' ~5 s: X% |* v5 q, c  ^7 z0 o

admin

技巧182         取得逻辑盘序列号

1. Sub DriveID()
   0 \/ Q3 L: p6 S% M* o
2.      Dim DriveID
   8 B( a% f5 V5 `
3.      Set DriveID = CreateObject("Scripting.FileSystemObject")
   
4.     MsgBox "C盘的序列号是：" & DriveID.GetDrive("C").SerialNumber, 64
   
5. End Sub

复制代码

电脑硬盘 9 位数 编码

admin

技巧183         使用API取得硬盘信息
. v4 ]/ Q9 X: i3 B- F9 l2 }
* m/ E7 }- F6 c! R

1. Private Const MAX_IDE_DRIVES As Long = 4
   
2. Private Const READ_ATTRIBUTE_BUFFER_SIZE As Long = 512
   * E* |+ n* W( s- m+ w
3. Private Const IDENTIFY_BUFFER_SIZE As Long = 512
   
4. Private Const READ_THRESHOLD_BUFFER_SIZE As Long = 512
   
5. Private Const DFP_GET_VERSION As Long = &H74080
   2 |! ]. Y8 A) Q  d" u4 R
6. Private Const DFP_SEND_DRIVE_COMMAND As Long = &H7C084
   
7. Private Const DFP_RECEIVE_DRIVE_DATA As Long = &H7C088
   
8. '      ……代码略，详见附件
   
9.   '取得硬盘信息：型号/物理系列号（唯一）
   
10.   Function GetHardDiskInfo(Optional ByVal numDisk As eumDiskNo = hdPrimaryMaster, Optional ByVal numType As eumInfoType = hdOnlySN) As String
    
11.       If GetDiskInfo(numDisk) = 1 Then
    1 F6 A: ]) r( l$ L6 r
12.           Dim pSerialNumber As String, pModelNumber As String
    
13.           pSerialNumber = StrConv(m_DiskInfo.sSerialNumber, vbUnicode)
    
14.           pModelNumber = StrConv(m_DiskInfo.sModelNumber, vbUnicode)
    7 t6 N2 I3 A" c" p; B
15.           Select Case numType
    
16.               Case hdOnlyModel  '仅型号
    , o5 [3 L) {, b
17.                   GetHardDiskInfo = Trim(pModelNumber)
    
18.               Case hdOnlySN  '仅系列号
    5 d* E7 a' B. o+ `# h+ F- N& r! l. e
19.                   GetHardDiskInfo = Trim(pSerialNumber)
    
20.               Case Else   '型号,系列号
    
21.                   GetHardDiskInfo = Trim(pModelNumber) & "," & Trim(pSerialNumber)
    ; C/ R) i! Z+ M
22.           End Select
    
23.        End If
    
24. End Function

复制代码

1. Sub DiskId()
   $ p# |- |5 Q2 W/ ]
2.     MsgBox "硬盘的物理系列号：" & GetHardDiskInfo(hdPrimaryMaster, hdOnlySN) _
   
3.     & Chr(13) & "C盘的序列号：" & GetDiskVolume("C")
   $ h% r4 Q9 n# V' s- @, `" b2 O
4. End Sub
   

复制代码

取得硬盘物理序号 diskid.xls (78 KB, 下载次数: 0, 售价: 10 个金币)

2020-4-6 17:40 上传

点击文件名下载附件
阅读权限: 255