• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • 用VB制作注册软件的方法

      我自己制作的一个注册软件,希望能给大家带来帮助

      Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

      Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

      ''此模块的作用是检测用程序所在机器C盘序列号并存入一个加密后的文本文件yibao.ini中,

      ''在每次运行时检测C盘序列号并与加密文本文件中的相应值进行比较如果不符提示用户进行注册

      Public Reg_C As String

      Public Reg_Key As Long

      Public Jia_Mi_File As String

      Public Jia_Mi_Char As String

      Public Fso As New FileSystemObject

      Public Ctf As TextStream

      Public Function Jia_Mi_Txt()

      Reg_C = Abs(GetSerialNumber("c:\"))

      If Dir(App.Path & "\yibao.ini") = "" Then

      ''建立一个文本文件

      Open App.Path & "\yibao.ini" For Output As #1

      Print #1, "00000000"

      Close #1

      End If

      Jia_Mi_File = App.Path & "\yibao.ini"

      Set Fso = CreateObject("Scripting.FileSystemObject")

      Set Ctf = Fso.OpenTextFile(Jia_Mi_File, 1) ''建立 TextStream 对象 CTF

      Jia_Mi_Char = ""

      Do While Ctf.AtEndOfStream <> True

      Jia_Mi_Char = Jia_Mi_Char & Chr(58 Xor Asc(Ctf.Read(1)))

      Loop

      Ctf.Close

      Set Ctf = Nothing

      If Jia_Mi_Char <> Int(Reg_C * 18 / 22 * 16 / 19) Then

      ''显示注册对话框

      Dialog.Show 1

      End If

      End Function

      ''Text2.Text = Len(Reg_C)

      Function GetSerialNumber(sroot As String) As Long

      Dim lserialnum As Long

      Dim r As Long

      Dim strlabel As String, strtype As String

      strlabel = String$(255, Chr$(0))

      strtype = String$(255, Chr$(0))

      r = GetVolumeInformation(sroot, strlabel, Len(strlabel), lserialnum, 0, 0, strtype, Len(strtype))

      GetSerialNumber = lserialnum

      ''在 strLabel 中为磁盘卷标

      ''在 strType 中为文件系统类型

      End Function

      ''此部分为程序加密处理模块,

      ASP.NET中Cookie编程的基础知识
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

      负责将C盘的卷标读并转换成数字

      ''对这串数字与58进行异或处理,得到一个加密的字符串写入yibao.ini中

      ''在每次运行时与文档中的加密后字符串进行反解密比较,不成功提示用户进行注册

      ASP.NET中Cookie编程的基础知识
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

    • 0
    • 0
    • 0
    • 63
    • 单栏布局 侧栏位置: