myDC.ru

Здравствуйте, гость ( Вход | Регистрация )

 
 
Ответить в данную темуНачать новую тему

> Нужен скрипт, в описаниях Юзеров по IP - город в пиринге

Теги
Нет тегов для показа
DriverZX-10
сообщение 29.8.2009, 21:46
Сообщение #1


Участник
**

Группа: Пользователи
Сообщений: 41
Регистрация: 25.8.2009
Из: Московская область,Электроугли
Пользователь №: 4 252
Спасибо сказали: 1 раз




Ребят,нужен скрипт,который бы вписывал по IP в описание город из пиринговых сетей,диапазоны IP/города известны.

Нашёл в инете нечто похожее,переконвертировал в API2:
CODE
-- Этот скрипт конвертирован программой PtokaX LUA API Конвертор v0.9. Русская версия 08/29/09 21:09:22
-- BotName --
HubBot = SetMan.GetString(21)
--time after user connect to overwrite the description
TimeOverWrite = 10 -- time in second
-- range ip overwrite ="begin ip range-end ip range-description"
-- not teste whit space in description
tProfileTag= {
[1] = "[Op]", -- Названия профилей как они будут выглядеть в описании , меняем на свои ))
[2] = "[Reg]",
[3] = "[VIP]",
[4] = "[Moder]",
[0] = "[Master]",
[-1] = "[Unreg]"
}

RangeDesc = {
[1]="10.202.0.0-10.202.255.255-[Щёлково]", -- Забиваем сдесь свой диапазон и название Сети (без пробела), далее продолжаем так же под следующим номером , диапазоном и названием
[2]="172.20.0.0-172.20.255.255-[Щёлково]", -- и так далее , только следите чтобы диапазоны не пересекались )) , у меня забито более 130 диапазонов
[3]="192.168.0.0-192.168.255.255-[Щёлково]",
[4]="10.239.0.0-10.239.255.255-[Ивантеевка]",
}

-- Info Path --
InfoLog = "UserInfo/" -- Create this folder before starting the script

function OnStartup()

end

-- New User Connect Info Arrival
function MyINFOArrival(curUser,data)
Core.GetUserAllData(curUser)
if GetTimer() == nil then StartTimer() end
end

function OnTimer(tmr)
OverWrite(HubBot)
TmrMan.RemoveTimer(tmr)
end

function rebuilmyinfo(curUser)
local descript,userip = nil,calcip(curUser.sIP)
if userip ~= 0 then
for index,descIP in pairs(RangeDesc) do
local _,_,startRange,endRange,RangeDescript = string.find(descIP, "(.*)-(.*)-(.*)")
startRange = calcip(startRange)
endRange = calcip(endRange)
if userip>=startRange and userip<=endRange then
descript = RangeDescript
end
end
if descript == nil then descript = "[хз]" end -- в скобках название для неизвестной Сети (пишем своё , только без пробела)
local s,e,nick,desc,speed,email,share = string.find(curUser.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
local addtag = tProfileTag[curUser.iProfile].." "..descript
Core.SendToAll("$MyINFO $ALL "..nick.." "..addtag.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end


function calcip(ipcalc)
local _,_,a,b,c,d = string.find(ipcalc, "(%d+).(%d+).(%d+).(%d+)")
local calc = 0
if (tonumber(a) and tonumber(b) and tonumber© and tonumber(d)) then
calc = a*16777216 + b*65536 + c*256 + d
return calc
else return 0
end
end

function OverWrite(curUser)
local tableover = Core.GetOnlineUsers(true)
for i, Userover in pairs(tableover) do
rebuilmyinfo(Userover)
end
end

но скрипт выдаёт ошибку и не запускается(((((, может кто-нибудь посмотрит в чём может быть дело? after_boom.gif

Помогите кто может.
Прикрепленные файлы
Прикрепленный файл  IPcheckDescription.jpg ( 23.39 килобайт ) Кол-во скачиваний: 52
 
Go to the top of the page
+Quote Post
Wariner
сообщение 29.8.2009, 21:50
Сообщение #2


Самый главный активист :-D
***********

Группа: Модераторы
Сообщений: 2 790
Регистрация: 29.6.2008
Из: г. Тула
Пользователь №: 97
Спасибо сказали: 440 раз




неужели так трудно поискать???????????????????????????


http://mydc.ru/topic250.html?p=1480&#entry1480
http://mydc.ru/topic409.html

и это только 2 из нескольких тем!!!!


Спасибо сказали:
Go to the top of the page
+Quote Post
DriverZX-10
сообщение 29.8.2009, 22:44
Сообщение #3


Участник
**

Группа: Пользователи
Сообщений: 41
Регистрация: 25.8.2009
Из: Московская область,Электроугли
Пользователь №: 4 252
Спасибо сказали: 1 раз




Низкий поклон!
Честно я искал)) confuse.gif
Go to the top of the page
+Quote Post

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

Collapse

> Похожие темы

  Тема Ответов Автор Просмотров Последнее сообщение
No new Topic has attachmentsНерабочий скрипт ВИПа по шаре
16 Damaks 18 462 23.2.2023, 7:16 Посл. сообщение: mod
No new Topic has attachmentsMagneto - Бесплатный Скрипт Портала Обмена Dc-ссылками Для Локальной Сети
26 UserSide 39 269 27.8.2019, 11:01 Посл. сообщение: CyberGhost404
No New Posts От: Новогодний Скрипт
От темы с ID: 871
0 Евгений 2 782 15.10.2018, 21:44 Посл. сообщение: Евгений
No New Posts А бывают такой скрипт бота?
Скрипт который создает виртуалных юзеров, но с реальными шарами
5 MarkDark 7 308 26.12.2017, 10:47 Посл. сообщение: мамин_парень
No New Posts Скрипт: Бот который отвечает в лс
4 мамин_парень 6 958 11.11.2017, 5:57 Посл. сообщение: мамин_парень
No New Posts как сделать вот этот скрипт
12 мамин_парень 11 098 13.9.2017, 10:51 Посл. сообщение: dimetro
No New Posts Topic has attachmentsИщу скрипт переадресации (redirect)
Переадресация интернет-юзеров
3 AS_Com 6 590 27.8.2017, 8:05 Посл. сообщение: Ksan
No New Posts Topic has attachmentsСкрипт Thunder.lua
7 Евген76 14 492 9.8.2017, 11:48 Посл. сообщение: Ksan
No New Posts Требуется скрипт
Нужен скрипт запрета на подключение
5 Nikolaevich 8 776 20.8.2016, 19:52 Посл. сообщение: Ksan
No new ВАЖНО: Topic has attachmentsСкрипт банов для RusHub
тестим и комменьтруем
79 Wariner 99 143 28.9.2015, 13:34 Посл. сообщение: NeirRon
No New Posts Скрипт загрузки файла
1 FreeNas 5 976 21.7.2015, 10:58 Посл. сообщение: HackFresse
No new Как вызвать bash скрипт из Lua
14 Iskandark 15 929 3.3.2015, 12:42 Посл. сообщение: Iskandark
No new Topic has attachmentsНовогодний Скрипт
API2
22 Tsd 33 756 12.12.2014, 16:28 Посл. сообщение: Tsd
No New Posts Скрипт запрета видеть чат
запрет видеть чат
2 dimetro 6 795 5.12.2014, 17:37 Посл. сообщение: dimetro
No New Posts Topic has attachmentsпеределать скрипт kinozal.tv
6 BOKOREZ 11 998 30.10.2014, 18:29 Посл. сообщение: Dani_Filth

 



RSS Сейчас: 28.3.2024, 11:37