m1Kky » Чт июн 12, 2003 7:34 pm
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>
для этой кнопки у меня есть другой бар, окуда я запускаю другие проги для инета, так шо добавление-удаление-редактирование, сё делаю из этого меню...