算法注册机编写扫盲---第三课

逆天

原创作者：我要[DFCG]  
======================================================================  

注：接第二课，我又来了，这次又得“胡说八道”题内话多多的了！为何？这样才可以更详细的说出个其所以然，还得保证你的心情轻松啊！好，来了，下面就以实例接着来吧。 ^_^  

一、看过前2课的朋友，现在你已经完全可以自己编译出难度为中的算法注册机，再难点的，比如，大数的，移位的，带小数点多位注册机，你还是不行，因为要应用相应的函数和控件什么的，这是后话，已经不是本篇的扫盲范围了，在以后的日子，你有需要时，可以找书本翻翻，找懂的朋友问一下，只要你虚心，应该是完全可以再进一步的。  

二、写到这里，有点晕头，用文字去表达这一课的内容可真有点范难的，真想随便做个动画就带过此课，哎，不过已经是开始了2课，没理由就这样不负责任的作出放弃的啊！嗯，好吧，我尽量写得哆嗦一点，详尽一点，希望大家真的能消化并看得明了就是！更因为我也菜的不行啊！ ^_^  

三、先以编写最简单的算法注册机开始，说一下窗体的构建及应用吧！看这个之前，最好请先回看上2课的内容，作为加深一下认识，要不下面的你可能就不知我在说的是什么了。  

四、现在启动VB6，打开你的白板模板（此后就用模板表示，注意），上2课说过VB6左侧的功能应用，到这里该说说右面的功能应用，要不你是写不出个有个性的工程文件的。这就是要哆嗦的地方，我的用词已经尽量地不用专有名词，用最好理解的方式去表达了。嘿嘿~~ 是我要[DFCG]你自己不懂吧！哦，也许！ ^_^  

五、好，看到没有，VB6的界面靠右侧，有一功能框，里面想要的都有，怎么用它啊？一般写注册机之类的小东东，你不需要全知道它的每一个选单的作用，这在你以后应用中一定会明了的，只不过是没个开始或没人引路而已。  

六、第一个框是工程框，你要构建你的个性化窗体，这里的你一定要认识它。因为以后你要添加个性化的说明或其它功能添加时，你就得用它去添加窗体等。好，你已经启动了你的模板，那这个框里就可见有“Form1 (Form1)”，用右键点出下拉菜单看看，里面有好多的选项，但其它的先别去看或暂时并不需要它。你看到里面有一个选项“添加”，光标放到这个行上，会出来选单的，看看：  

添加窗体  
添加MDI窗体  
添加模块  
添加类模块  
添加用户控件  
添加属性页  
添加用户文档  
添加文件  

七、看好了，上面的几个选项，从扫盲角度来说，只要知道第一个就够了，“添加窗体”的功能，这个能让你在以后的注册机上另添加上只属于你的说明文件或相片之类的。  

八、第二个框（属性框）看看，里面一大串由E文注明的应用选项，晕啊，我不懂E文怎办了啊？没事，只要记好常用的就行。看看：  

Alignment ← 所选项目的位置，有：左对齐，右对齐，居中  
Appearance  
AutoRedraw  
BackColor ← 改变特定文本框或窗体的颜色  
BorderStyle ← 改变标题栏的功能项，如“最小化”、“最大化”的开启关闭  
Caption ← 改变标题栏名称的地方，如写入“XXX注册机”  
ClipControls  
ControlBox  
DrawMode  
DrawStyle  
DrawWidth  
Enabled  
FillColor  
FillStyle  
Font ← 改变写入字体的大小等设定  
FontTransparen  
ForeColor ← 改变写入字体的颜色  
HasDC  
Height  
HelpContexID  
Icon ← 添加你的个性化图标，也就是注册机的图标了  
KeyPreview  
Left  
LinkMode  
LinkTopic  
MaxButton  
MDIChild  
MinButton  
MouseIcon  
MousePointer  
Moveable  
NegotiateMenus  
OLEDropMode  
Palette  
PeletteMode  
Picture ← 添加个性化图片，就是注册机窗体里的图版，需要配合左侧工具应用  
RightToLeft  
ScaleHeight  
ScaleLeft  
ScaleMode  
ScaleTop  
ScaleWidth  
ShowInTaskbar  
StartUpPositio ← 设定你的注册机弹出时所处窗口的位置  
Tag  
Top  
Visible  
WhatsThisButto  
WhatsThisHelp  
Width  
windowSTate  

九、初学的只要知道这些足够，还有我没注明的，以后再说或你查一下书本就会知道的。好了，现在开始我们的工作吧！我用甲、乙的方式表达，看下面：  

甲：我已经打开模板了，下一步怎样做？  
乙：好，将光标放右下角点上，然后向内线拖进去看看。  
甲：哦，这个作法就是改变整个窗体的外观大小的，明白了  
乙：再来，将光标放右边线上，横着向两边拉一下看看又有什么变化  
甲：明白，这一步是改变窗体的宽度  
乙：嗯，再将光标放底线，上下方向的拉一下看看  
甲：清楚了，这一步是改变窗体的高度  
乙：要使窗体个性化，你还要添加你的个性化图版的  
甲：怎样去做？  
乙：好，回看左侧，“ab”上面有个图形的图标，点一下，回到模板拉出一个框  
甲：做好了，我还要做什么才能将我的图片添加进去呢？  
乙：现在你得回到右侧的属性选项，找到“Picture”，点一下里面的“...”  
甲：呵，这里需要我指定图片的路径，明白了，我自己来做这一步吧  
乙：哈，这就以为成功了？这样添加图片以后，你会平添出一个多余的外框的啊  
甲：对哦，怎办？  
乙：找到属性“BorderStyle”点一下，里面有2个选项，你就选“None”吧  
甲：嗯，对的，现在的图片框好看多了  
乙：还有一个没说，就是你的文本框还没有指引名称，如“机器码”这些字眼  
甲：就是，只有2个框，旁边没文字，人家的有“注册码”、“机器码”什么的  
乙：现在就教你，左侧“ab”旁边的大写字母“A”，你看到没有？  
甲：找到了  
乙：点一下它，回到模板上，在你想加入文字信息的地方拉出一个框来看看  
甲：出来一个名叫“Label1”的框框，这就是了吗？  
乙：是的，现在你到属性窗，找到“Caption”，它的右边是什么提示  
甲：哦，就是“Label1”，是将这个“Label1”修改到我想要的文字信息吗？  
乙：是的，将它改写为“机器码”，你看看窗口这个的变化先  
甲：哈，我的文本框的靠左位置，现在有了“机器码”这几个字了！有点爽  
乙：嗯，在你的文本框2相同操作，写入“注册码”，你的注册机有血有肉了  
甲：懂了，其它的功能键要改用自己的文字信息时，与这操作一样。  
乙：还需要加上你的特别说明或叫关于什么的新窗体才算完美的。  
甲：啊？怎个加法？  
乙：回头看第六步，右键打开“添加窗体”，弹出的窗口点“打开”  
甲：出来一个新的窗体，右边工程多了一个“Form2 (Form2)”  
乙：左侧“ab”旁边的大写字母“A”，点一下后，先在新窗体拉出一个框  
甲：好了  
乙：那就可以在里面写入你想写的相关文字内容，如“关于”什么之类的  
甲：好，模板已经成功写好了，再点“ab”下面的按钮，建一个“退出”功能键  
乙：现在你去生成一个工程文件看看，是不是有点酷酷的感觉。 ^_^  
甲：哈，有点成功感，因为是亲手做的，但是只能看不能用啊？  
乙：嗯，现在你要有源码，除非你懂编程，否则还是用“我要”VB源码吧  
甲：好啊，在哪？  
乙：到此已差不多了，结束对话，看下一步吧！ ^_^  

十、现在引用上一课我给出的VB算法注册机源码来继续课程，看下面：  

Private Sub Command1_Click()  
strtmp = Text1.Text  
a = Val(Text1.Text)  
b = a + a  
c = b + &H15E0E9C  
d = c * &H4  
e = c + d  
Text2.Text = e  
End Sub  
Private Sub Command2_Click()  
     Form2.Show  
End Sub  
Private Sub Command3_Click()  
Unload Me  
End Sub  

十一、仔细看看，这段源码里多了几句在里面，解析如下：  

Command1 ← 第一个拉出来的功能按钮（你可以定名为“算号”）  
Command2 ← 第二个拉出来的功能按钮（你可以定名为“关于”）  
Command3 ← 第三个拉出来的功能按钮（你可以定名为“退出”）  

Private Sub Command2_Click()  
     Form2.Show  
End Sub  
这一段就是调用第二个窗体的语句，就是点“关于”时，弹出另一个属于你的说明窗体。  

Private Sub Command3_Click()  
Unload Me  
End Sub  
这一段就是调用关闭窗体的语句，就是点“退出”时，工程也同时退出  

十二、看明白就试一下去，别老看不动手的，这样你是永远写不出你的注册机，窗体的构建都说过了，源码也放上来了，怎么去做？回看上一课，应该怎样添加这段源码进VB里，不用再说明了吧！因为你一定比我聪明啊！  

十三、我做几个附件随课文一起发，你可以应用一下我的注册机模板，对比一下你做出来的，在功能和使用上是否一致，是的话，恭喜你，你成功了！  

十四、我说老大，你的注册机模板好看啊，我为何出来的不是这个样子的啊？哈，先学走路再学跳高跳远才是你的根本。以后的课，我也许会继续教你用手或利用控件去生成更好看的窗体的模板，但这因个人喜好而有所不同，所以这已经超出本扫盲课程的范围了！ ^_^  

十五、好了！大家还记得我写过一个crackMe给初学的朋友练手的吗？这个东东是明码还是唯一的，本来就没写注册机的必要，但当时有朋友觉得需要，所以我就写了一个。现在回过去，要写这种注册机可以分2个方式，都能达到显示出注册码的效果。  

十六、尊重原crackMe的算法的话（这个你得一定有这个良好习惯了），你可以这样写，看下面是由这个crackMe的算法所写的VB源码：  

Private Sub Command1_Click()  
strtmp = Text1.Text  
a = 22222  
b = a + 33333  
c = b * 12345  
d = c - 617271605  
Text1.Text = d  
End Sub  

十七、这段源码生成的注册机，你点一下算号键，在注册码框就出来真注册码。窗体的外观之类的，这里不再重复，回看上面课文吧！你的一定别与我相同。哈，免得有人骂你盗版了啊！ ^_^  

十八、回头再说，这个crackMe是明码和唯一的，有朋友说，没必要与算法结合写注册机，只要达到显出注册码就行。好，这下就应该教你学会应用VB6的退出时弹出窗口功能了。看下面源码：  

Private Sub Command1_Click()  
MsgBox "68554870" & Chr(10), vbOKOnly + vbInformation, "注册码"  
End  
End Sub  

十九、现在将你的Command1功能按钮改名为“算号”，启动这个注册机看看，你就点一下“算号”键，哈，弹出一个名为“注册码”的窗口，里面你看到的是什么东东，呵，就是一串数字，这就是注册码了！是哦，这样够直接简单的！  

二十、好！应该打住了，第三课所提到的我做了样板，大家需要的就一起下载回去研究。也得让你去消化一下的吧！下一课我继续讲怎样去写简单的crackMe，或许再教你写出你的个性化名片之类的小东东。至于在注册机添加音乐和特殊的外观窗体，这不在扫盲范围，你们去找高手老大们好了，我菜的实在不行了！ ^_^  

二十一、还要不要下一课，要的跟帖顶帖，看帖不回我看不起你，因为你不尊重我的劳动啊！我也是人，我也会累的吧！晕，谁的鞋子啊，别啊，我闪~~~  

二十二、本篇原创作者--我要[DFCG]，版权没有，人权我有 ^_^ 所以凡转此帖的友站及各路朋友兄弟们，必注明此文出自DFCG组织及我要[DFCG]原创为先决条件，否则谢绝转帖转载。网路本一家，但总不至于没个出处明示的吧！感谢你的阅读！

0519

学习
谢谢！

tmg99

学习
谢谢！

gaoqi

xuexi  xuexi