Traffic Inspector - [41] :: Программы :: Компьютерный форум Ru.Board

boddy2
Я не смог сюда вставить скрипты. выслал тебе по майлу два скрипта один паузит а другой запускает. у меня не работает следующее. вот если создаю нового юзера у него на счету 0 то все ок паузится и запускается. 2) если начсиляю ему 5 руб, т.е. у него щас начислено 5 и баланс = 5, он еще нигде не ползал. проверяю, все работает нормально, паузится и запускается. 3) если ставлю юзеру изначально (минус)-0.01 то тоже все нормально. 4) вот если например изначально написал юзеру 5 и дал ему немного по инету поползать то у него допустим списалось 1 мб с копейками. и когда теперь нажимаю скрипт паузы то у меня почемуто и начисление и остаток списываются (не проверял сколько). потом запускаю старт скрипт и опять все списывается . и если щас скриптами паузить и стартить этого юзера прихожу к тому что в пункте оплачено доходит до минуса и соответственно все остальное т.е. баланс тоже в минусе. посмотрите пожалуйста.
PS: скрипты взял на форуме TI.

Вот пауза: вставляю код.

' (C) SMART-SOFT 2003
' VBScript script demo
' --------------------

Set Args = WScript.Arguments.Unnamed
if Args.Count <> 2 then
    WScript.Echo "??? usage: cscript.exe userpause.vbs APIPassword GroupID /sn:ServerName"
    WScript.Quit
end if

APIPass = Args(0)
Obj = Args(1)

If WScript.Arguments.Named.Exists("sn") Then
    ServName = WScript.Arguments.Named.Item("sn")
    Set Srv = CreateObject("TrafInsp.TrafInspAdmin",ServName)
Else
    Set Srv = CreateObject("TrafInsp.TrafInspAdmin")
End If
Srv.APILogon(APIPass)

' Получаем список клиентов группы
UserList = Srv.ApiGetBillProp(3, Obj)

' Проверяем, что это таблица - двухмерный массив
If Not IsArray(UserList) Or Not IsArray(UserList(0)) Then
    WScript.Echo "Нет данных"
    WScript.Quit
End If

For I = 0 To UBound(UserList, 1)
    User = UserList(I)
    ' Получили строку - описание пользователя
    UserID = User(1)
    UserState = Srv.APIGetUserState(UserID)
    ' Считываем текущее состояние сессии
    OldState = UserState(4)
    OldBall = UserState(19)
    If OldState = 2 Then
        ' Переводим пользователя в ПАУЗА
        Srv.APISetUserState UserID, OldBall, 1, "Script userpause.vbs", "Перевод в ПАУЗА"
        WScript.Echo "Клиент " & User(0) & " переведен в состояние ПАУЗА"
    End If
Next

Добавлено:
нашел на сколько все это убавляется : допустим начислил 5 руб
то в таблице такие данные:
1) оплачено =5
2) трафик=0
3) сумма за трафик =0
4)баланс =5
у меня 1 мб = 1 руб (допустим юзер наползал 1 мб то в таблице получется следующее.
1) оплачено =5
2) трафик=1
3) сумма за трафик =1
4)баланс =4

После запуска скрипта паузы получается следующее.
1) оплачено =4
2) трафик=1
3) сумма за трафик =1
4)баланс =3

После запуска скрипта запуска
1) оплачено =3
2) трафик=1
3) сумма за трафик =1
4)баланс =2

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

Модерирует : gyra, Maz
Widok (11-03-2009 11:32): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120