Re: Вывод информации о сервере на сайт.
Добавлено: 02:43, 04.12.2013
хватит флудить)))
скрипт подсчета максимума:
первый для вывода информации
второй для записи нового рейтинга
скрипт подсчета максимума:
первый для вывода информации
Код: Выделить всё
file = "C:\max.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(file, 1, True)
scount = f.ReadAll
If scount = "" Then
scount = 0
End If
cp.SetValue "users_count", CInt(scount)
f.Close
Код: Выделить всё
scount = CInt(cp.GetValue("users_count"))
ucount = (UBound(cp.GetOnlineUsers)+1) / 3
If ucount > scount Then
scount = ucount
cp.SetValue "users_count", CInt(scount)
file = "C:\max.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(file)
Set f = fso.OpenTextFile(file, 8, True)
f.Write scount
f.Close
cp.SetTopic "", "main", "Максимальный онлайн%d%: %day%" & scount
End If