Re: Crazy CommFort Server Plugin v1.07 [плагин для сервера]
Добавлено: 09:15, 29.09.2011
Там нету команды пригласить. Возможно только отправить сообщение с текстом приглашения.
форум поддержки
https://www.commfort.com/ru/forum/
Вход по команде "!войти [канал]":CraSTI писал(а):по командам тож хорошо. а можешь написать скрипт? ^.^
Код: Выделить всё
If Left(cp.EventText, 7) = "!войти " Then
cp.JoinChannel "", Mid(cp.EventText, 8), 0, 0
End If
Код: Выделить всё
If Left(cp.EventText, 7) = "!выйти " Then
cp.LeaveChannel "", Mid(cp.EventText, 8)
End If
Всегда мучил вопросик, как перечислять имена в Crazy Pluginах ?CrazyVirus писал(а): Цепляй на "Личное сообщение" с указанием нужных имён.
В серверном плагине через ":", в клиентском через "|".leonbratsk писал(а):Всегда мучил вопросик, как перечислять имена в Crazy Pluginах ?
Через запятую ? или пробел? или как то по другому.
Вот:DarkLord (M) писал(а):Помогите написать скрипт ...
Мне нужно чтобы при регистрации нового пользователя в канал публиковалась вся инфа о нем указанная при регистрации ...
Код: Выделить всё
name = cp.EventUserName
id = ""
act = cp.GetActList
For i=0 To UBound(act) Step 8
If act(i+2)=name Then
id = act(i+4)
Exit For
End If
Next
If id<>"" Then
ip = cp.EventUserIP
sameip = ""
sameid = ""
users = cp.GetUsers
For i=0 To UBound(users) Step 3
If users(i+1)=ip Then
If sameip<>"" Then
sameip = sameip & ", "
End If
sameip = sameip & """" & users(i) & """"
End If
uid = cp.GetUserID(users(i))
If uid=id Then
If sameid<>"" Then
sameid = sameid & ", "
End If
sameid = sameid & """" & users(i) & """"
End If
Next
samerest = ""
rest = cp.GetRestList
For i=0 To UBound(rest) Step 12
If rest(i+5)=ip Or rest(i+7)=id Then
If samerest<>"" Then
samerest = samerest & ", "
End If
samerest = samerest & """" & rest(i+4) & """"
End If
Next
cp.SendMsg "", "registrator", "Запрос на активацию новой учетной записи" & vbNewLine & "Имя: " & name & vbNewLine & "IP-адрес: " & ip & vbNewLine & "С таким же IP-адресом: " & sameip & vbNewLine & "С таким же ID компьютера: " & sameid & vbNewLine & "С таким же IP-адресом/ID компьютера в списке ограничений: " & samerest, false
End If
Упс, забыл.DarkLord (M) писал(а):Отлично спасибо , но он не пишет самого главного , "Сообщения" с данными о регистрации ... ну № договора и т.д ... что укажет пользователь при регистрации ...
Код: Выделить всё
cp.SendMsg "", "main", "Запрос на активацию новой учетной записи" & vbNewLine & "Имя: " & name & vbNewLine & "IP-адрес: " & ip & vbNewLine & "С таким же IP-адресом: " & sameip & vbNewLine & "С таким же ID компьютера: " & sameid & vbNewLine & "С таким же IP-адресом/ID компьютера в списке ограничений: " & samerest & vbNewLine & "Сообщение: " & cp.EventText, false
В смысле? Он пишет при каждом добавлении новой заявки.DarkLord (M) писал(а):а до скольки не рассмотренных пользователей он будет писать лог в канал ???