ip - Форум

Пятница, 26.12.2025, 07:14 | Приветствую Вас Гость

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 2
1
2
»

r000t

Дата: Понедельник, 08.10.2012, 01:13 | Сообщение # 1

Мыслящий вслух

Группа: Проверенные

Сообщений: 166

Репутация: 26

Статус: Offline

реально ли реализовать команду для бота чтобы при команде бот выдавал свой айпи ?

(Sa[i]reS)

Дата: Вторник, 09.10.2012, 12:58 | Сообщение # 2

Разработчик

Группа: Администраторы

Сообщений: 626

Репутация: 27

Статус: Offline

Не копался в эту сторону, но даже если не возможно средствами самого бота, то все-равно могу сделать.

r000t

Дата: Вторник, 09.10.2012, 15:12 | Сообщение # 3

Мыслящий вслух

Группа: Проверенные

Сообщений: 166

Репутация: 26

Статус: Offline

если не затруднит , очень пригодилось бы такая фича

(Sa[i]reS)

Дата: Среда, 10.10.2012, 13:41 | Сообщение # 4

Разработчик

Группа: Администраторы

Сообщений: 626

Репутация: 27

Статус: Offline

Доступно только для пользователей
Вообще в планах опубликовать русскую версию SB 2.7, затем SGEN, после уже разобраться с просьбами, которые мне накидали.
При чем что SB что SGEN почти готовы, нужно на оба проекта в районе 4 часов.

r000t

Дата: Среда, 31.10.2012, 22:27 | Сообщение # 5

Мыслящий вслух

Группа: Проверенные

Сообщений: 166

Репутация: 26

Статус: Offline

значит всё в ближайшем будущем будет реализовано)

Добавлено (31.10.2012, 22:27)
---------------------------------------------
на этой неделе не получится воплотить это ?)

(Sa[i]reS)

Дата: Среда, 07.11.2012, 10:27 | Сообщение # 6

Разработчик

Группа: Администраторы

Сообщений: 626

Репутация: 27

Статус: Offline

хм, спасибо что напомнил, думаю постараюсь на выходные выделить время, если я не уеду в командировку.

r000t

Дата: Среда, 21.11.2012, 23:28 | Сообщение # 7

Мыслящий вслух

Группа: Проверенные

Сообщений: 166

Репутация: 26

Статус: Offline

напоминю

saigen

Дата: Четверг, 06.12.2012, 11:20 | Сообщение # 8

Admin

Группа: Администраторы

Сообщений: 6

Репутация: 0

Статус: Offline

Правильно ))
мне уже не удобно, вроде обещал сделать, а до сих пор не сделал confused

r000t

Дата: Четверг, 13.12.2012, 18:44 | Сообщение # 9

Мыслящий вслух

Группа: Проверенные

Сообщений: 166

Репутация: 26

Статус: Offline

сможешь в этом году сделать ?) оочень нужно)

(Sa[i]reS)

Дата: Понедельник, 17.12.2012, 13:26 | Сообщение # 10

Разработчик

Группа: Администраторы

Сообщений: 626

Репутация: 27

Статус: Offline

тааааааааааааааааааааааак ) просто сейчас правда завал, я пока в больнице лежал, столько дел накопилось.
Давай я попробую на этой неделе.
Постараюсь сегодня вечером, но не обещаю.

r000t

Дата: Понедельник, 17.12.2012, 16:44 | Сообщение # 11

Мыслящий вслух

Группа: Проверенные

Сообщений: 166

Репутация: 26

Статус: Offline

тогда опятьже, я буду ждать )
за ранее спс

(Sa[i]reS)

Дата: Четверг, 20.12.2012, 23:50 | Сообщение # 12

Разработчик

Группа: Администраторы

Сообщений: 626

Репутация: 27

Статус: Offline

Итак, инструкция:
1. Открываем файл со скриптом и вставляем выше строчки "Function Init":

Code

Dim strContent, strExtIP

2. Вставляем выше строчки:

Code

If (LCase(Message) = BotVars.Trigger & "шаманы") or (LCase(Message) = BotVars.Trigger & "shamans") Then

Следующий код:

Code

If (LCase(Message) = BotVars.Trigger & "showip") Then
      if AntiFloodSystem_Use(UserName) <> 0 then exit sub
    Set webObj = CreateObject("Microsoft.XMLHTTP")
    webObj.Open "GET", ("http://www.ip-adress.com"), False
    webObj.Send
    strContent = webObj.responseText
       strExtIP = Split(Split(strContent, "Your IP address is: ")(1), "</h3>")(0)
       AddQ_D "/w "& UserName & " " & "IP адрес бота: " & strExtIP
      exit sub
    End If

_
Сохраняем, выходим.
Готово.
Команда для того, чтобы показать внешний IP компьютера: showip.
_
p.s. доступ для команды открыт всем, но защищен антифлудом. Если нужно сделать ограничение по доступу, можно глянуть на команды в скрипте выше, которые требуют уровень доступа. Там совсем чуть-чуть изменить придется, думаю сам догадаешься как сделать это...

r000t

Дата: Пятница, 18.01.2013, 10:47 | Сообщение # 13

Мыслящий вслух

Группа: Проверенные

Сообщений: 166

Репутация: 26

Статус: Offline

в приват боту нельзя писать эту команду ?
получил такую вот ошибку

[08:43:28 AM] <From NIK> .showip
[08:43:28 AM] [AntiFlood]новый пользователь команд добавлен: NIK
[08:43:28 AM] Scripting runtime error '-2146697211' in UltimateBot: (line 1714; column 0)
[08:43:28 AM] Системная ошибка: -2146697211.

[08:43:28 AM] Offending line: >>
[08:43:28 AM] Scripting runtime error '-2146697211' in UltimateBot: (line 1714; column 0)
[08:43:28 AM] Системная ошибка: -2146697211.

[08:43:28 AM] Offending line: >>
[08:43:28 AM] Scripting runtime error '-2146697211' in UltimateBot: (line 1714; column 0)
[08:43:28 AM] Системная ошибка: -2146697211.

[08:43:28 AM] Offending line: >>

на
line 1714
это
webObj.Send

(Sa[i]reS)

Дата: Пятница, 18.01.2013, 13:40 | Сообщение # 14

Разработчик

Группа: Администраторы

Сообщений: 626

Репутация: 27

Статус: Offline

Почему нельзя?
Можно, но ошибка в другом.
Или ты хочешь сказать, что в только в личку не работает?
Пример вставленного куска кода:

Код

If (LCase(Message) = BotVars.Trigger & "версия") or (LCase(Message) = BotVars.Trigger & "version")  Then
    if AntiFloodSystem_Use(UserName) <> 0 then exit sub
    AddQ_D "/me " & LangModule_SendMessage(UserName,103) & Script("Major") & "." & Script("Minor") & "." & Script("Revision") & ModulesVers
    ''' PadQueue
    exit sub
  End If

   If (LCase(Message) = BotVars.Trigger & "showip") Then
    if AntiFloodSystem_Use(UserName) <> 0 then exit sub
    Set webObj = CreateObject("Microsoft.XMLHTTP")
    webObj.Open "GET", ("http://www.ip-adress.com"), False
    webObj.Send
    strContent = webObj.responseText
     strExtIP = Split(Split(strContent, "Your IP address is: ")(1), "</h3>")(0)
     AddQ_D "/w "& UserName & " " & "IP адрес бота: " & strExtIP
     ''' PadQueue
    exit sub
  End If

  If (LCase(Message) = BotVars.Trigger & "шаманы") or (LCase(Message) = BotVars.Trigger & "shamans")  Then
    if AntiFloodSystem_Use(UserName) <> 0 then exit sub
    AddQ_D "/me " &  LangModule_SendMessage(UserName,104) & ClanShamans
    ''' PadQueue
    exit sub
  End If

r000t

Дата: Пятница, 18.01.2013, 13:49 | Сообщение # 15

Мыслящий вслух

Группа: Проверенные

Сообщений: 166

Репутация: 26

Статус: Offline

ошибка была на привате , так ошибке место быть? код который ты выложил исправит её ?

Страница 1 из 2
1
2
»

Меню сайта

Форма входа

Друзья сайта

Мини-чат

Все материалы данного сайта являются объектами авторского права (в том числе дизайн). Запрещается копирование, распространение (в том числе путем копирования на другие сайты и ресурсы в Интернете) или любое иное использование информации и объектов без предварительного согласия правообладателя.| Алексей Недопека (SaiSOFT) © 2009 - 2025 |