Что нового

При повторном выполнении скрипта использовать строка +1

kaktys2

Новичок
Сообщения
3
Репутация
0
Добрый день!
В программировании я только начинаю осваиваться и простейшие действия могу написать. Но возник вопрос. Допустим мне необходимо зайти в игру используя логин и пароль затем выйти и опять зайти, но уже с другим логином и паролем всего 5 пар, каждая на новой строчке.
Данные храняться в одном файле. И вот как это реализовать? Заранее спасибо.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
kaktys2,
Попробуйте примерно так.
Код:
Global $iCountStart

_GetCountStart($iCountStart)
OnAutoItExitRegister('_CountStartWrite')

;~ Ваш код
MsgBox(64, 'Info', 'Запуск номер: ' & $iCountStart)
;~ Ваш код

Func _CountStartWrite()
	Local $s_Ini = @ScriptDir & '\CountStart.ini'
	IniWrite($s_Ini, 'Check', 'CountStart', $iCountStart + 1)
EndFunc   ;==>_CountStartWrite

Func _GetCountStart(ByRef $i_CountStart)
	Local $s_Ini = @ScriptDir & '\CountStart.ini'
	$i_CountStart = Number(IniRead($s_Ini, 'Check', 'CountStart', 1))
EndFunc   ;==>_GetCountStart
Или с файлом.
Код:
Global $iCountStart

_GetCountStart($iCountStart)
OnAutoItExitRegister('_CountStartWrite')

;~ MsgBox(64, 'Info', 'Запуск номер: ' & $iCountStart)
MsgBox(64, 'Info', 'Строка номер: ' & $iCountStart & @LF & 'Текст строки: ' & FileReadLine(@ScriptDir & '\myfile.txt', $iCountStart))
;~ Ваш код

Func _CountStartWrite()
	Local $s_Ini = @ScriptDir & '\CountStart.ini', $i_MaxCountString = 25 ;поставьте свое значение
	If $iCountStart + 1 > $i_MaxCountString Then $iCountStart = 0
	IniWrite($s_Ini, 'Check', 'CountStart', $iCountStart + 1)
EndFunc   ;==>_CountStartWrite

Func _GetCountStart(ByRef $i_CountStart)
	Local $s_Ini = @ScriptDir & '\CountStart.ini'
	$i_CountStart = Number(IniRead($s_Ini, 'Check', 'CountStart', 1))
EndFunc   ;==>_GetCountStart
 
Автор
K

kaktys2

Новичок
Сообщения
3
Репутация
0
Спасибо! Второй вариант как раз для меня.
 
Верх