счетчик денег на интернет

[Denskoy]

пытаюсь сделать счетчик денег потраченных в инете, для этого проверяю в какое время выхожу. вот так

if (Time>200000)
money=float.mul(mins, "0.43")
Elseif (Time<080000)
money=float.mul(mins, "0.03")
Elseif (Time>080000)
money=float.mul(mins, "0.53")
;endif

с 20:00 до полуночи считает. после выдает ошибку
bad expression - expecting operator at 080000 (Time<080000)

может еще способ есть?

[Denskoy]

сам разобрался, вместо > < нужно ставить gt и lt(почему, не знаю) теперь висит в уголочке счетчик и показывает, сколько сижу и сколько натикало в зависимости от времени.

[Reuben]

Проверь, чтобы в Setup->Advanced Setup->Characters в obsolete settings не стояло ничего!

[Shelix]

2Denskoy А теперь расскажи, пожалуйста, как этот скрипт юзать?

[Denskoy]

1. бросаем скрипт (код подпеределал) в папку со скриптами
CODE
;подсчет минут
mins=mins+1
;проверяем какой день недели
If (Date.Weekday(Date)==0) or (Date.Weekday(Date)==6) do
; если выходные то
Jump weekends
Else
; если будни то
Jump weekdays
Endif

@weekends
; "0.25" - тариф за минуту, дальше тоже самое
money=float.mul(mins, "0.25")
Quit

@weekdays
;время между 18:00 и 24:00
If (Time gt 180000) do
money=float.mul(mins, "0.4")
;между 24:00 и 8:00
Elseif (Time lt 080000) do
money=float.mul(mins, "0.25")
;между 8:00 и 18:00
Elseif (Time gt 080000) do
money=float.mul(mins, "0.37")
endif

2. настраиваем таймер на свое соединение
отмечаем reset minute (1)
вкладка reset *Script Runfile c:\path\script.powerpro

3. Создаем бар, где в name прописываем
*info expr(mins)мин/ expr(money)руб.

как сделать его зависимым от состояния модема, еще не домыслил, но сделаю. все

4. можно забацать скрипт, для сохранения инфы в файл, подсчет денег на счету (после того, как внес новую порцию) вобщем фантазия не ограничена

[m1Kky]

ну, если верно тебя понял(времени нет), то просто создаешь новый таймер, там есь галочка "Run then dial-up of same name is active"... на start вешаешь один скрипт(это типа коннект), на стоп другой(дисконнект).... разве ты этого не знал?... посмотри скрипты Ergo и даника...

[Denskoy]

все верно. в прямом смысле все. я этого не знал. я вообще каждый день узнаю что-то новенькое.

а если мысль моя не нова - так ведь не все на свете такие продвинутые, как уважаемые мной выше перечисленные люди. я был просто рад, что сумел сделать удобную мне вещь и поделился оной. все <!--emo&:)--><!--endemo-->. форум разве не для этой цели работает? Да и на главной странице не написано, что за счетчиком денег отправляйся на стр. такую-то см. скрипт такой-то <!--emo&:)--><!--endemo--> я вообще не помню, чтобы это обсуждалось.

[dAnIK SeNT]

2Denskoy
Обсуждалось, еще на старом движке. Архив сглюкнулся, к сожалению <!--emo&:(--><!--endemo-->.

[Reuben]

2Denskoy
Форум именно для того, чтобы делиться скриптами (в частности <!--emo&:)--><!--endemo-->) , особенно откомментированными. Так что ты все правильно делаешь. Как показывает опыт, скрипты лучше писать самим, а чужие использовать в ознакомительных/образовательных целях.

[m1Kky]

1хммм, вот решил свою версию показать, чисто для одного прова, для других можно добавить условие...

все файлы лежат в папке scripts - dial

<span style='color:blue'>dial_globals.txt</span>
(ничё не менял даже ж)...)
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
;DialStat root folder. Changing is not recommended
log_file = "&(pprofolder)Scripts\dial\Logs\" ++  formatdate( "MM-yyyy", "&(date)") ++ ".log"
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

<span style='color:blue'>dial_connect.txt</span>
(сброс счётчика, запуск моих прог, запоминание времени подключения)
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
.dial\dial_globals
Wait modem
connected_on = "&(xtime)"
mins=0
Bar Show inet_money

if (not(anywindow "*Opera*")) Do
"D:\Program Files\Opera7\opera.exe"
endif

if (not(anywindow "*Reget*")) Do
"D:\Program Files\ReGetDx\regetdx.exe"
endif

if (not(anywindow "*The All-Seeing Eye*")) Do
"D:\Games\ForAll\q3\The All-Seeing Eye\eye.exe"
endif
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

<span style='color:blue'>dial_disconnect.txt</span>
( запоминание времени Отключения, стоп таймер, скрытие бара, запись дробного лога)
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
Wait nomodem
connected_off = "&(xtime)"
Timer Clear a
Bar Hide inet_money

Exec ToFile "&(log_file)" &(shortdate) &(connected_on) - &(connected_off) (&(mins) мин) === &(money) руб
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

<span style='color:blue'>dial_money.txt</span>
(тока один пров...(перебор номеров это в ХР)..)
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
;подсчёт минут
mins=mins+1

; "0.5" - тариф за минуту
money=float.mul(mins, "0.5")
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

бар inet_money содержит тока одну кнопарь, в поле name тоже самое:

*info expr(mins)мин/ expr(money)руб

на правую кнопку я повесил его скрыите(Bat hide inet_money)

вроде ничё сложного, пока для одного прова, вот настроение будет, для нескольких напишу, разукрашу ж) и выложу...
-----------------------------
(забыл), для дожвона я пользую командой :
<span style='color:blue'>*Menu Folder Сетевые подключения noext button Maxtext 32 </span>

для этой кнопки у меня есть другой бар, окуда я запускаю другие проги для инета, так шо добавление-удаление-редактирование, сё делаю из этого меню...

[m1Kky]

хммм, а чё отредактировать не могу уже? я три буквы хотеел исправить ж))))