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

[ОреЛ]

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

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

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

Я уже привел, как нужно писать код, минуя проклятые GoTo

[leonbratsk]

Кому нужен код для бота, что бы выводил день, месяц, год, и время.

CCPE:8||время||||||0||||0||||0||2||!время
CCPA:21||fd_month = 1:;If Month(Date) = 1 Then fd_month = "января":;If Month(Date) = 2 Then fd_month = "февраля":;If Month(Date) = 3 Then fd_month = "марта":;If Month(Date) = 4 Then fd_month = "апреля":;If Month(Date) = 5 Then fd_month = "мая":;If Month(Date) = 6 Then fd_month = "инюня":;If Month(Date) = 7 Then fd_month = "июля":;If Month(Date) = 8 Then fd_month = "августа":;If Month(Date) = 9 Then fd_month = "сентября":;If Month(Date) = 10 Then fd_month = "октября":;If Month(Date) = 11 Then fd_month = "ноября":;If Month(Date) = 12 Then fd_month = "декабря":;If WeekDay(Date, vbMonday) = 1 Then xday = "понедельник":;If WeekDay(Date, vbMonday) = 2 Then xday = "вторник":;If WeekDay(Date, vbMonday) = 3 Then xday = "среда":;If WeekDay(Date, vbMonday) = 4 Then xday = "четверг":;If WeekDay(Date, vbMonday) = 5 Then xday = "пятница":;If WeekDay(Date, vbMonday) = 6 Then xday = "суббота":;If WeekDay(Date, vbMonday) = 7 Then xday = "воскресенье":;cp.SendPrivateMsg cp.EventUserName, "Сегодня " & xday & ", " & Day(Date) & " " & fd_month & " " & Year(Date) & " года.", false:;cp.SendPrivateMsg cp.EventUserName, "Сейчас " & Time & ".", false

[12:46:15] xxx: Сегодня пятница, 12 августа 2011 года.
[12:46:15] xxx: Сейчас 12:46:15.

Может создать отдельную тему ? Т.к часто буду суда вылаживать коды для создания бота на Crazy Plugin.

[leonbratsk]

CCPE:8||Magic 8 ball||<>%mn%||||0||||0||||0||0||!вопрос
CCPA:21||Do While true:;If cp.EventText = "!вопрос" Or cp.EventText = "!вопрос " Then:;cp.SendPrivateMsg cp.EventUserName, vbNewLine & "Это Magic 8 ball - магический шар 8." & vbNewLine & "Ответит на любой твой вопрос. Сформулируй вопрос так, что бы на него можно было ответь да или нет." & vbNewLine & "Напиши свой вопрос в формате: !вопрос *здесь свой вопрос*" & vbNewLine & "Звездочки не обязательно писать.", false: Exit Do:;End If:;If Len(Mid(cp.EventText, 9)) < 4 Then:;cp.SendPrivateMsg cp.EventUserName, "Вопрос слишком короткий.", false:Exit Do:;End If:;Randomize:;magicball = Int((20 - 1 + 1) * Rnd + 1):;If magicball = 1 Then otvet = "Бесспорно":;If magicball = 2 Then otvet = "Решено":;If magicball = 3 Then otvet = "Никаких сомнений":;If magicball = 4 Then otvet = "Определённо да":;If magicball = 5 Then otvet = "Можешь положиться":;If magicball = 6 Then otvet = "Мне кажется — «да»":;If magicball = 7 Then otvet = "Вероятнее всего":;If magicball = 8 Then otvet = "Хорошие перспективы":;If magicball = 9 Then otvet = "Знаки говорят — «да»":;If magicball = 10 Then otvet = "Да":;If magicball = 11 Then otvet = "Пока не ясно, попробуй снова":;If magicball = 12 Then otvet = "Спроси позже":;If magicball = 13 Then otvet = "Лучше не рассказывать":;If magicball = 14 Then otvet = "Сейчас нельзя предсказать":;If magicball = 15 Then otvet = "Сконцентрируйся и спроси опять":;If magicball = 16 Then otvet = "Даже не думай":;If magicball = 17 Then otvet = "Мой ответ — «нет»":;If magicball = 18 Then otvet = "По моим данным — «нет»":;If magicball = 19 Then otvet = "Перспективы не очень хорошие":;If magicball = 20 Then otvet = "Весьма сомнительно":;cp.SendPrivateMsg cp.EventUserName, otvet, false:;Exit Do:;Loop

Магический шар 8. Отвечает на вопросы.


[14:10:10] yyy: !вопрос
[14:10:10] xxx:
Это Magic 8 ball - магический шар 8.
Ответит на любой твой вопрос. Сформулируй вопрос так, что бы на него можно было ответь да или нет.
Напиши свой вопрос в формате: !вопрос *здесь свой вопрос*
Звездочки не обязательно писать.
[14:11:16] yyy: !вопрос коммфорт хорошая программа?
[14:11:17] xxx: Определённо да

[CrazyVirus]

Кому нужен код для бота, что бы выводил день, месяц, год, и время.

Можно проще:

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

FormatDateTime(Now, 1)
FormatDateTime(Now, 3)

[leonbratsk]

Выводит количество пользователей

CCPE:8||список пользователей||||||0||||0||||0||0||!список_пользователей
CCPA:21||ou = (UBound(cp.GetUsers) + 1) / 3 :;cp.SendPrivateMsg cp.EventUserName, "Сейчас в чате " & ou & " пользователей(я) он-лайн.", false:;users = cp.GetUsers:;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:;cp.SendPrivateMsg cp.EventUserName, "Из них: " & mu & " парней(я) и " & wu & " девушки(ек)", false

[15:51:24] xxx: !список_пользователей
[15:51:24] xxx: Сейчас в чате 879 пользователей(я) он-лайн.
[15:51:24] xxx: Из них: 697 парней(я) и 182 девушки(ек)

[leonbratsk]

Кому нужен код для бота, что бы выводил день, месяц, год, и время.

Можно проще:

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

FormatDateTime(Now, 1)
FormatDateTime(Now, 3)

пытался с Format - ошибку выдавала, видать код не очень правильный был.
Пошел альтернативным путем.

Подскажите, как реализовать отправку почты с возможностью ошибки. То есть, если почта не отправилась, делается какое-то действие.

[CrazyVirus]

пытался с Format - ошибку выдавала, видать код не очень правильный был.
Пошел альтернативным путем.

Например так:

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

cp.SendMsg cp.EventChannel, FormatDateTime(Now, 1), 0
cp.SendMsg cp.EventChannel, FormatDateTime(Now, 3), 0

Подскажите, как реализовать отправку почты с возможностью ошибки. То есть, если почта не отправилась, делается какое-то действие.

Я не очень в этом разбираюсь, но в скрипте из этой темы есть такой участок:

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

If Err.Number <> 0 Then
...
End If

[Genikolog]

SendPrivateMsg как я понял это ответ приходит в приват. как сделать чтобы ответ приходил в тот же канал где и была задана команда

[ОреЛ]

SendPrivateMsg как я понял это ответ приходит в приват. как сделать чтобы ответ приходил в тот же канал где и была задана команда

cp.SendMsg cp.EventChannel, 'ответ", false

[leonbratsk]

пытался с Format - ошибку выдавала, видать код не очень правильный был.
Пошел альтернативным путем.

Например так:

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

cp.SendMsg cp.EventChannel, FormatDateTime(Now, 1), 0
cp.SendMsg cp.EventChannel, FormatDateTime(Now, 3), 0

Подскажите, как реализовать отправку почты с возможностью ошибки. То есть, если почта не отправилась, делается какое-то действие.

Я не очень в этом разбираюсь, но в скрипте из этой темы есть такой участок:

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

If Err.Number <> 0 Then
...
End If

Спасибо помогло.

Как еще можно сделать задержку?
Код...
Тут задержка.
Дальше код...

[CrazyVirus]

Как еще можно сделать задержку?
Код...
Тут задержка.
Дальше код...

Только циклом.

[kaffa]

CCPE:8||Magic 8 ball||<>%mn%||||0||||0||||0||0||!вопрос
CCPA:21||Do While true:;If cp.EventText = "!вопрос" Or cp.EventText = "!вопрос " Then:;cp.SendPrivateMsg cp.EventUserName, vbNewLine & "Это Magic 8 ball - магический шар 8." & vbNewLine & "Ответит на любой твой вопрос. Сформулируй вопрос так, что бы на него можно было ответь да или нет." & vbNewLine & "Напиши свой вопрос в формате: !вопрос *здесь свой вопрос*" & vbNewLine & "Звездочки не обязательно писать.", false: Exit Do:;End If:;If Len(Mid(cp.EventText, 9)) < 4 Then:;cp.SendPrivateMsg cp.EventUserName, "Вопрос слишком короткий.", false:Exit Do:;End If:;Randomize:;magicball = Int((20 - 1 + 1) * Rnd + 1):;If magicball = 1 Then otvet = "Бесспорно":;If magicball = 2 Then otvet = "Решено":;If magicball = 3 Then otvet = "Никаких сомнений":;If magicball = 4 Then otvet = "Определённо да":;If magicball = 5 Then otvet = "Можешь положиться":;If magicball = 6 Then otvet = "Мне кажется — «да»":;If magicball = 7 Then otvet = "Вероятнее всего":;If magicball = 8 Then otvet = "Хорошие перспективы":;If magicball = 9 Then otvet = "Знаки говорят — «да»":;If magicball = 10 Then otvet = "Да":;If magicball = 11 Then otvet = "Пока не ясно, попробуй снова":;If magicball = 12 Then otvet = "Спроси позже":;If magicball = 13 Then otvet = "Лучше не рассказывать":;If magicball = 14 Then otvet = "Сейчас нельзя предсказать":;If magicball = 15 Then otvet = "Сконцентрируйся и спроси опять":;If magicball = 16 Then otvet = "Даже не думай":;If magicball = 17 Then otvet = "Мой ответ — «нет»":;If magicball = 18 Then otvet = "По моим данным — «нет»":;If magicball = 19 Then otvet = "Перспективы не очень хорошие":;If magicball = 20 Then otvet = "Весьма сомнительно":;cp.SendPrivateMsg cp.EventUserName, otvet, false:;Exit Do:;Loop

вроде сделал все нормально ... как только должно выполняться действие в события приходит :Предполагается наличие инструкции
Строка: 0, Символ: 5


какая инструкция... такая же фигня с любой CCPE:8||

[leonbratsk]

Попробуй поставить последнюю версию.

CCPE:8||Magic 8 ball||<>%mn%||||0||||0||||0||0||!вопрос
CCPA:21||Do While true:;If cp.EventText = "!вопрос" Or cp.EventText = "!вопрос " Then:;cp.SendPrivateMsg cp.EventUserName, vbNewLine & "Это Magic 8 ball - магический шар 8." & vbNewLine & "Ответит на любой твой вопрос. Сформулируй вопрос так, что бы на него можно было ответь да или нет." & vbNewLine & "Напиши свой вопрос в формате: !вопрос *здесь свой вопрос*" & vbNewLine & "Звездочки не обязательно писать.", false: Exit Do:;End If:;If Len(Mid(cp.EventText, 9)) < 4 Then:;cp.SendPrivateMsg cp.EventUserName, "Вопрос слишком короткий.", false:Exit Do:;End If:;Randomize:;magicball = Int((20 - 1 + 1) * Rnd + 1):;Select Case magicball:; Case 1:; otvet = "Бесспорно":; Case 2:; otvet = "Решено":; Case 3:; otvet = "Никаких сомнений":; Case 4:; otvet = "Определённо да":; Case 5:; otvet = "Можешь положиться":; Case 6:; otvet = "Мне кажется — «да»":; Case 7:; otvet = "Вероятнее всего":; Case 8:; otvet = "Хорошие перспективы":; Case 9:; otvet = "Знаки говорят — «да»":; Case 10:; otvet = "Да":; Case 11:; otvet = "Пока не ясно, попробуй снова":; Case 12:; otvet = "Спроси позже":; Case 13:; otvet = "Лучше не рассказывать":; Case 14:; otvet = "Сейчас нельзя предсказать":; Case 15:; otvet = "Сконцентрируйся и спроси опять":; Case 16:; otvet = "Даже не думай":; Case 17:; otvet = "Мой ответ — «нет»":; Case 18:; otvet = "По моим данным — «нет»":; Case 19:; otvet = "Перспективы не очень хорошие":; Case 20:; otvet = "Весьма сомнительно":;End Select:;cp.SendPrivateMsg cp.EventUserName, otvet, false:;Exit Do:;Loop

* Если сам себе пишешь в приват - ничего не выводится.

Если не получается, попробуй в событие поставь "Сообщение в приватный канал", текст : "Содержит" "!вопрос"
И в действие "выполнить VB скрипт".

Do While true
If cp.EventText = "!вопрос" Or cp.EventText = "!вопрос " Then
cp.SendPrivateMsg cp.EventUserName, vbNewLine & "Это Magic 8 ball - магический шар 8." & vbNewLine & "Ответит на любой твой вопрос. Сформулируй вопрос так, что бы на него можно было ответь да или нет." & vbNewLine & "Напиши свой вопрос в формате: !вопрос *здесь свой вопрос*" & vbNewLine & "Звездочки не обязательно писать.", false: Exit Do
End If
If Len(Mid(cp.EventText, 9)) < 4 Then
cp.SendPrivateMsg cp.EventUserName, "Вопрос слишком короткий.", false:Exit Do
End If
Randomize
magicball = Int((20 - 1 + 1) * Rnd + 1)
Select Case magicball
Case 1
otvet = "Бесспорно"
Case 2
otvet = "Решено"
Case 3
otvet = "Никаких сомнений"
Case 4
otvet = "Определённо да"
Case 5
otvet = "Можешь положиться"
Case 6
otvet = "Мне кажется — «да»"
Case 7
otvet = "Вероятнее всего"
Case 8
otvet = "Хорошие перспективы"
Case 9
otvet = "Знаки говорят — «да»"
Case 10
otvet = "Да"
Case 11
otvet = "Пока не ясно, попробуй снова"
Case 12
otvet = "Спроси позже"
Case 13
otvet = "Лучше не рассказывать"
Case 14
otvet = "Сейчас нельзя предсказать"
Case 15
otvet = "Сконцентрируйся и спроси опять"
Case 16
otvet = "Даже не думай"
Case 17
otvet = "Мой ответ — «нет»"
Case 18
otvet = "По моим данным — «нет»"
Case 19
otvet = "Перспективы не очень хорошие"
Case 20
otvet = "Весьма сомнительно"
End Select
cp.SendPrivateMsg cp.EventUserName, otvet, false
Exit Do
Loop

[kaffa]

а как все это сделать с временем и юзерами?

[leonbratsk]

а как все это сделать с временем и юзерами?

Поподробней что именно ?