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取得线程句柄,返回线程句� ......
http://topic.csdn.net/t/20030306/11/1497896.html#
工程文件名：Chdsp.vbp
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\PWIN95\SYSTEM\\STDOLE2.TLB#OLE Automation
Module=Module1; ChDsp.bas
Form=ChDsp.frm
Startup="Form1"
He ......
正在开发小秘书系统并不断提高其智能水平,其中用到的是脚本支持的技术
虽然这部分不属于初学者使用,然而有些人想学这个东东,这里就发~~~布出去吧!
新建一个标准exe工程(Standard EXE);
"工程"(Project)-->"部件"(Components)
选定"Microsoft Script Control 1.0" ,位置是C:\WINDOWS\system32\msscript.ocx
添 ......
VB 字符串处理函数集
收藏
mid(字符串，从第几个开始，长度)
在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid("小欣无敌",1,3) 则返回 "小欣无"
instr(从第几个开始,字符串1,字符串2)
从规定的位置开始查找 ......
