[求助]：请教如果让输入的数字显示为"*"号?

kevinchan · 发表于 2005-6-15 15:27:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[PHP]
(defun test ()
(setq pass1 (getreal "\nPlease Enter the Password:"))
(if (= pass1 1314520)
(test1)
(alert "The Password is Wrong!!")
)
)
[/PHP]

请教如果让输入的数字显示为"*"号?
前提是不用DCL对话框,而直接在命令栏显示.

lijiao · 发表于 2005-6-15 16:44:28

可以用GRREAD函数来获取键盘的输入，但在命令行显示的效果不太令人满意，不如在状态栏显示更容易控制显示效果。

kevinchan · 发表于 2005-6-15 18:16:07

在不同的电脑系统中 (例如, DOS 与 UNIX), 由于处理的方式不同。所以, grreed 函数将返回不同的结果。

有没有别的好办法,如果显示在状态栏应该怎么写?

xyp1964 · 发表于 2005-6-15 19:23:54

用对话框：
命令：PASS-TEST
密码：XDCAD

kevinchan · 发表于 2005-6-15 20:16:03

最初由 xyp1964 发布
[B]用对话框：
命令：PASS-TEST
密码：XDCAD [/B]

哈哈,xyp1964做得很漂亮啊.
但我说的前提是不用对话框,而是用在命令栏或者状态栏显示"*"号.
用DCL的话倒是比较简单,看看能不能不用对话框呢?
[PHP]
   :edit_box{
      label="输入密码";
      key="kpass";
      allow_accept=true;
      password_char="*";
   }
[/PHP]

xyp1964 · 发表于 2005-6-16 01:05:36

可能吗？好像不行！
命令行输入的东东连自己都不认识，真是那样就太好了！呵呵……

lijiao · 发表于 2005-6-16 08:22:38

在状态栏中显示用GRTEXT函数，但是不要在命令行中有显示，除了GRREAD函数跟踪键盘，好像没有其它函数；我没用过其它操作系统，如果真是在其它操作系统中，GRREAD的返回值不同，你可以针对各个操作系统，做几个版本。

kevinchan · 发表于 2005-6-16 10:00:01

最初由 lijiao 发布
[B]在状态栏中显示用GRTEXT函数，但是不要在命令行中有显示，除了GRREAD函数跟踪键盘，好像没有其它函数；我没用过其它操作系统，如果真是在其它操作系统中，GRREAD的返回值不同，你可以针对各个操作系统，做几个版本。 [/B]

能写个范例么?

xyp1964 · 发表于 2005-6-16 12:57:51

采纳lijiao的主意，基本成功，不过什么都不显示！呵呵……
先试试，如果没有问题，马上公布源码！
命令：PASS-TEST2
密码：XDCAD

lijiao · 发表于 2005-6-16 13:13:10

最初由 xyp1964 发布
[B]采纳lijiao的主意，基本成功。
先试试，如果没有问题，马上公布源码！
命令：PASS-TEST2
密码：XDCAD [/B]

好家伙，太快了吧。

[FONT=courier new]
(defun getpass (pas / BIAOJI KEY PASNEW)
(setvar "COORDS" 0)
(setq biaoji t
pasnew ""
)
(while biaoji
(setq key (grread t 4 0))
(if (= 2 (car key))
(progn
(setq key (cadr key))
(cond
((= key 13)
(setq biaoji nil)
(grtext)
);;;回车确认
((= key 8)
(if (> (strlen pasnew) 0)
(setq pasnew (substr pasnew 1 (- (strlen pasnew) 1)))
)
(grtext -2
(substr "*******************************************************"
1
(strlen pasnew)
)
)
);;;退格
(t
(if (/= (strlen pas) (strlen pasnew))
(setq pasnew (strcat pasnew (chr key)))
)
(grtext -2
(substr "*******************************************************"
1
(strlen pasnew)
)
)
)
)
)
)
)
(setvar "COORDS" 1)
(wcmatch pas pasnew)
)
[/FONT]

[FONT=courier new] 
(defun getpass (pas / BIAOJI KEY PASNEW) 
  (setvar "COORDS" 0) 
  (setq        biaoji t 
        pasnew "" 
  ) 
  (while biaoji 
    (setq key (grread t 4 0)) 
    (if        (= 2 (car key)) 
      (progn 
        (setq key (cadr key)) 
        (cond 
          ((= key 13) 
           (setq biaoji nil) 
           (grtext) 
          );;;回车确认 
          ((= key 8) 
           (if (> (strlen pasnew) 0) 
             (setq pasnew (substr pasnew 1 (- (strlen pasnew) 1))) 
           ) 
           (grtext -2 
                   (substr "*******************************************************" 
                           1 
                           (strlen pasnew) 
                   ) 
           ) 
          );;;退格 
          (t 
           (if (/= (strlen pas) (strlen pasnew)) 
             (setq pasnew (strcat pasnew (chr key))) 
           ) 
           (grtext -2 
                   (substr "*******************************************************" 
                           1 
                           (strlen pasnew) 
                   ) 
           ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (setvar "COORDS" 1) 
  (wcmatch pas pasnew) 
) 
  [/FONT]

它山之石 · 发表于 2005-6-16 13:31:26

不显示在命令行中，又有谁会去注意这几个显示在状态行中的小小的＊呢？还是用对话框来的醒目且简单。
俺觉得意义不大。当然做为一个编程练习是可以的。

xyp1964 · 发表于 2005-6-16 14:12:25

用户自定义程序密码：

[FONT=courier new]
(defun PASS-CHECK (#pass / #passtext n p1)
(princ "\n请输入密码(注意大小写) : ")
(setq n (strlen #pass)
#passtext ""
)
(repeat n
(setq p1 (grread nil 2 2)
#passtext (strcat #passtext (chr (cadr p1)))
)
)
(if (/= #passtext #pass)
(progn
(alert "\n密码错误，程序终止!")
(exit)
)
)
)[/FONT]

范例：
[php]
(PASS-CHECK "XDCad")
(PASS-CHECK "XdCaD")
(PASS-CHECK "kevinchan")
……
[/php]

kevinchan · 发表于 2005-6-16 20:40:21

记得啵浪鼓发了一个在命令栏显示"*"号的程序,不知道是如何实现的?
http://www.xdcad.net/forum/showt ... 1945436#post1945436

xyp1964 · 发表于 2005-6-16 21:08:28

只需增加(princ"*")：

kevinchan · 发表于 2005-6-16 22:06:55

不错!两位斑竹又教了偶一招,谢谢!

[求助] [求助]：请教如果让输入的数字显示为"*"号?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

密码程序

账号		自动登录	找回密码
密码			立即注册