软件限制使用技巧

admin · 发表于 2020-4-6 17:11:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转新大榭论坛！

您需要登录才可以下载或查看，没有账号？注册

x

181 取得电脑名称

Private Sub Workbook_Open()6 d9 V2 H) u5 D1 Z7 C% ]
Dim myName As String
@8 H7 M: [7 h3 x1 t: v8 `
myName = Environ("Computername")
$ P: \3 n/ m1 d6 [ g F2 y
If myName <> "ERPSERVER" Then+ V' U" ~$ t6 k) T! y
MsgBox "对不起您不是合法用户，文件将关闭!"
: @3 g: B& B6 p6 q, e4 E9 L
ThisWorkbook.Close' W. N: Z- w) o
End If1 G- O, W% _, f; r& X" y% j2 q/ @
End Sub

复制代码

代码解析：
工作簿的Open事件过程，在工作簿打开时判断电脑的名称，如果不是“ERPSERVER”则退出关闭工作簿。
第3行代码取得电脑的名称。Environ函数返回String，关连一个操作系统环境变量，语法如下：
Environ({envstring | number})
参数envstring是可选的，包含一个环境变量名的字符串表达式。如果在环境字符串表格中找到参数envstring，则Environ函数返回在环境字符串表格中对应那个环境变量的等号后面的那段文本。
Environ("Computername")返回电脑名称，如果需要取得当前登录用户的用户名则使用Environ("UserName")。
参数number是可选的，用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式，不过在计算前，它会先转换为一个整数。
第4行到第7行代码，如果当前电脑不是指定的电脑，关闭工作簿。在实际应用中需要配合其他方法使用户在打开时强制启用宏才能达到这一效果。

admin · 发表于 2020-4-6 17:21:29

技巧182 取得逻辑盘序列号

Sub DriveID()
& i2 @0 ?+ {' I( y
Dim DriveID
2 N( @6 `# Y' W8 r2 T5 V* B6 ]
Set DriveID = CreateObject("Scripting.FileSystemObject"). E* e4 ~7 a- F8 E
MsgBox "C盘的序列号是：" & DriveID.GetDrive("C").SerialNumber, 64
0 S- Y% e! b# D/ f* o4 q+ `& ^
End Sub

复制代码

电脑硬盘 9 位数编码

admin · 发表于 2020-4-6 17:27:10

技巧183 使用API取得硬盘信息

Private Const MAX_IDE_DRIVES As Long = 4
7 r- ^8 C2 x, S( j% q1 v
Private Const READ_ATTRIBUTE_BUFFER_SIZE As Long = 512! D) F* Z4 S1 D5 g4 f# d3 y
Private Const IDENTIFY_BUFFER_SIZE As Long = 512
% a* b0 P& U! l, p- f
Private Const READ_THRESHOLD_BUFFER_SIZE As Long = 512
0 \. f. q+ b# g2 O9 C
Private Const DFP_GET_VERSION As Long = &H74080* }/ ^8 |% \: @
Private Const DFP_SEND_DRIVE_COMMAND As Long = &H7C0848 S/ z) }1 @& }5 L
Private Const DFP_RECEIVE_DRIVE_DATA As Long = &H7C088
3 n- y/ E0 |) l- m6 e
' ……代码略，详见附件9 T, c+ J+ T! H% o7 s
'取得硬盘信息：型号/物理系列号（唯一）
2 w$ y, \, z) a7 Q8 u+ j" o
Function GetHardDiskInfo(Optional ByVal numDisk As eumDiskNo = hdPrimaryMaster, Optional ByVal numType As eumInfoType = hdOnlySN) As String6 P- b0 I- Y6 k8 c- v4 F$ A
If GetDiskInfo(numDisk) = 1 Then
3 }8 g# @( y u/ X# }7 a! ?: I
Dim pSerialNumber As String, pModelNumber As String
2 N* t* Z% A# s/ X5 {8 c. v& z
pSerialNumber = StrConv(m_DiskInfo.sSerialNumber, vbUnicode)# F) Y1 _9 X p0 L4 z
pModelNumber = StrConv(m_DiskInfo.sModelNumber, vbUnicode)9 Q4 @ A/ t, M$ d+ @$ D
Select Case numType3 E/ \: `* Z) t+ }- W4 U" k
Case hdOnlyModel '仅型号
t. t9 `/ C0 d3 v" d8 U
GetHardDiskInfo = Trim(pModelNumber)9 N: O6 \( f( B3 ~7 Q; P# S
Case hdOnlySN '仅系列号
! b3 f# w* V5 G6 E5 m' k& F8 M( d2 [
GetHardDiskInfo = Trim(pSerialNumber)
0 C, G, |" V( X! e
Case Else '型号,系列号% T, \* k/ h+ l. g
GetHardDiskInfo = Trim(pModelNumber) & "," & Trim(pSerialNumber)& r4 T4 Y4 H0 e- P# n. V, v2 Q0 h: G
End Select1 x" J& A: `0 J6 V+ H! b
End If3 s9 n9 _3 h8 n5 i) P" K+ ~
End Function

复制代码

Sub DiskId()
8 T0 L5 U/ N% |( z0 S6 Q: r
MsgBox "硬盘的物理系列号：" & GetHardDiskInfo(hdPrimaryMaster, hdOnlySN) _
3 F' _9 A& W0 ^, i4 r* c
& Chr(13) & "C盘的序列号：" & GetDiskVolume("C")2 {- J( f6 t) d, H
End Sub2 `4 d" \* T: t0 W9 q

复制代码

取得硬盘物理序号

diskid.xls (78 KB, 下载次数: 0, 售价: 10 个金币)

		自动登录	找回密码
密码			注册

[Excel课程] 软件限制使用技巧

马上注册，结交更多好友，享用更多功能，让你轻松玩转新大榭论坛！

浏览过的版块