让您的课件赶上共享班车（一）

http://www.henanedu.com/       发布时间：2004-8-30 9:07:55       来源： AW驿站  

      现在，许多软件都加入了共享大军，而我们不少教师辛勤制作的教学课件至今仍是免费家族中的一员，大家都可免费使用。因此，我一直在寻求一种保护广大教师利益的方法，由此便想：能否用手边的Authorware为制作的课件设计一个软件注册程序，用于保护我们教师的“知识产权”呢？(是不是觉得太严肃了。^-^)。在经过一段时间的思考和实践并分析参考了其他共享软件的注册方法后，终于设计出了一个还算像样的软件注册程序(见图1)，它可是能输入英文注册信息的哦。好东东不敢独享，现将其制作过程叙述如下，希望对诸位有所启迪和帮助。(注：所有的流程见图2)

图1 

　　1、首先创建一个名为“注册.a5p”的文件，打开后先去掉标题栏和菜单栏，然后引入一个计算图标，命名为“判断”。

打开“判断”计算图标，输入如下内容：

ResizeWindow(306, 226)－－初始化窗口

g_ma:=ReadExtFile(FileLocation^"\hwnum.txt")－－读取机器码文件信息并存入变量g_ma

if g_ma>0 then

path:=1

else

path:=2－－根据注册码值进行判断，选择分支流程

end if

这样，当用户每次执行程序时，都会由第一个计算图标来判断本软件是否存在机器码，然后再通过决策分支路径来决定程序的走向(机器码产生后不会改变，除非机器码信息文件不存在。)。

2、拖动一个决策图标到“判断”计算图标下，双击打开决策属性设置对话框进行如下设置：“重复”一项设置为“不重复 ”、“分支 ”一项设置为“计算分支结构”，下面输入变量“path”，用于控制流程走向。具体说来就是：如果此程序存在机器码，则执行“path：=1”所对应的第一条分支，否则，执行“path：=2”所指定的第二分支生成一个机器码和对应的注册码文件。

3、在决策图标右侧放置两个群组图标，分别命名为“存在”、“不存在”。

打开“不存在”群组图标，在第二级流程线上拖放两个计算图标，分别命名为“生成信息文件”、“跳转到判断”。其中，“生成信息文件”计算图标中的内容如下：

snword1:="h w t h e q u w c"－－原始密码信息，记得一定要用空格隔开，否则Authorware会将其看作是一个字符串

snword2:="k b r o 9 n f o x"

snword3:="j u m p e d 0 v z"

snword4:="r 3 g i 1 a 7 y d"

snnumber:="0 1 2 3 4 5 6 7 8 9"

m:=Random(1,9,1)－－随机取数，并赋值给自定义变量，用于生成机器码和对应的注册码文件。

n:=Random(1,9,1)

o:=Random(1,9,1)

p:=Random(1,9,1)

q:=Random(1,10,3)

r:=Random(2,10,1)

s:=Random(3,10,2)

t:=Random(4,10,1)

sn1:=GetWord(m, snword1)－－在对应字串中取得字符并赋值给自定义变量

sn3:=GetWord(n, snword2)

sn4:=GetWord(o, snword3)

sn7:=GetWord(p, snword4)

sn2:=GetNumber(q, snnumber)

sn5:=GetNumber(t, snnumber)

sn6:=GetNumber(s, snnumber)

sn8:=GetNumber(r, snnumber)

WriteExtFile(FileLocation^"\\hwnum.txt", m^n^o^p^q)--机器码信息
WriteExtFile(FileLocation^"\\hwsb.txt", r^s^t)--识别码信息
WriteExtFile(FileLocation^"\\hwreg.txt", sn1^sn2^sn3^sn4^sn5^sn6^sn7^sn8)--注册信息(软件序列号)

(注意：这儿的文件路径可以任意改变，文件名也可以改变，如可以改成扩展名为OCX或DLL的文件，这样更安全。在这儿之所以存为TXT文本，只是为了方便大家进行验证。还要注意的是，原始密码信息中的字符记得一定要用空格空开，否则Authorware会将其作为一个字串对待，切记莫忘！)

跳转图标中只需加一句goto语句即可。

4、双击“存在”群组图标。在打开的“存在”群组图标中拖放一个计算图标，将其命名为“读取注册信息”，在其中输入：

sntext:=ReadExtFile(FileLocation^"\hwreg.txt")－－读取原始注册码信息并赋值给变量sntext

hwreg:=ReadExtFile(FileLocation^"\hwreg.ocx")－－读取用户注册码输入信息并赋值给变量hwreg

if sntext=hwreg then －－判断确定流程走向

path1:=1

else

path1:=2

end if

作者：
责任编辑：mary

    本网注明：“来源：XXX”（非中原教育网）的作品，均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其具有的真实性负责。如因作品内容、版权和其它问题需要同本网联系的，请在30日内进行。