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

网络凯子

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

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

漠北雪~狼

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

Hardy

版主说得好简单明了.

孤天一日

;运行时验证密码
$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-2 22:12 发表
[au3];运行时验证密码
$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

呵呵支持原创

sunmon

简单实用，记下

sunmon

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

sunmon

$pwd = InputBox("", "请输入密码", "", "*",50,50)
If StringCompare($Pwd,"AAaa",1) Then MsgBox(0,"","再见")