小弟不懂VF,我把它UNFOX,请VF高手帮忙看一下!
现有一个VF的程序,我把它UNFOX,找到里面的注册的语言代码
因为我不懂语言,只能看懂一个大概,请高手们帮忙分析一下!
注册界面是有机器码,然后输入注册码
代码如下:
确定按钮——
AAA = ;
PASSTOPASS(PADR(THISFORM.TEXT1.VALUE,4) + PADR(THISFORM.TEXT2.VALUE,4) + ;
PADR(THISFORM.TEXT3.VALUE,4))
IF AAA <> PADR(THISFORM.TEXT4.VALUE,4) + PADR(THISFORM.TEXT5.VALUE,4) + ;
PADR(THISFORM.TEXT6.VALUE,4)
MESSAGEBOX('注册未成功!',64,'进销存管理系统')
ELSE
MESSAGEBOX('注册成功!',64,'进销存管理系统')
WRITESERIALNO(AAA)
ENDIF
THISFORM.RELEASE
注册界面——
IF CHECKSERIALNO()
AAA = READSERIALNO()
thisform.TEXT4.VALUE = SUBSTR(AAA,1,4)
thisform.TEXT5.VALUE = SUBSTR(AAA,5,4)
thisform.TEXT6.VALUE = SUBSTR(AAA,9,4)
thisform.TEXT4.ENABLED = .F.
thisform.TEXT5.ENABLED = .F.
thisform.TEXT6.ENABLED = .F.
thisform.LABEL2.CAPTION = '您的软件序列号:'
thisform.LABEL3.CAPTION = ;
'注册成功,您已成为本软件的合法用户!'
thisform.确定1.VISIBLE = .F.
thisform.取消1.CAPTION = '确定(\<T)'
ENDIF
ASTRING = GETCURRENTSERIALNO()
thisform.TEXT1.VALUE = SUBSTR(ASTRING,1,4)
thisform.TEXT2.VALUE = SUBSTR(ASTRING,5,4)
thisform.TEXT3.VALUE = SUBSTR(ASTRING,9,4)
不知道是否能编注册机出来,如何编写,请大家多多帮忙了!
不胜感激~~~~
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课