Re: Вывод информации о сервере на сайт.
Добавлено: 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