Detre
Новичок
- Сообщения
- 70
- Репутация
- 0
Всем доброго дня, хотелось бы поставить пароль на запуск exe, защита от "Детей". Пока не сталкивался еще с методами реализации оного, пошукал в форуме, пока не нашел аналог. Заранее большое спасибо)
Извиняюсь, нашел на англофоруме. https://www.autoitscript.com/forum/topic/81102-setting-a-password-on-my-script-and-exe-resolved/
Сообщение автоматически объединено:
Всем доброго дня, хотелось бы поставить пароль на запуск exe, защита от "Детей". Пока не сталкивался еще с методами реализации оного, пошукал в форуме, пока не нашел аналог. Заранее большое спасибо)
Извиняюсь, нашел на англофоруме. https://www.autoitscript.com/forum/topic/81102-setting-a-password-on-my-script-and-exe-resolved/
Код:
Password_Protect()
; Dated: Sep-23-2008
; WB: ChromeFan
Func Password_Protect()
$Total_Counts = 3
$Try = 1
$File_Access = "Disallowd"
$Your_Password = "ChromeFan"
ConsoleWrite("" & @CRLF)
$InputBox_1 = InputBox( "Access Protected", "Please Enter your password (Case sensitive)" & @CRLF & @CRLF & "My Program Name (Example)"& @CRLF & @CRLF &"Author: Your Name", "", "*")
If $InputBox_1 == $Your_Password Then
$File_Access = "Granted"
MsgBox(64, "Password Accepted", "Welcome," & @CRLF & @CRLF & @UserName & @CRLF & @CRLF & @ComputerName)
Else
Do
$InputBox_2 = InputBox( "Access Denied", "The Password provided by you is wrong."& @CRLF & @CRLF &"Please Reinter your password."& @CRLF & @CRLF &"Author: Your Name", "", "*")
If $Your_Password = $InputBox_2 Then
$File_Access = "Granted"
MsgBox(64, "Password Accepted", "Welcome," & @CRLF & @CRLF & @UserName & @CRLF & @CRLF & @ComputerName)
ExitLoop
EndIf
$Try += 1
Until $Try = $Total_Counts
EndIf
If $File_Access = "Allowed" Then
MsgBox(48, "Access Granted", "Some Text")
Else
MsgBox(48, "You can not access this program!", "You have tried more then 3 times to enter the correct password."&@CRLF&"But the password was always wrong."&@CRLF&"Sorry! Program will now close.")
Exit
Return
endif
EndFunc ;==>_Password_Protect()