算法注册机编写扫盲---第五课
算法注册机编写扫盲---第五课
原创作者：我要[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()
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，就是它
End Sub
五、现在你打开VB6，新建一个执行文件模板，好，光标点一下上面说的大写A字母，然后回到模板上拉出一个框条来，呵，里面你看到的是什么，“label1”要的就是它，因为源码是这样写的啊！^_^
六、重复第五步，你又拉出了一个“label2”来，够了，源码就这2个，以后你可以用这个源码去制作更多的链接。这例用2个就行多了就等于是违反源码原意，哈，你一定没好果子吃了。
七、现在到属性窗口，就是右边的中间框。滚动下
八、最后用上面方法，再多拉出一个label3来，有用吗？有，这个你可以写上你想写的东西上去，比如，“我爱你，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
十二、哦，明白了，改的也不多嘛，卖什么关子啊，砖头，烂柿子，臭鸡蛋~~~~~~
十三、你确认成功地生成你想要的可执行文件了吧！接着来，再来
十四、继续，还是
Dim a As String
Dim t As String
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)
End Sub
十五、左看看右看看，明白了，这个东
十六、现在你打开VB6，新建一个执行文件模板，好，光标点一下“TextBox”，然后回到模板上拉出一个文本框Text1，再次到工具箱，点一下“CommandButton”，
十七、现在到属性窗口，就是右边的中间框。滚动下
十八、现在你就要将源码用复制粘贴的方法，将原码导入模板，还是不会做这步？哦，学生不用功，老师之罪过了！不过你
十九、来啊，点工具栏，文件 → 下拉菜单点“生成工程1.exe”。得，出来一个工程1的可执行文件，双击运行它看看，执行文件的标题栏里的文字是流动的，爽~~~~，看到“我爱DFCG，DFCG是我家！”的字眼，有点亲切感了~~~~~
二十、我踢，我不要看这个，我想看的就要“踢一下我要爽
二十一、还要不要，我
Private Sub Command1_Click()
GotoVal = Me.Height / 2
For Gointo = 1 To GotoVal
horiz:
Me.Height = 30
DoEvents
End
End Sub
二十二、好了，总算
二十二、本篇原创作者--我要[DFCG]，版权没有，人权我有，
我要[DFCG]编写于2004.2.04