给个文件的下载地址。。。里面有文件。。。。看一下。
http://www.goodwawa.com/soft/POSObj.rar
有兴趣的朋友帮我个忙，看一下。试用30天。怎么延长到90到或更长。。。！
---------------------------------------------------------------------------

//Public function pub_f_check_lock (none) returns integer
string ls_date
string ls_version
string ls_regkey
string ls_serial
string ls_register
string ls_str
string ls_ret
string ls_date_key
string ls_appname
string ls_setupdate
date ld_exprise
integer li_days

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.

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！