关于百威软件到期的问题

yfgwzx

大虾帮帮忙如何解决????

nbxsxt

什么都不说，图也没有，就叫大家帮忙，想帮也帮不了～我觉得是楼主钱应该还欠着！！没付清！

PYbaby0393

原帖由 sjzlw 于 2009-2-23 21:26 发表
是不是这样，按到里面的组合键了
                                

哥们，
这个是按了什么键出来的呀？

tom1001

应该是试用版本吧，到期是正常的

nktdgs

原帖由 sjzlw 于 2009-2-23 21:26 发表
是不是这样，按到里面的组合键了
                                

请一下是什么组合键。

feitian

从网上搜一个ZCJ，应该就可以解决。

kemaiuser

原帖由 PYbaby0393 于 2009-4-10 13:27 发表

哥们，
这个是按了什么键出来的呀？

出现这个表明软件需要重置，具体是因为这个函数返回为假造成，大家看看就明白，很简单的，只要你是有那么一点点语法能力，那么你就不会问我是怎么回事了的,呵呵！

Public function boolean  wf_check (string as_txt);//Public function wf_check (string as_txt) returns boolean
//string as_txt
string ls_pass="659834891534"
integer li_ifor
integer li_num
integer li_tmp
string ls_newpass
string ls_today


ls_today = string(today(),"yymmdd")
ls_today = ls_today + ls_today + ls_today
FOR li_ifor = 1 TO 12
li_tmp += integer(mid(ls_today,li_ifor,1))
NEXT
li_tmp = mod(li_tmp,12)
ls_pass = mid(ls_pass,li_tmp + 1) + mid(ls_pass,1,li_tmp)
FOR li_ifor = 1 TO 12
ls_newpass = ls_newpass + string(mod(integer(mid(ls_pass,li_ifor,1)) + integer(mid(ls_today,li_ifor,1)),10))
NEXT
IF ls_newpass <> as_txt THEN //17
RETURN FALSE
END IF //17
RETURN TRUE

end function

kemaiuser

哦，不好意思，上面那个是因为站点发生变化的效验函数，因为两个地方非常相似，看错了，见谅。以下原因出现那个窗口：

   这里存在一个隐藏键：就是按住Ctrl+回车键。代码如下：

//key (keycode key,ulong keyflags) returns long [pbm_keydown]
//keycode key
//ulong keyflags
//long ancestorreturnvalue
string ls_txt
string ls_reg
string ls_tmpreg


CALL SUPER::key
IF key <> keyenter! THEN //2
RETURN
END IF //2
ls_reg = "22653"
ls_txt = "324"
ls_txt = "346243"
ls_reg = ls_reg + "45"
ls_txt = "4344"
ls_reg = ls_reg + "624"
ls_txt = "334"
ls_reg = ls_reg + "679042"
ls_txt = ""
ls_txt = trim(THIS.sle_1.text)
IF ls_txt = "" THEN //15
RETURN
END IF //15
IF ls_txt = ls_reg THEN //18
//gfunc.pub_f_put_sysvar("habs_sale",pub_f_str_xor("2003-05"))
//closewithreturn(THIS,"ok")
//ELSE
IF wf_isvalid(ls_txt) > 0 THEN //18
//pub_f_put_sysvar("habs_sale",ls_txt)
closewithreturn(THIS,"ok")
ELSE //18
close(THIS)
END IF //18
RETURN


加上下面这个函数你很轻易解决的了。

函数 wf_isvalid （）
//Public function wf_isvalid (ref string as_old) returns integer
//string as_old
string ls_txt
string ls_new
date ldt_old
integer li_num
integer li_ifor


IF len(as_old) < 10 THEN //1
RETURN -1
END IF //1
ls_txt = mid(as_old,6,1)
li_num = integer(ls_txt)
ls_txt = as_old
ls_txt = mid(ls_txt,7,1) + mid(ls_txt,1,1) + mid(ls_txt,8,1) + mid(ls_txt,3,1) + mid(ls_txt,5,1) + mid(ls_txt,9,1) + mid(ls_txt,2,1) + mid(ls_txt,4,1)
FOR li_ifor = 1 TO 8
ls_new = ls_new + string(mod(integer(mid(ls_txt,li_ifor,1)) + li_num,10))
NEXT
ls_new = left(ls_new,4) + "-" + mid(ls_new,5,2) + "-" + mid(ls_new,7,2)
IF  NOT (isdate(ls_new)) THEN //15
RETURN -1
END IF //15
ldt_old = date(ls_new)
//IF ldt_old > date("2005-04-20") THEN //19
//as_old = pub_f_str_xor(ls_new)
// RETURN 1
//END IF //19
RETURN -1


   注意我注释掉的语句不要去管他，很简单的，之所以这样贴出来，是想大家都好好去研究研究一下，本来很简单很简单，如果一味的得到直接给结果，那我认为交流是没有任何意义的。相信来这个论坛的绝大多数人应该可以看明白，否则...

mhsjm

多谢楼主苦心，学习了，你的热心会激发大家好好去研究研究

stallcom

用钱能解决的问题就不是问题了