registryget(gvar.regkey,"Serial",regstring!,ls_serial)
IF len(ls_serial) = 25 AND gvar.is_demo = FALSE THEN //7
ELSE //7
IF gvar.gb_dbconnected THEN //10
select sys_var_value INTO :ls_setupdate from sys_t_system where sys_var_id ='Sys_PrintFlag' USING sqlca;
IF len(ls_setupdate) > 0 THEN //15
IF daysafter(date(gfunc.pub_f_str_xor(ls_setupdate)),today()) > 30 THEN //16
messagebox(gvar.apptitle,"系统警告:~n~n30天试用期已过,请从供应商或本地代理商处获取正式版序列号以便继续试用,系统将中断退出!")
RETURN 1
END IF //16
END IF //15
END IF //10
RETURN 0
END IF //7
IF NOT gvar.gb_dbconnected THEN RETURN 0
IF gvar.is_network THEN //27
IF gefunc.of_hasp("login") <> "fail" THEN //28
IF mid(trim(gefunc.of_hasp("read")),1,25) = ls_serial THEN //29
gefunc.of_hasp("logout")
ELSE //29
gefunc.of_hasp("logout")
messagebox(gvar.apptitle,"系统警告:~n~n目前您使用系统的序列号是非法的,请从供应商或本地代理商处获取,系统将中断退出!")
RETURN 3
END IF //29
ELSE //28
RETURN 2
END IF //28
ELSE //27
IF mid(trim(gefunc.of_hasp("memoread")),1,25) = ls_serial THEN //41
ELSE //41
//SHU_ERROR:DEMO_SCRIPT_LIMIT.
IF daysafter(date(gfunc.pub_f_str_xor(ls_setupdate)),today()) > 30 THEN //16
messagebox(gvar.apptitle,"系统警告:~n~n30天试用期已过,请从供应商或本地代理商处获取正式版序列号以便继续试用,系统将中断退出!")
IF daysafter(date(gfunc.pub_f_str_xor(ls_setupdate)),today()) > 90 THEN //16
messagebox(gvar.apptitle,"系统警告:~n~n30天试用期已过,请从供应商或本地代理商处获取正式版序列号以便继续试用,系统将中断退出!")
IF daysafter(date(gfunc.pub_f_str_xor(ls_setupdate)),today()) > 30 THEN //16
messagebox(gvar.apptitle,"系统警告:~n~n30天试用期已过,请从供应商或本地代理商处获取正式版序列号以便继续试用,系统将中断退出!")
RETURN 1