Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:怎样做到给自己设计的软件系统加密呢?

1楼
sophia 发表于:2010/8/5 9:33:00
如题
2楼
狐狸爸爸 发表于:2010/8/5 9:42:00

1、设置密码,Foxtable自带的用户和密码管理就比较安全了

2、设计自己注册码系统,帮助有简单的介绍。

 

3楼
sophia 发表于:2010/8/6 13:33:00

帮助里关于"设计自己的注册系统"一章GetConfigValue和SaveConfigValue是什么函数呢?我没找到关于这两个函数的介绍.

另外:给定机器码后,注册码是怎么产生的呢?

4楼
kylin 发表于:2010/8/6 14:10:00

保存设置信息

一个完整的系统,通常会提供一些自定义的设置给用户,以便满足不同的用户需要。
FoxTable提供了一些函数,分别用于保存、读取和维护设置信息。

SaveConfigValue

保存设置信息

语法:

SaveConfigValue(Name, Value)

Name:  设置名称
Value: 设置值

设置信息经过加密储存,安全性比一般的方式更有保证。

GetConfigValue

读取设置信息。

语法:

GetConfigValue(Name, DefaultValue)

Name:        设置名称
DefaultValue:默认设置值,如果指定名称的设置不存在,则返回此值。

SaveAllConfigItem

保存所有的设置,无参数。
在默认情况下,只有单击菜单中的保存按钮,设置信息才会保存。
如果希望单独或者强制保存设置信息,可执行此方法。

RemoveConfigItem

删除指定名称的设置。

语法:

RemoveConfigItem(Name)

Name: 要删除的设置名称。

ClearConfigItem

删除所有的设置,无参数。

示例

假定你提供给客户的是一个试用版本,希望最多使用30次,可以在项目事件AfterProject事件中加入如下代码:

Dim n As Integer
n = GetConfigValue("Count",1) '假定保存试用次数的设置名称为Count
If
n > 30 Then
    Messagebox.Show("您正在使用的产品已经超出试用次数!")
    Syscmd.Project.Exit()
Else
   
n = n + 1
    SaveConfigValue("Count",n)
End
If

提示:如果启动项目而不保存,是不会计算试用次数的。
 

 

 

----以上是帮助里头的介绍

 

共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03613 s, 2 queries.