VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: DreamonII

[首发原创]边干边写之四——刚写的一个注册机(开源)

[复制链接]
发表于 2007-9-8 06:46:48 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2007-9-8 09:41:10 | 显示全部楼层

呵呵
回复 支持 反对

使用道具 举报

发表于 2007-9-8 09:42:27 | 显示全部楼层
开原码支持!:) :) :)
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-8 09:56:33 | 显示全部楼层
再补充一点:

    刚刚有个网友问我怎么解除注册,这个方法我已经放在演示程序里了。请大家自己在Register演示程序的控钮事件中找。
    这个方法适用于程序卸载时使用。

调用注册机:
Private Sub Form_Load()
    If Not Register.CheckReg Then     '主程序中只需加入此行代码即可实现注册功能
        Unload Me
    Else
       '在此加入窗体Load事件所需处理的事件
    End If
End Sub

清除注册码(用于程序卸载时):
Private Sub cmd_RemoveReg_Click()   '用于测试时清除注册表中的注册码,
    If funRemoveSNFromReg Then      '正式发布软件时可删去该子程序
        MsgBox "注册码已删除,下次启动此程序将需要重新注册", vbOKOnly Or vbInformation, "注册码删除成功"
    End If
End Sub                             '并删除相关按钮

[ 本帖最后由 DreamonII 于 2007-9-8 09:57 编辑 ]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-8 14:08:25 | 显示全部楼层
刚在给自己的工程加注册机的时候又发现了新问题:
    如果用户选择不马上注册,程序有可能关闭不完全,检查了一下发现是funExit中一条语句的疏忽。改动了一下funExit函数:

'退出程序(显示提示信息并确保系统结束运行)
Public Function funExit(Optional Registed As Boolean = False) As Integer
    On Error GoTo lopErr        '打开错误陷阱
    Dim vResult As Integer      '定义返回值
    vResult = 0
   
    'vResult = 1 / 0       '错误陷阱测试
   
    '**          在此加入退出程序时要执行的清理操作
   
    If Not Registed Then
        End '结束程序
    Else
       '这里加入用户要执行的操作,无操作留空即可
       Exit Function
    End If
   
    funExit = vResult   '取消退出则
    Exit Function       '函数返回异常代码
   
lopErr:     '若出错则
    funExit = Err.Number    '返回出错代码
    MsgBox "程序退出时发生错误,错误代码:" & Err.Number & ",错误描述:" & Err.Description, vbOKOnly, "程序退出时出错"
    End
End Function

同时在CheckReg函数中把调用退出函数funExit的语句改为:funExit vResult即可。
回复 支持 反对

使用道具 举报

发表于 2007-9-8 18:33:33 | 显示全部楼层
原帖由 DreamonII 于 2007-9-8 15:35 发表
用了它以后发现我的工程保存时“权限被拒绝”~~ 不知道什么原因~~只好卸了~


关于二哥的VB源码之友2006
YFRegister.bmp
VFData.dat
把这两个文件删掉就可以了,它们存在与否不会对程序影响太大
VFData.dat
是存在自己存入的代码
YFRegister.bmp
是一个注册图
这两个文件删掉吧,删掉它就可以保存了
原来我写的程序很不规范。有了

[ 本帖最后由 icecept 于 2007-9-8 18:34 编辑 ]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-8 19:17:42 | 显示全部楼层
谢谢楼上~~ 我试下下~ 那个程序真的很实用,省去我好多麻烦,说实话,卸的时候真舍不得的~~

[ 本帖最后由 DreamonII 于 2007-9-8 19:28 编辑 ]

评分

参与人数 1威望 +2 收起 理由
zhangxl0451 + 2 我很赞同

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2007-9-8 20:43:26 | 显示全部楼层
IDE状态下一用就崩溃
奇怪的是
funCheckReg 的申明没有参数,而调用却有参数???????
在键盘事件里面,居然还编译的了,谁可以解释?
回复 支持 反对

使用道具 举报

发表于 2007-9-8 20:46:23 | 显示全部楼层
建议楼主最好在原始帖子上修改啊,不要总补充,补充的,本来已经很全面了,还补充什么?!
补充的文字,或修改的部分 !这样岂不是更好!
其实帖子质量很高,我也是鸡蛋里面挑骨头!O%O
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-8 20:48:47 | 显示全部楼层
原帖由 失去与等待 于 2007-9-8 20:43 发表
IDE状态下一用就崩溃
奇怪的是
funCheckReg 的申明没有参数,而调用却有参数???????
在键盘事件里面,居然还编译的了,谁可以解释?


我检查一下看看~~

这个东西发的有点急了,这两天经过一些实际往程序里添回注册机的实践,发现了不少没考虑到的问题。正在修补中,感谢楼上提出意见!我会把这些问题尽量弄好,然后早些出改良版。

我先去检查一下funCheckReg函数~~
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-8-19 22:39

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表