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

网络凯子 · 发表于 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

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

原帖由 孤天一日 于 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 · 发表于 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,"","再见")

		自动登录	找回密码
密码			加入