- 积分
- 273
- 明经币
- 个
- 注册时间
- 2024-4-2
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
1.新手小白,想把原程序的弹窗去掉,直接程序里面跳过输入注册码部分, 研究了半天没研究明白 求大神指点
原程序是 弹窗,获取mac地址, 然后输入 注册码 12345678
(DEFUN REGISTER( / ADDRESS S_N ID SDT FLAG SN1 SN2 SN3 REGOK ) (VL-LOAD-COM ) (DEFUN GETDATA() (setq ADDRESS (GET_TILE "mac" )) (setq S_N (GET_TILE "sn" )) ) (setq STD 0) (setq FLAG T) (setq SN1 nil) (setq SN2 nil) (setq SN3 nil) (setq ADDRESS "00-00-00-00-00-00") (setq S_N "") (setq ID (LOAD_DIALOG "Reg.DCL" )) (if (< ID 0 ) (PROGN (if (= MENU-FILE-ROOT nil ) (PROGN (GETROOT ) )) (setq ID (LOAD_DIALOG (STRCAT MENU-FILE-ROOT "\\fas\\Reg.DCL" ) )) (if (< ID 0 ) (PROGN (PRINC "load_dialog reg.dcl fail ,exit" ) )) )) (while (and (AND FLAG (NOT (< ID 0 ) ) ) ) (if (NOT (NEW_DIALOG "reg" ID ) ) (PROGN (PRINC "open reg.dcl fail ,exit" ) )) (SET_TILE "mac" ADDRESS ) (SET_TILE "sn" S_N ) (ACTION_TILE "pick" "(set_tile \"mac\" (getmac))" ) (ACTION_TILE "accept" "(getdata) (done_dialog 1)" ) (ACTION_TILE "cancel" "(done_dialog -1)" ) (setq SDT (START_DIALOG )) (if (> SDT 0 ) (PROGN (if (= ADDRESS "00-00-00-00-00-00" ) (PROGN (ALERT "mac address is wrong,reget it" ) )(PROGN (setq SN1 (CHMAC ADDRESS )) (setq SN2 (JGSN S_N )) (if (= SN2 nil ) (PROGN (ALERT "S/N is wrong, reput it" ) )(PROGN (setq SN2 (STRCAT SN2 (OVERDUEDATE S_N ) )) )) )) (if (AND (/= SN1 nil ) (/= SN2 nil ) ) (PROGN (setq SN3 (CREATE_SN SN1 SN2 "add" )) (setq REGOK (WT_REG SN3 S_N )) (if REGOK (PROGN (setq FLAG nil) (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\AutoMenu" "regcount" REGOK ) (ALERT "register successfully" ) )) )) )(PROGN (setq FLAG nil) )) ) (UNLOAD_DIALOG ID ) REGOK )
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
x
评分
-
查看全部评分
|