网络凯子 发表于 2008-6-1 11:15:48

给我一个输入密码窗的代码

就是个维护工具,进入要输入密码, 最好是有几种方法,我想很多新手,都很想知道哈,麻烦, 高手们喽

[ 本帖最后由 网络凯子 于 2008-6-5 13:03 编辑 ]

漠北雪~狼 发表于 2008-6-2 17:16:32

$pwd = InputBox("", "请输入密码", "", "*",50,50)
If $pwd = "123456" Then MsgBox(0,0,"对了")

Hardy 发表于 2008-6-2 20:57:13

版主说得好简单明了.

孤天一日 发表于 2008-6-2 22:12:29

;运行时验证密码
$R_PPW = IniRead(@ScriptDir&"\Main.ini", "MySafe", "PPW", "0")
If $R_PPW <> "0" Then
        $i = 5
        Do
                $i = $i -1
                $answer = InputBox(" ","欢迎登录本系统>>>"&@LF&@LF&"请输入您的管理密码：","","*",160,160,-1,-1)
                If @Error = 1 Then Quit()
                $A_PPW = _StringEncrypt(1, md5($answer), 'www.ppps.cn', 5)
                If $R_PPW <> $A_PPW Then MsgBox(48,"","输入的密码有误，验证失败！"&@LF&@LF&"注意：你还有"&$i&"次尝试的机会！",10)
                If $i = 0 Then Quit()
        Until $R_PPW = $A_PPW
EndIf

网络凯子 发表于 2008-6-5 13:04:49

:face (29): :face (29): :face (29):

网络凯子 发表于 2008-6-8 06:05:11

原帖由 孤天一日 于 2008-6-2 22:12 发表 http://www.autoitx.com/images/common/back.gif
;运行时验证密码
$R_PPW = IniRead(@ScriptDir&"\Main.ini", "MySafe", "PPW", "0")
If $R_PPW"0" Then
        $i = 5
        Do
                $i = $i -1
                $answer = InputBox(" ","欢迎登录本系统>>>"&@LF&@LF&"请输入您的管 ...

能不能给我一个原文件，因为弄不出来哈

fqvip1 发表于 2011-8-26 23:18:24

呵呵支持原创

sunmon 发表于 2011-9-23 06:30:20

简单实用，记下

sunmon 发表于 2011-9-23 06:37:09

$pwd = InputBox("", "请输入密码", "", "*",50,50)
If $pwd <> "123456" Then exit

sunmon 发表于 2011-9-23 08:33:47

$pwd = InputBox("", "请输入密码", "", "*",50,50)
If StringCompare($Pwd,"AAaa",1) Then MsgBox(0,"","再见")
页: [1]
查看完整版本: 给我一个输入密码窗的代码