《奥运邮集》软件代码介绍——VB6初学之友 - 编程论坛

#52

jrs1232008-06-03 10:23

窗体上设置与QQ交谈钮

3、与QQ交谈——这也有多种方法，下面介绍二种：
    （1）第一种方法：（需加载 windows script host object model，见图,打开“工程”菜单,点“引用”）代码如下：
     Dim iw1 As New WshShell '声明
    Private Sub command1_Click() '点击此钮与QQ交谈
    On Error Resume Next
    If getQQpath = "" Then
        MsgBox "你没有安装QQ，请先安装QQ", vbOKOnly Or vbInformation, Me.Caption
        Exit Sub
    Else
        iw1.Run "tencent://message/?uin=791465768&Site=jrs123&Menu=yes" '791465768是QQ号，jrs123是昵称
    End If
    End Sub
    '判断是否安装QQ
    Private Function getQQpath() As String
    getQQpath = iw1.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
    End Function
    （2）第二种方法：加二个文件和一组代码。需要的二个文件（见下图），一组代码如下：
    Private Sub Command1_Click() '点击此钮与QQ交谈
    Dim TempName As String
    TempName = App.Path & "\timwp tencent://message/?uin=791465768&Site=jrs123&Menu=yes"""
    Shell TempName, vbHide
    End Sub

#53

jrs1232008-06-05 11:46

生成免安装的绿色软件

十三、软件的形成与图标的制作
    1、软件的形成：
    由于奥运邮集各届都是生成exe文件格式，可独立运行的，而且所有控件都是VB6自带的，可以制作成不用安装的“绿色”exe软件。
    各届exe文件的形成很简单，调试完成后，打开“文件”菜单，选“生成xj1.exe（K）”即可（见图）。
    将各届的exe文件放在一个“奥运邮集”文件夹内，再将该文件夹压缩为“奥运邮集.rar”文件，就可以上传、下载了。

#54

jrs1232008-06-06 07:07

图标制作小软件与使用方法

2、图标的制作：
    历届的奥运会是在不同的国家举办，所以图标可用各国的国旗，这里要用到的是一个制作图标软件（见附件）。下面向大家介绍该软件的使用方法：
    （1）双击“图标生成器Version”，启动后如图1；
    （2）用鼠标从旗子的左上右拖到右下角，放开鼠标键后弹出图2；
    （3）点“导出”钮，弹出图3，若不作任何修改，就存盘；
    （4）选图标格式：点存盘后弹出图4，一般选8位256色；
     至此，完成了国旗图标的制作。

#55

jrs1232008-06-07 12:03

软件的新图标

3、exe选用新的图标：
    有了新图标之后，从程序中调用它，形成exe文件后就有新图标了。具体方法如下：
    （1）在窗体form1的属性中选中icon项，点击此项右边钮（见新图标1）；
    （2）在弹出的新图标对话框中选一个图标（见新图标2），点打开后即完成新图标制作了；

#56

jrs1232008-06-07 12:25

《奥运邮集》软件全体成员

完成后的《奥运邮集》软件全体成员：

#57

jrs1232008-06-07 13:35

十四、软件的注册与加密原理

1、软件注册过程：
    （1）用户ID号——《奥运邮集》的1-10届未加密，11-29届采取了加密措施，双击未注册的任一届（如第十一届）软件，会弹出软件注册框（见图1）。
    在框内显示了“用户ID”号；
    （2）注册机根据“用户ID号”——将用户ID号复制到注册机的相应框内，点击“获取注册码”钮，即在“注册码”框内出现该软件只有在该电脑上使用的注册码（见图2）。
    （3）软件完成注册——将“注册码”放到图1的“注册码”框内，再点“注册”钮，即完成了该软件的注册。（只要注册一届，其余的不用再注册）
    这种一台电脑一个注册码的方式称之为“电子注册”。若将注册后的软件再复制到另一台电脑上无法通用，而同样还需要另外注册的。

#58

jrs1232008-06-07 13:40

2、加密原理：

（1）加密原理：本软件是采用AES加密，这是一个高效快捷用于军事加密等级的类模块，可以在任何工程中使用。AES（128位字区大小，使用128、192或者256位密钥长度）原是用在美国政府进行保护机密（使用192或者256位密钥）和绝密文件的算法。不同于其他区段加密算法，AES是在VB中是最有效率的，因为加密一个区段能被使用唯一的CopyMemory，异或操作和一些位掩码；
（2）使用范围：本软件加密方式任何的程序都可以使用，只需将一个窗口模块和一个类模块加入，同时改一下密码钥匙就可以了；
（3）该加密方式，密码与电脑特征码绑定，实现了电子注册方式，即一台电脑一个注册码；

#59

jrs1232008-06-07 13:43

结束语

《奥运邮集》软件采用的代码介绍完了，作为软件本身还有许多不足之处，有待进一步改进。但作为向VB6初学者介绍这些代码，也只是提供一些“积木”而已，一些代码偶也是“知其然，不知其所以然”，缺少“注释”，请见谅。
    作为一项软件产品，完成之后，就想对自己的权宜有所保护，所以采取了“加密”措施，这也是人之常情。当您看完这篇帖子之后，就会觉得这个加密是没必要了，所有的源码也不过如此。
    欢迎到“奥运邮集”网站下载全套软件，提出您的宝贵意见！

    2008年是北京奥运年。北京加油，中国加油！

[[it] 本帖最后由 jrs123 于 2008-6-9 08:35 编辑 [/it]]

#60

fsxs2008-06-10 23:27

是在佩服楼主的勇气和毅力

花了2年时间完成了自己的心愿

我搜索了楼主所发表的帖子，从初始VB到现在完成自己的杰作，太让人佩服了！

我也是学机械的，VB也是自学的，刚过了2级，希望也能像楼主一样编出自己自豪的软件。

LZ我加你QQ了，以后还多多指教啊
我QQ：240071719 jln

#61

jxyga1112008-06-11 09:26

辛苦你了樓主

#62

google2008-06-15 11:15

顶一下

#63

jrs1232008-07-25 22:22

为了方便您的浏览，本文各节主要内容所在页提示如下

：
1----为什么要学编程；选学什么编程软件？如何开始

学习？初识VB6；
2----工程、工具、工具条；本软件的积木项目；本软

件的窗体页面结构（超长页面及其滚动条制作）；窗体

的居中问题；
3----软件的多工程结构；介绍几个有用的小程序代码

；副页面设计；与网站的链接代码；
4----相邻exe工程之间的转接；系统退出的不同方式；
5----多工程结构小结；悬浮窗代码介绍；用鼠标滚轮

放大缩小窗体的代码；用户如何在页面中留言；抓图软

件介绍；图像格式转换介绍；在软件窗体上发布信息；

与QQ交谈；
6----生成免安装软件；制作小图标软件；软件的注册

与加密原理；

#64

moxi882008-07-26 01:05

精神可嘉!

#65

sfp52008-07-26 09:10

看一下你的作品怎么样

#66

jrs1232008-08-26 21:24

补充:软件的最新信息发布

《奥运邮集》软件采用了两种方式来发布最新信息，一种是在启动软件后，右下角会弹出信息框；一种是在窗体上开一个信息小窗口；
现将后一种方式介绍如下：
1.在《奥运邮集》网站上放一个xj1.txt文本文件;
2.在软件的程序中引进部件:Microsoft Internet Transfer Control 6.0;
3.在窗体上拖一个Text1"窗口";(发布的信息将显示在此窗口内)
4.在程序中添加下面有关内容:
Private Sub Form_Load()
Text1.Text = Inet1.OpenURL("http://www.)
End Sub
5.将需要发布的信息内容放在网站的"xj1.txt"文本文件中即可;
在软件的信息"窗口"内就会显示你所发布的信息.
如果您想看实例，欢迎到奥运邮集网站下载软件

#67

牧童王2011-01-21 22:50

谢谢楼主。我下载了奥运邮票软件，不知如何运用，学学看吧。

#68

jrs1232011-01-26 17:14

回复 67楼牧童王

欢迎对《奥运邮集》软件多提宝贵意见。
一年后又要迎来新的一届奥运会。新版《奥运邮集》也将和大家见面。目前软件还有很多不足之处，也希望在这里得到大家的指点和帮助。

#69

soclp2011-07-24 12:45

努力学习！

#70

jrs1232012-07-21 19:37

童鞋们好！不知不觉时间过去四年了，虽然四年来没有再用VB6编写软件，但那时的学习时光也真值得留念；

#71

Shui_yue2012-08-03 18:28

VB编程与应用(电大)29讲，这个视频教程不错，通俗易懂