【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-用VB“破解”有时间限制的程序-计算机论文 - 其它论文的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

用VB“破解”有时间限制的程序-计算机论文 真诚为您服务 张胜 你是否经常碰到有时间限制的程序我等懒人尤其对此非凡反感可惜囊中羞涩只好反复修改其系统日期而使自己多用几次此软件——实在是辛劳于是使用“Anyday32”可惜也太麻烦了再后使用“时光倒流”也不好用而且——居然还有Bugs......看样子只好自己动手做“VB软件DIY”了。

    一、问题所在有时间限制的程序大都是依靠在启动过程中检测系统日期再与其记录的第一次使用日期进行对比检测是否试用期已到若试用期已到可能会在注册表中作一定的标记使下次程序不可用。

    二、解决问题我们一般可以通过修改系统时间来使用此类程序当然在其作过过期标志后可能此“大法”就无效了也有一些程序的检测细化到了小时那我们只能将时间也一块改了。

    三、DIY中的思路及注重事项我们可以在自己的程序中先修改系统日期再启动相应的有时间限制的程序过一段时间后再将系统日期改回来。

    注重在等待外部程序检测系统日期的等待过程中系统日期已经改变那么我们改回的系统日期将是错误的因此我们要进行一定的检测以防止此类错误的发生。

    四、开始软件DIY这里我们为方便控制使用Access数据库进行软件编制。

    数据库中表的设计 字段名 类型p 长度 备注 程序名称 Text 20 程序的标识以便于治理 启动程序 Text 255 实际启动的程序 启动日期 Date/Time 8 应改回的系统日期窗体及控件设计 名称 类型 设置 Form1 窗体 BorderStyle1 Command1 command Caption执行a mpR Command2 command Caption退出 Check1 CheckBoxCaption启动程序后自动关闭本软件 Timer1 Timer EnabledFalseInterval5000 Data1 DataDatabaseName数据库路径及名称 RecordSource数据表名称 CommonDialog1 CommonDialog Filter请选择您想要启动的程序 DBGrid1DBGrid AllowaddNewTrueAllowDeleteTrueDataSourceData1CommonDialog和DBGrid控件需要另外加载其中还需在DBGrid的属性页中进行一定的数据库挂接和设置要在其属性页中“布局”中的第二列的“按钮”选中。

    以下是本小软件的源代码OptionExplicit保存系统日期PrivateSubCommand1_ClickIfNot Data1.Recordset.EOFThen改系统时间CallShellExecutevbNullStringvbNullStringvbOK屏蔽其他操作Timer1.EnabledTrue关闭本系统EndSubPrivateSubDBGrid1_BeforeUpdateIfMsgBoxvbYesThenCancelTrue打开错误监测CommonDialog1.CancelErrorTrue打开系统对话框IfCommonDialog1.filename““ThenDBGrid 1.TextCommonDialog1.filename保存系统时间CallParameter防止在接近零时时的日期恢复错误DateOldDate恢复正常操作Timer1.EnabledFalse是否关闭本系统EndSubPrivateSubParameter查找相应的启动程序Data1.RecordSource“SelectFromWhere“Data1.RefreshIfNotThen Me.Hide设置关闭标志Command1_Click未找到处理MsgBox“没有此启动程序“16Me.Caption关闭EndIfEndIfEndSub五、小结本小软件可启动多个有时间限制的程序也可以通过命令参数一次启动一个程序可用于作相应的快捷方式让你放心去使用。

    程序编完了但还需你的完善和润色碰到问题自己解决——我是软件DIY人