TA的每日心情 | 慵懒 2011-2-8 15:12 |
---|
签到天数: 4 天 [LV.2]偶尔看看I
|
楼主 |
发表于 2009-2-27 21:58:00
|
显示全部楼层
不好意思,我今天在办公室测试过了,只能对大家说对不起,我也是被这个免狗补丁误导了。
现在仔细查看了下 hbposv6.exe ,发现要想突破前台站点数限制,只能从它着手。
给大家看下它的核对用户数的代码段: 希望有高手能从这方面入手。。。
string ls_str
string ls_serial
integer li_usercount
if not gvar.is_network then
if of_get_dbconnect_num() > 2 then
messagebox(gvar.apptitle,"单机版的[" + gvar.appname + "]系统的本机用户数不能超过 2 个!")
return false
end if
else
if len(gvar.registerno) > 8 then
li_usercount = integer(string(mod(integer(right(gvar.registerno,1)) + 6,10)) + string(mod(integer(left(gvar.registerno,1)) + 4,10)))
if of_get_dbconnect_num() > li_usercount then
messagebox(gvar.apptitle,"你使用的[" + gvar.appname + "]系统超过了用户数限制:" + string(li_usercount) + "!")
return false
end if
else
SELECT sys_var_value FROM t_sys_system WHERE Upper ( LTRIM ( RTRIM ( sys_var_id ) ) ) ='SERIALNO' using sqlca;
/* SQL Parameters List
0-> :ls_str
*/
if isnull(ls_str) then
ls_str = "0"
end if
li_usercount = long(ls_str)
if li_usercount = 0 then
li_usercount = 5
end if
if of_get_dbconnect_num() > li_usercount then
messagebox(gvar.apptitle,"当前你使用的[" + gvar.appname + "]系统网络版已经超过了用户数的限制 [" + string(li_usercount) + "],需要和供应商联系注册!~n编号:" + gvar.registerno)
return false
end if
end if
end if
return true |
|