Код:
$sLogin = 'YourProblemSayMe'
$iCounter = 0
$iInputsLimit = 5
While 1
$iCounter += 1
$sInputP = InputBox('Подтверждение Прав', 'Введите Логин', '', '*')
If @error Then Exit
If StringCompare($sinputP, $sLogin) = 0 Then
MsgBox(64, 'Принято', 'Вы указали правильный Логин')
ExitLoop
Else
$sMainMsg = 'Такого Логина Нету В Базе.\n\n'
$sTriesMsg = 'Попробуйте еще раз.\n(Осталось Попыток: %i, Попыток сделано: %i)'
$sLimitMsg = _
"Печалька =([%i] Кончились попытки ввода Логина,\n" & _
".\n\nПопробуйте позже."
If $iCounter = $iInputsLimit Then
$sMainMsg &= $sLimitMsg
Else
$sMainMsg &= $sTriesMsg
EndIf
MsgBox(16, 'Отказ', StringFormat($sMainMsg, $iInputsLimit, $iInputsLimit - $iCounter))
If $iCounter = $iInputsLimit Then Exit
EndIf
WEnd
MsgBox(64, 'Принято', 'Логин Есть в базе')
$sPass = 'YourProblemIsBadBoy123321'
$iCounter = 0
$iInputsLimit = 5
While 1
$iCounter += 1
$sInputP = InputBox('Подтверждение Прав', 'Введите Пароль', '', '*')
If @error Then Exit
If StringCompare($sinputP, $sPass) = 0 Then
MsgBox(64, 'Принято', 'Вы указали правильный Пароль')
ExitLoop
Else
$sMainMsg = 'Такого Логина Нету В Базе.\n\n'
$sTriesMsg = 'Попробуйте еще раз.\n(Осталось Попыток: %i, Попыток сделано: %i)'
$sLimitMsg = _
"Печалька =([%i] Кончились попытки ввода Пароль,\n" & _
".\n\nПопробуйте позже."
If $iCounter = $iInputsLimit Then
$sMainMsg &= $sLimitMsg
Else
$sMainMsg &= $sTriesMsg
EndIf
MsgBox(16, 'Отказ', StringFormat($sMainMsg, $iInputsLimit, $iInputsLimit - $iCounter))
If $iCounter = $iInputsLimit Then Exit
EndIf
WEnd
MsgBox(64, 'Принято', 'Пароль верен')
Есть функция, но она поочередная, сначала Login, потом пароль.
Можно ли её как нибудь совместить в одну, а так же чтобы логин и пароль хранились не в программе, а на сайте, то есть http://domen.ru/logpas.ini в ini файле.