- UID
- 7905
注册时间2006-2-9
阅读权限10
最后登录1970-1-1
周游历练
该用户从未签到
|
发表于 2009-4-5 21:44:30
|
显示全部楼层
不是FOXLOCK,是NC的玩意儿!
declare integer GetSerialNumber in "DiskSerial.dll" integer, string @
lnserialnumber = SPACE(40)
= GETSERIALNUMBER(0,@LNSERIALNUMBER)
disk_s = LEFT(ALLTRIM(LNSERIALNUMBER),LEN(ALLTRIM(LNSERIALNUMBER))-1)
d_v = ""
disk_n = ""
for i = 1 to LEN(DISK_S)
d_v = RIGHT(LEFT(DISK_S,I),1)
if ASC(D_V) >= 65 .and. ASC(D_V) <= 90
disk_n = DISK_N+ALLTRIM(STR(ASC(D_V)))
else
disk_n = DISK_N+D_V
endif
endfor
disk_n = UPPER(ALLTRIM(DISK_N))
clear dlls
if EMPTY(DISK_N) = .t.
disk_n = "1983754567891354468"
endif
select 0
use "sysdata\system.dbf"
select "system"
replace reg with DISK_N
sys_rereg = SYSTEM.rereg
[ 本帖最后由 newsoft88 于 2009-4-5 21:47 编辑 ] |
|