编写注册机算法的方法

算法注册机编写扫盲---第五课
原创作者：我要[DFCG]
=================================================================================

注：接第四课，我又来了，这次想多余话都没有了。来！接着来吧。 ^_^

这个课程一共写了五课，总算可以做一个总结或叫完结了！怎么，意尤未尽？没法，我要[DFCG]菜的不行的，只是将一些个人的所谓经验或心得拿来献丑而已，装酷了啊！砖头，烂柿子，臭鸡蛋一起掷过来了吧！先别啊，我还得说完再走的，你别赶我行不行了，我晕~~~~~~~~~
=================================================================================

一、到这里，应该说些什么内容呢？真的有点晕，以中级的来看，该说的都好象说了吧！还有什么好说的，想想~~~

二、给些学习的方法吧！多试多练不就是了？还有说头的吗？有，还是坐下来看完这第五课吧！

三、学着自已编写一个属于你的程式，看下面源码：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF0000
Label1.FontSize = 9
Label2.ForeColor = &HFF0000
Label2.FontSize = 9
End Sub

Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontSize = 10
Label1.ForeColor = &HC0&
End Sub

Private Sub label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.FontSize = 10
Label2.ForeColor = &HC0&
End Sub

Private Sub label1_Click()
ShellExecute 0, "open", "http://218.63.244.68:1010/ckkd/index.php", vbNullString, vbNullString, 0
End Sub

Private Sub label2_Click()
ShellExecute 0, "open", "http://dfcg.con.cn/", vbNullString, vbNullString, 0
End Sub

四、上面的词句，如果你对网页制作有那丁点认识也会看得明白的，看不懂？没事，复制到粘帖你总不至于也不会吧！好，因为网上有不小好的源码，所以这次我先上源码再接着说整个的框架。在源码里看，晕晕的不知所其言，关键你要看着源码要写出一个可执行的程式来，我作几个引点解释：

Private Sub label1_Click() ← 这label1是？知道它就可应用源码自如了
ShellExecute 0, "open", "http://218.63.244.68:1010/ckkd/index.php", vbNullString, vbNullString, 0
End Sub

Private Sub label2_Click() ← 工具箱（左边竖框）有个大写字母A，就是它
ShellExecute 0, "open", "http://dfcg.con.cn/", vbNullString, vbNullString, 0
End Sub

五、现在你打开VB6，新建一个执行文件模板，好，光标点一下上面说的大写A字母，然后回到模板上拉出一个框条来，呵，里面你看到的是什么，“label1”要的就是它，因为源码是这样写的啊！^_^

六、重复第五步，你又拉出了一个“label2”来，够了，源码就这2个，以后你可以用这个源码去制作更多的链接。这例用2个就行多了就等于是违反源码原意，哈，你一定没好果子吃了。

七、现在到属性窗口，就是右边的中间框。滚动下拉找到“Caption”，往右看看，label1放在那里了，知道怎样去做了吧！对，改写它，让它显示你所要的信息，以这个源码为例，这里改写为“DFCG官方论坛”，回模板看看，已经改写好了，光标放label2，同样的操作，改写为“DFCG短域名”。嗯，差不多要成功了，你现在用你的审美眼光，去布置好你的模板，加图片啊，改模板外观啊什么的，别急，慢着来，你一定会设计出一个好看的外观来的。

八、最后用上面方法，再多拉出一个label3来，有用吗？有，这个你可以写上你想写的东西上去，比如，“我爱你，DFCG！”^_^

九、好，现在你就要将源码用复制粘贴的方法，将原码导入模板，不会做这步？哦，读书不用功，回头由第一课开始再看吧！

十、嗯！都做好了，坐下来，抽杆烟。对，我每一步都做对的，那等什么，来啊，点工具栏，文件 → 下拉菜单点“生成工程1.exe”。当，出来了一个叫工程1的可执行文件，双击运行它看看，哈，你的设计完美吧？不管了，点一下上面的“DFCG官方论坛”，哦，打开的网页就是DFCG官方论坛，再点“DFCG短域名”，打开的也是DFCG官方论坛。成功了，这就是成功了啊，以后你只要将链接的地址改成你想去的就行。 &_^

十一、我说老大，我一个是网址一个是邮箱你这个就不行了吧？对哦，怎么改写源码达到目的呢？嘿嘿，我先喝杯茶。来了，看下面：

Private Sub label1_Click()
ShellExecute 0, "open", "http://218.63.244.68:1010/ckkd/index.php", vbNullString, vbNullString, 0
End Sub

Private Sub label2_Click()
ShellExecute 0, "open", "mailto:bobyhua@163.com", vbNullString, vbNullString, 0
End Sub

十二、哦，明白了，改的也不多嘛，卖什么关子啊，砖头，烂柿子，臭鸡蛋~~~~~~

十三、你确认成功地生成你想要的可执行文件了吧！接着来，再来个好玩的东东。不行，我还没做出来啊，晕，回头重做，反正我是成功了，不信？我传2个上来你玩玩。^_^

十四、继续，还是用反式方法来教，因为你已经是中级的了，看下面源码：

Dim a As String
Dim t As String
Dim b As Integer
Dim I As Integer
Private Sub Command1_Click()
CheckAgain
End Sub
Private Sub Form_Load()
CheckAgain
End Sub
Private Sub Timer1_Timer()
t = Left(a, b)
Form1.Caption = t
b = b + 1
If b > I Then b = 0
End Sub
Sub CheckAgain()
a = Text1.Text
I = Len(a)
b = 0
End Sub


十五、左看看右看看，明白了，这个东东只需要用一个按钮Command1，一个控件Timer1，再就是一个文本框Text1，看不出来？回去看我前面的课程去。下面就动手去应用一下这个源码吧！

十六、现在你打开VB6，新建一个执行文件模板，好，光标点一下“TextBox”，然后回到模板上拉出一个文本框Text1，再次到工具箱，点一下“CommandButton”，并回到模板上拉出一个按钮Command1，还是同样的方式，放入控件Timer1。好，现在这个框架就行了，你就得又用上你的审美眼光，设计一个你高兴我满意的外见来吧！（按钮Command1可改名为“重新扫描”）

十七、现在到属性窗口，就是右边的中间框。滚动下拉找到“Text”，嗯，“我要”说过的，这里可以改成想要的信息，好，我就写上“我爱DFCG，DFCG是我家！”。有点肉麻~~~ 别啊，谁的鞋子飞过来了~~~~

十八、现在你就要将源码用复制粘贴的方法，将原码导入模板，还是不会做这步？哦，学生不用功，老师之罪过了！不过你好象应该从头开始学啊？！想想还是你的错，嘿嘿！@_@

十九、来啊，点工具栏，文件 → 下拉菜单点“生成工程1.exe”。得，出来一个工程1的可执行文件，双击运行它看看，执行文件的标题栏里的文字是流动的，爽~~~~，看到“我爱DFCG，DFCG是我家！”的字眼，有点亲切感了~~~~~

二十、我踢，我不要看这个，我想看的就要“踢一下我要爽爽^_^”这个信息，不是吧，这都行啊，没法，教到这步了，我不说你也会了吧，文本框写上“踢一下我要爽爽^_^”，点一下按钮，这下你成了，不过我在哭你知道吗？因为你在踢老师啊！&_&

二十一、还要不要，我的网名叫“我要”，那好，再来一个源码，不过只是源码，你自己去做出一个可执行文件看看就知道是什么东东来的了。权当复习吧！看下面：

Private Sub Command1_Click()
GotoVal = Me.Height / 2
For Gointo = 1 To GotoVal
DoEvents
Me.Height = Me.Height - 10
If Me.Height <= 11 Then GoTo horiz
Next Gointo
horiz:
Me.Height = 30
GotoVal = Me.Width / 2
For Gointo = 1 To GotoVal
DoEvents
Me.Width = Me.Width - 10
If Me.Width <= 11 Then End
Next Gointo
End
End Sub

二十二、好了，总算写完五课了！前段时间是由于内部问题及年关私事加一起，忙个不可开交，现在论坛重架成功，春节也过去。时间有点松动就赶紧写完这第五课，累啊，兄弟们，此文结束时，我要[DFCG]在此请大家以后多多支持DFCG，在网路上宣传一下DFCG，就是对我等老莱的最好回报了！^_^

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


我要[DFCG]编写于2004.2.04

本文地址：http://www.45fan.com/a/question/73870.html