Crazy CommFort Plugin v2.17.5 [плагин для клиента]

[Chudik]

теперь подскажите пожалуйста как сделать через плагин что-то вроде рекламщика? Что-бы посылал в общие каналы, или ЛС каждому определённое сообщение в установленную разницу времени, допустим раз в сутки!?

Через событие "Время" с указанием нужного времени. Для отправки сообщения в канал, используешь действие "Отправить сообщение в общий канал" с указанием нужных каналов (разделяя их символом "|"), для отправки личных сообщений всем пользователям, используешь этот скрипт:

Код: Выделить всё

msg = "текст" & vbNewLine & "сообщения"
usr = cp.GetUsers
For i = 0 To UBound(usr) Step 3
  cp.SendUserMsg usr(i), msg, 0
Next

Поставил галочку на "Срабатывать не чаще чем" и выставил интервал в 18000 сек., пишет всё равно в каналы каждый час. Как можно исправить?

[CrazyVirus]

Поставил галочку на "Срабатывать не чаще чем" и выставил интервал в 18000 сек., пишет всё равно в каналы каждый час. Как можно исправить?

На событие "Время" эта галка не действует. Укажи час в настройках.

[Chudik]

Так будет правильно? Раз в 5 часов новость?

[ОреЛ]

Так будет правильно? Раз в 5 часов новость?

Нет. Так он будет публиковать только 5-го числа месяца в 00:00, то есть в полночь
Если ты хочешь, чтобы публиковало в определенные часы, просто создай несколько одинаковых событий на разное время.
К примеру, в 2, 6, 10, 14, 18, 22 часов, получается раз в 4 часа будет публиковаться твоя новость.

[rumix]

можно ли реализовать в плагине на функиции ограничения такую функцию как удалеие сообщения за которое юзер был забанен???
например у меня стоит автобан на мат... он банит но сообщение не удаляет.

или может уже есть подобный плагин?!

[ОреЛ]

можно ли реализовать в плагине на функиции ограничения такую функцию как удалеие сообщения за которое юзер был забанен???
например у меня стоит автобан на мат... он банит но сообщение не удаляет.

или может уже есть подобный плагин?!

Если вы имеете ввиду удаление сообщений в общих каналах, то такая возможность отсутствует в принципе.

[kaffa]

в скриптах не увидел функцию 'текущая дата' можете сделать эту функцию???очень нужна

[leonbratsk]

Если в плагине написать код VB на отправку мыла, то будет ли он отправлять его по событию ?

[CrazyVirus]

в скриптах не увидел функцию 'текущая дата' можете сделать эту функцию???очень нужна

Код: Выделить всё

cp.SendMsg "main", Now, 0

Если в плагине написать код VB на отправку мыла, то будет ли он отправлять его по событию ?

На какое событие назначишь, тогда и будет срабатывать.

[leonbratsk]

Если в плагине написать код VB на отправку мыла, то будет ли он отправлять его по событию ?

На какое событие назначишь, тогда и будет срабатывать.

Спасибо. Я думал, что не все тэги работают в плагине.

Вот еще вопрос. При написании в приват определенной фразы, этому человеку должно отправиться сообщение.
Как это реализовать? Событие сделать можно, но вот как с действием быть. Там нету ника, который отправил это сообщение.

[CrazyVirus]

Вот еще вопрос. При написании в приват определенной фразы, этому человеку должно отправиться сообщение.
Как это реализовать? Событие сделать можно, но вот как с действием быть. Там нету ника, который отправил это сообщение.

Должно отправлять сообщение в приват? Если да, то:

Код: Выделить всё

CCPE:8||||||||0||||1||||0||2||фраза
CCPA:4||%nick%||0||ответ

Если личное сообщение, то:

Код: Выделить всё

CCPE:8||||||||0||||1||||0||2||фраза
CCPA:5||%nick%||0||ответ

[leonbratsk]

Вот еще вопрос. При написании в приват определенной фразы, этому человеку должно отправиться сообщение.
Как это реализовать? Событие сделать можно, но вот как с действием быть. Там нету ника, который отправил это сообщение.

Должно отправлять сообщение в приват? Если да, то:

Код: Выделить всё

CCPE:8||||||||0||||1||||0||2||фраза
CCPA:4||%nick%||0||ответ

Если личное сообщение, то:

Код: Выделить всё

CCPE:8||||||||0||||1||||0||2||фраза
CCPA:5||%nick%||0||ответ

Все спасибо. Со второй попытки нашел.
cp.EventUserName

[leonbratsk]

Как можно принудительно завершить действие в Visual basic?
End не работает, пишет ошибку.

[11.08.2011 21:51:01] Предполагается наличие 'If'
Строка: 21, Символ: 4

If Len(txt) > 100 Then
cp.SendPrivateMsg cp.EventUserName, "Ошибка: Сообщение слишком длиное.", false
End
ElseIf Len(txt) = 0 Then
cp.SendPrivateMsg cp.EventUserName, "Ошибка: Сообщение слишком короткое.", false
End
End If

Если End убрать все работает.

[ОреЛ]

Как можно принудительно завершить действие в Visual basic?

После условий идут еще действия и вам нужно, чтобы на условиях прерывался весь скрипт?
Можно попробовать сделать так:

Код: Выделить всё

Do While true
...(здесь код)...
If Len(cp.EventText) > 100 Then
cp.SendMsg "main", "Ошибка: Сообщение слишком длиное.", false:Exit Do
ElseIf Len(txt) = 0 Then
cp.SendMsg "main", "Ошибка: Сообщение слишком короткое.", false:Exit Do
End If
...(здесь тоже код)...
Exit Do <- необходимо для выхода из цикла
Loop

[leonbratsk]

Как можно принудительно завершить действие в Visual basic?

Вам нужно окончательно завершить выполнение скрипта?

Да. Есть идея поставить GoTo m
и в самом конце прописать
m:
Но это не очень удобно