Вывод информации о сервере на сайт.

Здесь содержатся плагины, графические оболочки, наборы смайлов и другие дополнения к CommFort.
Аватара пользователя
ALFRED450
Сообщения: 814
Зарегистрирован: 01:00, 19.09.2007

Re: Вывод информации о сервере на сайт.

Сообщение ALFRED450 » 11:30, 12.10.2018

Если кто то еще пользуется помогите, верные ли эти события и действия:
CCSPE:0||Статистика||||||0||||0||
CCSPA:1||ou = (UBound(cp.GetOnlineUsers) + 1) / 3 :;all = (UBound(cp.GetUsers) + 1) / 3:;users = cp.GetOnlineUsers:;mu = 0:;wu = 0:;For i = 0 To UBound(users) Step 3:; If users(i+2) = 0 Then mu = mu + 1:; If users(i+2) = 1 Then wu = wu + 1:; Next:;:;file = "C:\mu.txt":; Set fso = CreateObject("Scripting.FileSystemObject"):; fso.DeleteFile(file):; Set f = fso.OpenTextFile(file, 8, True):; f.Write mu:;file = "C:\wu.txt":; Set fso = CreateObject("Scripting.FileSystemObject"):; fso.DeleteFile(file):; Set f = fso.OpenTextFile(file, 8, True):; f.Write wu:;file = "C:\all.txt":; Set fso = CreateObject("Scripting.FileSystemObject"):; fso.DeleteFile(file):; Set f = fso.OpenTextFile(file, 8, True):; f.Write all
Если есть у кого рабочие версии вывода статистики поделитесь плз.
Чат Commfort-Vorkuta (Воркута) версия сервера: 5.92
Master-peжим
Адреса сервера:
воркутинец.рф
воргашорец.рф

Аватара пользователя
зёзя
Сообщения: 1492
Зарегистрирован: 00:18, 02.05.2010
Откуда: Бесарабия

Re: Вывод информации о сервере на сайт.

Сообщение зёзя » 23:43, 05.12.2018


Аватара пользователя
зёзя
Сообщения: 1492
Зарегистрирован: 00:18, 02.05.2010
Откуда: Бесарабия

Re: Вывод информации о сервере на сайт.

Сообщение зёзя » 23:50, 05.12.2018

1 действие
file = "D:\AppServ\www\statistik\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

2 действие
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 = "D:\AppServ\www\statistik\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

3 действие
ou = (UBound(cp.GetOnlineUsers) + 1) / 3
all = (UBound(cp.GetUsers) + 1) / 3
users = cp.GetOnlineUsers
mu = 0
wu = 0
For i = 0 To UBound(users) Step 3
If users(i+2) = 0 Then mu = mu + 1
If users(i+2) = 1 Then wu = wu + 1
Next

file = "D:\AppServ\www\statistik\mu.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(file)
Set f = fso.OpenTextFile(file, 8, True)
f.Write mu

file = "D:\AppServ\www\statistik\wu.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(file)
Set f = fso.OpenTextFile(file, 8, True)
f.Write wu

file = "D:\AppServ\www\statistik\all.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(file)
Set f = fso.OpenTextFile(file, 8, True)
f.Write all

file = "D:\AppServ\www\statistik\online.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(file)
Set f = fso.OpenTextFile(file, 8, True)
f.Write ou

4 действие
ou = (UBound(cp.GetOnlineUsers) + 1) / 3
users = cp.GetOnlineUsers
onlain = 0
For i = 0 To UBound(users) Step 3
Next
file = "D:\AppServ\www\statistik\onlain.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(file)
Set f = fso.OpenTextFile(file, 8, True)
f.WriteLine "Online"

Ответить