yxp 发表于 2008-6-10 22:42
本帖最后由 作者 于 2008-6-10 22:54:40 编辑;;默认密码为“yxp”，输入限制3次，（取自yxpxa@163.com， ...
你好，请问一下密码保存在哪里了？改了密码后新密码登陆不了，必须原密码，换个CAD就可以，不知道怎么清除。谢谢
yxp 发表于 2008-6-10 22:42
本帖最后由 作者 于 2008-6-10 22:54:40 编辑;;默认密码为“yxp”，输入限制3次，（取自yxpxa@163.com， ...
好像改了不对，一直是原始密码
这么一设置密码，领导和同事万一用你这台机器，岂不是很麻烦？
<p>楼主为什么不直接使用 windos 的屏保功能</p><p>我觉得实现有困难-->怎样使 AutoCAD 在无人操作时延迟 N 秒而激活“屏保”程序...</p>
本帖最后由 作者 于 2008-6-10 22:54:40 编辑 <br /><br /> <p>;;默认密码为“yxp”，输入限制3次，（取自<a href="mailto:yxpxa@163.com">yxpxa@163.com</a>，请自行修改）。离开时顺手输入 asdf 即可</p><p>(defun c:asdf( / wj prow pdat a b)<br/>(setvar "cmdecho" 0)<br/> (if (setq wj (findfile "psword.dcl")) T (cydcl))<br/> (if (setq wj (findfile "psword.dcl"))(progn (setq pdat (open wj "r")<br/> prow (read-line pdat) ) (close pdat)))<br/> (setq a (substr prow 11 3) b (atoi (substr prow 19 1))) <br/> (pword a b)<br/>)</p><p>(defun pword(ps m / abc n)<br/>(setq n 0) (if (> (strlen ps) 8) (setq ps (substr ps 1 8)))<br/>(while (if (/= (setq abc (getpass m n)) ps) (if (= abc "tcc") (tc_ca) T)<br/> (progn (princ " 验证成功!") Nil))<br/>(setq n(1+ n))(if (> n m)(tc_ca)))<br/>)</p><p>(defun getpass (ina nn / dcl_id pass )<br/> (setq dcl_id (load_dialog "psword.dcl"))<br/> (if (new_dialog "psword" dcl_id)<br/> (progn (mode_tile "star" 2)<br/> (if (= ina nn) (progn (set_tile "txt" " 警告!最后1次输入密码!")<br/> (mode_tile "ga_tc" 1))<br/> (if (>= nn 1)(set_tile "txt" (strcat " 错误,已输入 " (itoa nn) "次,剩余" (itoa (- ina nn)) "次" ))<br/> (set_tile "txt" (strcat "输错限制≤ " (itoa ina) "次,已登陆 " (itoa nn) "次"))))<br/> (action_tile "star" "(setq pass $value)")<br/> (action_tile "ga_dd" "(done_dialog 1)")<br/> (action_tile "ga_tc" "(tc_ka)")<br/> (start_dialog) (unload_dialog dcl_id)<br/> ))pass<br/>)<br/>(defun tc_ca()(command "quit" "y" ""))<br/>(defun tc_ka()(done_dialog 1)(setq pass "tcc"))<br/>(defun cydcl()<br/>(setq f_dcl (open "psword.dcl" "w"))<br/>(write-line "//程序开发<a href="mailto:yxpxa@163.com">yxpxa@163.com</a>" f_dcl)<br/>(write-line "psword: dialog {label = \"登陆验证\"; spacer_1; :row{spacer_0; " f_dcl)<br/>(write-line ":edit_box{label =\"请输入密码:\";key = \"star\";edit_width = 8;password_char = \"*\";edit_limit = 8;}spacer_0;}spacer_1;" f_dcl)<br/>(write-line ":row{:text{key=\"txt\";value=\"\";}}" f_dcl)<br/>(write-line ":row{:button {label = \"确定(&Y)\";alignment = centered;key = \"ga_dd\";fixed_width = true;is_default = true;} " f_dcl)<br/>(write-line ":button{label=\"退出(&Q)\";key = \"ga_tc\";alignment = centered;fixed_width = true;is_cancel = true;}}" f_dcl)<br/>(write-line ":spacer{fixed_height =true;}}" f_dcl)<br/>(close f_dcl))<br/>(princ)</p>
没有吧，只要win键+L不行么？
本帖最后由 作者 于 2008-6-11 23:24:40 编辑 <br /><br /> liminnet发表于2008-6-11 13:58:00static/image/common/back.gifyxp大哥,我要改密码在那修改一下呀,还有你的程序还需要DCL文件的吗?谢谢
<p>很好修改啊。仔细看，密码取自<a href="mailto:yxpxa@163.com"><strong><font color="#ff0000" size="5">yxp</font></strong>xa@16<strong><font color="#ff0000" size="5">3</font></strong>.com</a>，修改3次，你修改成你的163邮箱就行了啊，当然不要超过5个字。</p><p></p><p>这个lisp不需要DCL文件。 将代码 (defun s::startup () "命令" ) 加入acad.lsp可以在CAD启动时运行。</p><p>如果还不行，输入下面代码</p><p>命令: shell<br/>操作系统命令: (del (findfile "psword.dcl"))</p>
DCL的界面比较简单，你自己可以修改的华丽一些。
yxp真的很厉害，谢谢了