Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Пользователь


Сообщения: 54
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата:
#include <file.au3>
Global $sIniFileName = @ScriptDir & "\trial.ini"
IniWrite($sIniFileName, "Run", "#", 5)
If Not FileExists($sIniFileName) Then _FileCreate ($sIniFileName) $sReadData = IniRead($sIniFileName, "Run", "#", 0) Switch $sReadData Case 0 MsgBox(16,"","Вы исчерпали колличесво запусков!") Exit Case 1 To 5 MsgBox(64,"","У вас осталось - " & $sReadData - 1 & " запусков") IniWrite($sIniFileName, "Run", "#", $sReadData - 1) EndSwitch
компилирую и он постоянно пишет что осталось 4 запуска (не уменьшает число).

Отправлено: 01:19, 28-11-2009 | #7