VB应用一

原创 2007年10月16日 00:49:00
利用API中的“GetVolumeInformation”函数提取使用者机器的硬盘序列号为特征码,注册时提交此码,经过软件著作权人加以运算,给出注册码,最后软件使用人输入注册码完成整个注册过程(为使说明简单,本例中以特征码减101做为注册码)。

  新建一模块文件

  新建一模块文件,并将如下声明的语句和常量添加到Module1.Bas模块中:

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

Global GetVal As Long

  编程时需注意的是要将声明语句写在同一行中。

  窗体设置

  在Form1上添加2个文本框,Name属性分别设置为Text1、Text2;再添加1个按钮,Name属性设置为Command1。

  添加代码

  将如下程序代码添加到Form1的Form1_Load事件中:

Private Sub Form_Load()

 Dim TempStr1 As String * 256
 Dim TempStr2 As String * 256
 Dim TempLon1 As Long
 Dim TempLon2 As Long

 ………

‘读取是否注册的信息,如何控制这里不再说明

 ………

 Call GetVolumeInformation("C:/", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
 Text1.Text = GetVal ‘提取本机C盘的序列号至文本框一
End Sub


   将如下程序代码添加到Command1的Command1_Click事件中:

 
Private Sub Command1_Click()

 If Text2 〈〉 CStr(GetVal) Then
  MsgBox "注册码不正确,请认真检查输入是否正确。"
 Else
  MsgBox "你已经成功注册,请重新启动本软件。"
  ………
 (将正确注册的信息写入,使软件功能以后不受限制。具体方法依个人爱好进行设置。)
  ………
 End If
End Sub

 

VB 执行其他程序并等待其结束

VB 执行其他程序并等待其结束           近期在编写程序过程中用Winrar中的DOS程序rar.exe 对.Rar文件进行处理,并将结果写入一个文件,后面的程序将此文件用RichTex...
  • whchensir
  • whchensir
  • 2013年05月17日 22:14
  • 1353

VB6基本数据库应用(一):数据库基础

这是本套教程的第一课,讲述的是数据库结构的基础。学好数据库就必须了解清楚数据库的结构,其实并不困难。本套教程将从最基础的开始来讲述VB6的基础数据库操作。...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月24日 17:14
  • 9793

VB中对EXCEL的各种操作

全面控制 Excel 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Applica...
  • wzk456
  • wzk456
  • 2017年02月08日 15:20
  • 3767

VB6基本数据库应用(二):建立数据库

这是同样系列的第二篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/9451987。这一章将会讲述如何在Access中建立数据库。我将同...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月25日 00:32
  • 9528

VB6基本数据库应用(三):连接数据库与SQL语句的Select语句初步

同系列的第三篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/9455721。连接数据库与SQL语句的Select语句初步。这一章将介绍...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月27日 03:40
  • 15297

VB6.0 SP6 AOD应用笔记——第一部分

序:工作多年,一直是程序爱好者,真正动手编码其实才21天,纯新手一个。用的还是老古董的VB+SQLserver2000,唯一的原因就是网络上资源多,有啥不懂的好找。 ADO,ActiveX Data...
  • qq_29342407
  • qq_29342407
  • 2015年08月18日 22:39
  • 277

VB6.0属性过程详解(Property过程)[第二章:属性Set过程的应用(设计如字体属性的具有弹出式对话框的属性)]

这里是《VB6.0属性过程详解(Property过程) 》的第二章,如果你没有看过上面的这篇文章,你应该先去看看,除非你觉得你已经初步了解了属性过程的运作机制。             第二章:第一...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2011年08月02日 00:01
  • 11431

VB6基本数据库应用(七):多重条件搜索

同系列的第七篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/48402835 前文再续,书接上一回。很高兴又能说出这句话了。 第五章...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2015年09月12日 23:54
  • 2704

VB.net应用技巧3: UDP程序设计

本文介绍在VB.net中,进行UDP通讯的程序设计方法。     在VB.net中,进行UDP程序设计比较简单。程序除了初始化部分外,主要分为2个部分:一是发送数据的函数,另一个则需要启动一个进...
  • qingwufeiyang12346
  • qingwufeiyang12346
  • 2017年02月02日 13:01
  • 240

浅谈VB程序设计中的数据库应用

浅谈VB程序设计中的数据库应用         在Visual Basic程序设计中,数据库应用是一个非常重要、实用的内容,在以后的学习中我们肯定会大量使用Visual Basic编程开...
  • cjr15233661143
  • cjr15233661143
  • 2012年08月19日 09:47
  • 3451
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB应用一
举报原因:
原因补充:

(最多只允许输入30个字)