VB实现软件试用期
大家都知道共享软件都有它们的试用期，即给你一个固定的期限免费使用。
应有的功能：
1）给定一个试用期限，在系统每次启动时会判断软件已经使用了几天，还有几天可以及启动的次数。
2）当系统日期被修改成往日的日期后，系统能自动判别，禁止修改日期 ，不予正常启动。
3)当试用期到，显示信息，不予启动程序。
大致算法
1)在系统第一次运行时，在一个隐蔽的地方(如“c:windows\system")建立一个用以记录系统信息的数据库文件如 日期date.mdb,使用一张表date,有三个字段first_time，last_times,times。其中fitst_time,为系统第一次启动时和日期，即使用期的第一天。last_time为系统最近一次启动的时间，而times为记录系统启动的次数。
2)系统每次启动会检测当前的日期同last_time做比较。如果当前和日期(如2000/09/30)比last_time(如2000/10/01)还归，说明系统的日期被推后，显示信息，不予启动系统。反之，则转入第三步。
3)取出数据库中的first_time,同当前的日期做减法运算，看所用的天数是否在使用天数是否在使用期限内。如果在，则转入第四步，否则显示信息，不予启动系统。
4)修改数据库的list_time字段为当前的日期，显示系统已经使 用的情况，正常启动系统。
好了，只要大家把date.mdb藏好了，不被发现就万事大吉了。而且你可以给这个数据库加上密码，然后把first_time.last_time.times的字段改个面目全非，就算有高手发现了数据库，破解了密码，他也不知道这个数据库是哪个软件的文件 。
程序源码
为你的VB项目建立一个工程,且在工程设置中，请以SUB main0启动程序。
Sub maim()
On ERROR GoTo error
Dim WS As Workspace
Dim DB As Database
Dim TD As Tabledef
Dim FLD As Field
Dim IDX As Index
Dim rd As Recordset
'系统检测是否有有date.mdb文件，如果没有，则是系统第一次启动。则建立之
If Dir(c:\wimdows\system\date.mdb")=""Then
'注意在开始，你要确定工程引用了Mi-crosoft da
相关文档：
VB下如何编写CRC校验程序
随着计算机技术的不断发展，在现代工业中，利用微机进行数据通讯的工业控制应用得也越来越广泛。由于传输距离、现场状况等诸多可能出现的因素影响，计算机与受控设备之间的通讯数据常会发生无法预测的错误。为了防止错误所带来的影响，一般在通讯时采取数据校验的办法，而循环冗余码校 ......
Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
OpenThread(THREAD_ALL_ACCESS, 1, 线程ID) '由线程ID取得线程句柄,返回线程句� ......
Option Explicit
Public Function ascii2Char(strInput As String) As String
Dim i As Integer
Dim strTemp As String
Dim nPos As Integer
Dim nValue As Integer
i = 1
nPos = InStr(i, strInput, "&#", vbTextCompare)
While (nPos > 0)
ascii2Char = ascii2Char + Left(st ......
该方法不需要使用API及第三方控件
这里使用的是VB的UserControl控件的AsyncRead方法
步骤如下:
1、添加一个用户控件，设置InvisibleAtRuntime属性为true，目的是运行时该控件不显示用户界面，就象Timer控件一样。
2、到自定义控件的代码窗口，添加如下代码
Option Explicit
'下载结果枚举
Public Enum Downloa ......
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As Long
Private Declare Function DrawMenu ......
