|
楼主 |
发表于 2011-8-14 19:03
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub registerYS()
- '******************
- '判断注册表某个字段是否等于预设的值来确定是否注册用户
- '通过DLL封装来达到代码保密,限定未注册用户的使用次数
- '******************
- Dim cc$, tt$, XTIME
- cc = GetSetting(ThisWorkbook.Name, "mysection", "myyear") '取得注册表值
- tt = GetSetting(ThisWorkbook.Name, "mysection", "myTime") '取得注册表值
- XTIME = VBA.IIf(RC4(tt, "XIANGZHENG") = "", 0, RC4(tt, "XIANGZHENG"))
- If cc = "" Then
- '判断是否首次使用,并设定注册表值
- MsgBox "未注册用户!你有10次使用机会.", vbInformation, 64
- SaveSetting ThisWorkbook.Name, "MySection", "MyYear", RC4("未注册", "XIANGZHENG") '设定注册表值
- SaveSetting ThisWorkbook.Name, "MySection", "MyTime", RC4(1, "XIANGZHENG") '设定注册表值使用次数
- Else
- '判断是否合法用户,因写入注册表值经过加密,用户无法自行修改解密
- If cc <> StrToHex(RC4(GetHardDiskInfo(hdPrimaryMaster, hdOnlySN), "XIANGZHENG")) And RC4(cc, "XIANGZHENG") <> "未注册" Then
- MsgBox "非法用户,系统退出!", vbExclamation: Exit Sub
- End If
- End If
- '记录未注册用户使用次数,'判断未注册用户使用次数是否符合预期
- If RC4(cc, "XIANGZHENG") = "未注册" And XTIME < 10 Then
- SaveSetting ThisWorkbook.Name, "MySection", "MyTime", RC4(XTIME + 1, "XIANGZHENG") '设定注册表值
- MsgBox "你还可以试用:" & 9 - XTIME & "次", vbInformation
- Else
- If RC4(cc, "XIANGZHENG") = "未注册" And XTIME >= 10 Then MsgBox "试用次数耗尽!无权操作本系统!", vbInformation: Exit Sub
- End If
- End Sub
复制代码 加上判断是否注册用户的列子 |
评分
-
2
查看全部评分
-
|