pb10中实现时间限制和倒计时

今天终于要写博客了，先把以前在论坛上发布的贴子整理一下吧。

 

主要是读取文件时间和写入文件时间的问题，将下面的代码存为uo_file_function.sru文件，再在pbl下点右键选import，将其导入，可实现读取文件和写入文件时间的问题，网上的方法有点小错误，我已将其改好。
然后在某个事件中调用方法如下：
先声明  uo_file_function uo_1 //声明读写文件时间的对象
DateTime creationtime,lastaccesstime,lastwritetime //文件创建时间，最近访问时间，最后修改时间
再调用  uo_1.of_file_get_times( ls_pathname, creationtime, lastaccesstime, lastwritetime)    //读取文件时间
写入时间同上

 

forward global type uo_file_function from nonvisualobject end type type systemtime from structure within uo_file_function end type type filetime from structure within uo_file_function end type type security_attributes from structure within uo_file_function end type end forward type SYSTEMTIME from structure unsignedinteger wYear unsignedinteger wMonth unsignedinteger wDayOfWeek unsignedinteger wDay unsignedinteger wHour unsignedinteger wMinute unsignedinteger wSecond unsignedinteger wMilliseconds end type type FILETIME from structure unsignedlong dwLowDateTime unsignedlong dwHighDateTime end type type SECURITY_ATTRIBUTES from structure unsignedlong nLength unsignedlong lpSecurityDescriptor boolean bInheritHandle end type global type uo_file_function from nonvisualobject autoinstantiate end type type prototypes Private Function boolean FileTimeToSystemTime(ref FILETIME lpFileTime, ref SYSTEMTIME lpSystemTime) Library "kernel32.dll" Private Function boolean SystemTimeToFileTime(ref SYSTEMTIME lpSystemTime, ref FILETIME lpFileTime) Library "kernel32.dll" Private Function boolean GetFileTime(ulong hFile, ref FILETIME lpCreationTime,ref FILETIME lpLastAccessTime, ref FILETIME lpLastWriteTime) Library "kernel32.dll" Private Function boolean SetFileTime(ulong hFile, ref FILETIME lpCreationTime,ref FILETIME lpLastAccessTime, ref FILETIME lpLastWriteTime) Library "kernel32.dll" Private Function ulong GetLastError() Library "kernel32.dll" Private Function long CreateFile(ref string lpFileName, ulong dwDesiredAccess, ulong dwShareMode,ref SECURITY_ATTRIBUTES lpSecurityAttributes, ulong dwCreationDisposition, ulong dwFlagsAndAttributes, ulong hTemplateFile) Library "kernel32.dll" Alias for "CreateFileA;ANSI" Private Function boolean FileTimeToLocalFileTime(ref FILETIME lpFileTime, ref FILETIME lpLocalFileTime) Library "kernel32.dll" Private Function boolean LocalFileTimeToFileTime(ref FILETIME lpLocalFileTime, ref FILETIME lpFileTime) Library "kernel32.dll" Private Function boolean CloseHandle(ulong hObject) Library "kernel32.dll" end prototypes type variables constant string sDT_REMOVABLE = "REMOVABLE!" constant string sDT_FIXED = "FIXED!" constant string sDT_REMOTE = "REMOTE!" constant string sDT_CDROM = "CDROM!" constant string sDT_RAMDISK = "RAMDISK!" end variables forward prototypes public function boolean of_file_get_times (string astr_pathname, ref datetime adt_creationtime, ref datetime adt_lastaccesstime, ref datetime adt_lastwritetime) public function boolean of_file_set_times (string astr_pathname, datetime adt_creationtime, datetime adt_lastaccesstime, datetime adt_lastwritetime) end prototypes public function boolean of_file_get_times (string astr_pathname, ref datetime adt_creationtime, ref datetime adt_lastaccesstime, ref datetime adt_lastwritetime);constant ulong GENERIC_READ = 2147483648 constant ulong GENERIC_WRITE = 1073741824 constant ulong FILE_SHARE_READ = 1 constant ulong FILE_SHARE_WRITE = 2 constant ulong OPEN_EXISTING = 3 constant ulong FILE_ATTRIBUTE_ARCHIVE = 32 ulong lul_Null;SetNull(lul_Null) long ll_Handle, ll_ErrorCode SECURITY_ATTRIBUTES lsa_Temp FILETIME lft_CreationTime, lft_LastAccessTime, lft_LastWriteTime, lft_Temp SYSTEMTIME lst_CreationTime, lst_LastAccessTime, lst_LastWriteTime lsa_Temp.nLength = 12; lsa_Temp.lpSecurityDescriptor = lul_Null ll_Handle = CreateFile(astr_PathName, GENERIC_READ, FILE_SHARE_READ + FILE_SHARE_WRITE, lsa_Temp, OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE, lul_NULL) If ll_Handle < 1 Then Return False If Not GetFileTime(ll_Handle, lft_CreationTime, lft_LastAccessTime, lft_LastWriteTime) Then CloseHandle(ll_Handle) Return False End If CloseHandle(ll_Handle) If Not FileTimeToLocalFileTime(lft_CreationTime, lft_Temp) Then Return False If Not FileTimeToSystemTime(lft_Temp, lst_CreationTime) Then Return False If Not FileTimeToLocalFileTime(lft_LastAccessTime, lft_Temp) Then Return False If Not FileTimeToSystemTime(lft_Temp, lst_LastAccessTime) Then Return False If Not FileTimeToLocalFileTime(lft_LastWriteTime, lft_Temp) Then Return False If Not FileTimeToSystemTime(lft_Temp, lst_LastWriteTime) Then Return False adt_CreationTime = DateTime(Date(string(lst_CreationTime.wYear) + "-" + string(lst_CreationTime.wMonth) + "-" + string(lst_CreationTime.wDay)), Time(string(lst_CreationTime.wHour) + ":" + string(lst_CreationTime.wMinute) + ":" + string(lst_CreationTime.wSecond) + ":" + string(lst_CreationTime.wMilliseconds))) adt_LastAccessTime = DateTime(Date(string(lst_LastAccessTime.wYear) + "-" + string(lst_LastAccessTime.wMonth) + "-" + string(lst_LastAccessTime.wDay)), Time(string(lst_LastAccessTime.wHour) + ":" + string(lst_LastAccessTime.wMinute) + ":" + string(lst_LastAccessTime.wSecond) + ":" + string(lst_LastAccessTime.wMilliseconds))) adt_LastWriteTime = DateTime(Date(string(lst_LastWriteTime.wYear) + "-" + string(lst_LastWriteTime.wMonth) + "-" + string(lst_LastWriteTime.wDay)), Time(string(lst_LastWriteTime.wHour) + ":" + string(lst_LastWriteTime.wMinute) + ":" + string(lst_LastWriteTime.wSecond) + ":" + string(lst_LastWriteTime.wMilliseconds))) Return True end function

public function boolean of_file_set_times (string astr_pathname, datetime adt_creationtime, datetime adt_lastaccesstime, datetime adt_lastwritetime);constant ulong GENERIC_READ = 2147483648 constant ulong GENERIC_WRITE = 1073741824 constant ulong FILE_SHARE_READ = 1 constant ulong FILE_SHARE_WRITE = 2 constant ulong OPEN_EXISTING = 3 constant ulong FILE_ATTRIBUTE_ARCHIVE = 32 ulong lul_Null;SetNull(lul_Null) long ll_Handle, ll_ErrorCode SECURITY_ATTRIBUTES lsa_Temp FILETIME lft_CreationTime, lft_LastAccessTime, lft_LastWriteTime, lft_Temp SYSTEMTIME lst_CreationTime, lst_LastAccessTime, lst_LastWriteTime lsa_Temp.nLength = 12; lsa_Temp.lpSecurityDescriptor = lul_Null lst_CreationTime.wYear = Year(Date(adt_CreationTime)) lst_CreationTime.wMonth = Month(Date(adt_CreationTime)) lst_CreationTime.wDayOfWeek = DayNumber(Date(adt_CreationTime)) - 1 lst_CreationTime.wDay = Day(Date(adt_CreationTime)) lst_CreationTime.wHour = Hour(Time(adt_CreationTime)) lst_CreationTime.wMinute = Minute(Time(adt_CreationTime)) lst_CreationTime.wSecond = Second(Time(adt_CreationTime)) lst_CreationTime.wMilliseconds = 0 If Not SystemTimeToFileTime(lst_CreationTime, lft_Temp) Then Return False If Not LocalFileTimeToFileTime(lft_Temp, lft_CreationTime) Then Return False lst_LastAccessTime.wYear = Year(Date(adt_LastAccessTime)) lst_LastAccessTime.wMonth = Month(Date(adt_LastAccessTime)) lst_LastAccessTime.wDayOfWeek = DayNumber(Date(adt_LastAccessTime)) - 1 lst_LastAccessTime.wDay = Day(Date(adt_LastAccessTime)) lst_LastAccessTime.wHour = Hour(Time(adt_LastAccessTime)) lst_LastAccessTime.wMinute = Minute(Time(adt_LastAccessTime)) lst_LastAccessTime.wSecond = Second(Time(adt_LastAccessTime)) lst_LastAccessTime.wMilliseconds = 0 If Not SystemTimeToFileTime(lst_LastAccessTime, lft_Temp) Then Return False If Not LocalFileTimeToFileTime(lft_Temp, lft_LastAccessTime) Then Return False lst_LastWriteTime.wYear = Year(Date(adt_LastWriteTime)) lst_LastWriteTime.wMonth = Month(Date(adt_LastWriteTime)) lst_LastWriteTime.wDayOfWeek = DayNumber(Date(adt_LastWriteTime)) - 1 lst_LastWriteTime.wDay = Day(Date(adt_LastWriteTime)) lst_LastWriteTime.wHour = Hour(Time(adt_LastWriteTime)) lst_LastWriteTime.wMinute = Minute(Time(adt_LastWriteTime)) lst_LastWriteTime.wSecond = Second(Time(adt_LastWriteTime)) lst_LastWriteTime.wMilliseconds = 0 If Not SystemTimeToFileTime(lst_LastWriteTime, lft_Temp) Then Return False If Not LocalFileTimeToFileTime(lft_Temp, lft_LastWriteTime) Then Return False ll_Handle = CreateFile(astr_PathName, GENERIC_WRITE, FILE_SHARE_READ + FILE_SHARE_WRITE, lsa_Temp, OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE, lul_NULL) If ll_Handle < 1 Then Return False If Not SetFileTime(ll_Handle, lft_CreationTime, lft_LastAccessTime, lft_LastWriteTime) Then CloseHandle(ll_Handle) Return False End If CloseHandle(ll_Handle) Return True end function on uo_file_function.create call super::create TriggerEvent( this, "constructor" ) end on on uo_file_function.destroy TriggerEvent( this, "destructor" ) call super::destroy end on

 

下面是我研究的如何实现时间限制（倒计时，防止别人修改机器时间，以及过期时间）的方法：

 

在应用对象的Instance变量声明如下： uo_file_function uo_1 //声明读写文件时间的对象 DateTime creationtime,lastaccesstime,lastwritetime //文件创建时间，最近访问时间，最后修改时间 定义一个全局systemtime结构： unsignedinteger year unsignedinteger month unsignedinteger dayofweek unsignedinteger day unsignedinteger hour unsignedinteger minute unsignedinteger second unsignedinteger millisecond 全局外部函数声明如下： SUBROUTINE GetLocalTime(ref systemtime systimerptr) Library "kernel32.dll" 在open事件中代码如下： string ls_pathname Long i,j,ll_days,ll_installdateno,ll_days_count_down,ll_days_diff,ll_pos[2] Blob lbb_installdate[2],lbb_recentdate String ls_installdate[2] Date ldate_installdate[2],ldate_recentdate,ldate_systime,ldate_sysdate systemtime lstr_systemtime //读取文件时间 ls_pathname=GetCurrentDirectory() + "/test.exe" if Not FileExists(ls_pathname) then //检查test.exe是否存在 Messagebox('提示','你不能更改test.exe的文件名！',Exclamation!,OK!) Halt end if uo_1.of_file_get_times( ls_pathname, creationtime, lastaccesstime, lastwritetime) //读取文件时间 //检查软件最近一次运行的时间 RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion","Modify",RegString!,"") //建立主键Modify RegistryGet("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Modify","recenttime",RegBinary!,lbb_recentdate) //读取最近一次运行的时间 if string(lbb_recentdate) <>'' then ldate_recentdate=date(f_decrypt(string(lbb_recentdate),0419)) //解密字符串 GetLocalTime(lstr_systemtime) //取本地系统时间 ldate_systime=date(string(lstr_systemtime.year)+'-'+string(lstr_systemtime.month)+'-'+string(lstr_systemtime.day)) //本地系统时间 if ldate_recentdate>ldate_systime then Messagebox('错误','系统错误，你无权使用本系统！',Exclamation!,OK!) Halt Close end if //时间限制，倒计时 ll_days_count_down=0 //倒计时天数,如果为0不使用倒计时 //设置安装时间 RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE","Modify",RegString!,"") //建立主键Modify RegistryGet("HKEY_LOCAL_MACHINE/SOFTWARE/Modify","Installtime",RegBinary!,lbb_installdate[1]) //读取安装时间1 RegistryGet("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Modify","Installtime",RegBinary!,lbb_installdate[2]) //读取安装时间2 ls_installdate[1]=string(lbb_installdate[1]) ls_installdate[2]=string(lbb_installdate[2]) for i=1 to 2 if ls_installdate[i] <>'' then ls_installdate[i]=f_decrypt(ls_installdate[i],0419) //解密字符串 next if ls_installdate[1] <>'' and ls_installdate[2] <>'' then for i=1 to 2 ldate_installdate[i]=date(ls_installdate[i]) next ll_days=DaysAfter(ldate_installdate[1],ldate_installdate[2]) if ll_days>0 then RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Modify","Installtime",RegBinary!,lbb_installdate[1]) //写入安装时间1 elseif ll_days <0 then RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/Modify","Installtime",RegBinary!,lbb_installdate[2]) //写入安装时间2 end if if ll_days_count_down <>0 then if ll_days>0 then ll_days_diff=DaysAfter(ldate_installdate[1],ldate_systime) elseif ll_days <0 then ll_days_diff=DaysAfter(ldate_installdate[2],ldate_systime) end if if ll_days_diff>ll_days_count_down then Messagebox('倒计时','倒计时'+string(ll_days_count_down)+'天完毕，系统停止运行！',Exclamation!,OK!) Halt Close end if end if else if ls_installdate[1]='' then ll_installdateno=1 if ls_installdate[2]='' then ll_installdateno=2 if ls_installdate[1]='' and ls_installdate[2]='' then ll_installdateno=3 ls_installdate[1]=f_encrypt(string(date(creationtime)),0419) //安装时间1，加密字符串 ls_installdate[2]=ls_installdate[1] //安装时间2 for i=1 to 2 lbb_installdate[i]=blob(ls_installdate[i]) next if ll_installdateno=1 or ll_installdateno=3 then RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/Modify","Installtime",RegBinary!,lbb_installdate[1]) //写入安装时间1 end if if ll_installdateno=2 or ll_installdateno=3 then RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Modify","Installtime",RegBinary!,lbb_installdate[2]) //写入安装时间2 end if end if //给系统日期赋值 ldate_sysdate=2009-10-31 IF Today()>ldate_sysdate THEN MessageBox('日期过期','当前的日期已经超过'+string(ldate_sysdate),Exclamation!,OK!) Halt Close END IF 在close事件中代码如下： string ls_pathname Date ldate_lastacctime,ldate_recentdate,ldate_systime blob lbb_recentdate systemtime lstr_systemtime //检查软件最近一次运行的时间 ls_pathname= GetCurrentDirectory() + "/test.exe" uo_1.of_file_get_times( ls_pathname, creationtime, lastaccesstime, lastwritetime) //取文件时间 ldate_lastacctime=date(lastaccesstime) //取最后访问时间 GetLocalTime(lstr_systemtime) //取本地系统时间 ldate_systime=date(string(lstr_systemtime.year)+'-'+string(lstr_systemtime.month)+'-'+string(lstr_systemtime.day)) //本地系统时间 RegistryGet("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Modify","recenttime",RegBinary!,lbb_recentdate) //读取最近一次运行的时间 if string(lbb_recentdate) <>'' then ldate_recentdate=date(f_decrypt(string(lbb_recentdate),0419)) //解密字符串 if string(lbb_recentdate)='' then lbb_recentdate=blob(f_encrypt(string(ldate_lastacctime),0419) ) //加密字符串 RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Modify","recenttime",RegBinary!,lbb_recentdate) //写入最近一次运行的时间 end if if ldate_systime>ldate_recentdate then lbb_recentdate=blob(f_encrypt(string(ldate_systime),0419)) //加密字符串 RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Modify","recenttime",RegBinary!,lbb_recentdate) //写入最近一次运行的时间 end if 这样即可，注意上面的f_encrypt和f_decrypt函数我并没有给大家，可以任找一段加密函数，密钥是0419,或者将加解密函数去掉。

 

以上原理来自《加密与解密 第二版》第5章 5.3.2 时间限制一节，179页，由于PDF文档不能选取文本，所以我也就不摘抄了。上面源码绝对可靠，经调试通过。