发个启动程序动态密码验证原码,再提个问题.

cls822001 · 发表于 2010-1-9 12:06:43

本帖最后由 cls822001 于 2010-1-9 12:52 编辑

出掉红色部分就是一次错误退出启动...................

问题是验证错误次数部分,怎么写才能3次错误后退出,搞很多次都是有问题.循环主太会,找大大们学习一下

#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$pa = "password"
$set1 = @YEAR
$set2 = @HOUR & @MIN

$Form1 = GUICreate("请输入动态密码", 231, 120, -1, -1, 0x16C80080)
GUISetFont(10, 400, 0, "微软雅黑")
$Label1 = GUICtrlCreateLabel("程序启动密码专用", 49, 12, 132, 20)
GUICtrlSetFont(-1, 12, 400, 0, "微软雅黑")
$Button1 = GUICtrlCreateButton("确定", 24, 80, 81, 33)
$Address = GUICtrlCreateInput("", 45, 40, 134, 26, BitOR($ES_LEFT, $ES_AUTOHSCROLL, $ES_PASSWORD))
$Button2 = GUICtrlCreateButton("取消", 128, 80, 81, 33)
Dim $AccelKeys[1][2] = [["{Enter}", $Button1]]
GUISetAccelerators($AccelKeys)
GUICtrlSetState($Address, $GUI_FOCUS)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ProcessClose("a.EXE")
FileDelete(@ScriptDir & "\a.exe")
Exit
Case $Button1
$pass = GUICtrlRead(5)
$password = $set1 & $pa & $set2

If $password <> $pass Then
                                                for $i=1 to 3
                                                      $i=3 then exit GUICtrlSetData($Label1, "错误次数超出范围")
                                             $pass = GUICtrlSetData($Label1, "错误次数"& 3-$i & "次")



If $password = $pass Then
GUICtrlSetData($Label1, "动态密码输入正确")
GUICtrlSetData($Label1, "程序启动中请稍候")
FileInstall("C:\Users\china\Desktop\a\a.exe", @ScriptDir & "\a.exe", 1)
GUISetState(@SW_HIDE)
Run(@ScriptDir & "\a.exe")
ProcessWaitClose("a.exe")
FileDelete(@ScriptDir & "\a.exe")
Exit
Else
GUICtrlSetData($Label1, "密码错误程序退出")
Sleep(1000)
Exit
EndIf
Case $Button2
ProcessClose("a.EXE")
FileDelete(@ScriptDir & "\a.exe")
Exit

EndSwitch
WEnd

afan · 发表于 2010-1-9 12:38:37

#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$pa = "password"
$set1 = @YEAR
$set2 = @HOUR & @MIN

$Form1 = GUICreate("请输入动态密码", 231, 120, -1, -1, 0x16C80080)
GUISetFont(10, 400, 0, "微软雅黑")
$Label1 = GUICtrlCreateLabel("程序启动密码专用", 49, 12, 132, 20)
GUICtrlSetFont(-1, 12, 400, 0, "微软雅黑")
$Button1 = GUICtrlCreateButton("确定", 24, 80, 81, 33)
$Address = GUICtrlCreateInput("", 45, 40, 134, 26, BitOR($ES_LEFT, $ES_AUTOHSCROLL, $ES_PASSWORD))
$Button2 = GUICtrlCreateButton("取消", 128, 80, 81, 33)
Dim $AccelKeys[1][2] = [["{Enter}", $Button1]]
GUISetAccelerators($AccelKeys)
GUICtrlSetState($Address, $GUI_FOCUS)
GUISetState(@SW_SHOW)
$i = 1

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        ProcessClose("a.EXE")
                        FileDelete(@ScriptDir & "\a.exe")
                        Exit
                Case $Button1
                        pass()
                Case $Button2
                        ProcessClose("a.EXE")
                        FileDelete(@ScriptDir & "\a.exe")
                        Exit

        EndSwitch
WEnd

Func pass()
        $password = $set1 & $pa & $set2
        $pass = GUICtrlRead(5)
        If $password <> $pass Then
                If $i = 3 Then
                        GUICtrlSetData($Label1, "错误次数超出范围")
                        Sleep(1000)
                        Exit
                Else
                        GUICtrlSetData($Label1, "错误次数" & $i & "次")
                EndIf
        $i += 1
        Else
                GUICtrlSetData($Label1, "动态密码输入正确")
                Sleep(300)
                GUICtrlSetData($Label1, "程序启动中请稍候")
                Sleep(300)
                FileInstall("C:\Users\china\Desktop\a\a.exe", @ScriptDir & "\a.exe", 1)
                GUISetState(@SW_HIDE)
                Run(@ScriptDir & "\a.exe")
                ProcessWaitClose("a.exe")
                FileDelete(@ScriptDir & "\a.exe")
                Exit
        EndIf
EndFunc   ;==>pass

cls822001 · 发表于 2010-1-9 12:51:08

谢谢老大...

geshenggang4 · 发表于 2011-1-17 11:29:47

那么原始应该在哪位置

uxuuexqyxwk · 发表于 2012-3-13 19:31:52

密码应该在哪儿呢？

fqvip1 · 发表于 2012-3-24 17:24:47

很梦。很强大

fqvip1 · 发表于 2012-3-27 14:26:35

那么原始应该在哪位置

txen548 · 发表于 2014-5-20 09:11:35

密碼去哪兒啦

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

发个启动程序动态密码验证原码,再提个问题.

评分