Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

MyDC.ru _ Помощь по скриптам для PtokaX _ Cкрипт проверки баланса

Автор: RoL 7.6.2013, 12:33

Люди требуеться ваша помащь вот наткнулся тут на итересный скрипт проверки баланса можете сделать так вот сам скрипт

Раскрывающийся текст
CODE
-- Это лучше не трогать:
local http, sScriptCmd, sBot, tAllowUsers
----------------------------------------------------------------------------------------------------
-- Конфиг скрипта:
----------------------------------------------------------------------------------------------------

-- Команда скрипта:
sScriptCmd = "balans"

-- Таймаут подключения к серверу статистики (время на ожидание),
-- столько может висеть скрипт при запросе баланса, в секундах:
iScriptTimeout = 1

-- Профили которые будут иметь доступ к скрипту:
tAllowUsers = {
[0] = true,
[1] = true,
[2] = true,
[3] = true,
[-1] = true,
}

----------------------------------------------------------------------------------------------------
-- Конец конфига!
----------------------------------------------------------------------------------------------------

function OnStartup()
http = require("socket.http")
http.TIMEOUT = iScriptTimeout
sBot = SetMan.GetString(21)
end

function GetData(login, pass)
local a, b = http.request([[http://http://stat.kms.multinex.ru/login=]]..login..[[&pswd=]]..pass..[[&mid=5]])
if b and b == 200 then
local c = a:match("status=\"(%S+)\"")
if c then
if c == "error" then
return "Ошибка логина или пароля"
elseif c == "ok" then
local d = a:match("summa=\"(%S+)%s*\"")
if d then
return "Ваш баланс равен "..d.." руб."
else
return "Сумма не найдена"
end
else
return "Ответ не корректен"
end
else
return "Запрос не корректен"
end
else
return "Запрос не обработан"
end
end

function ChatArrival(tUser, sData)
local sCmd, sElseData = sData:match("^%b<>%s+%p(%S+)%s*(.*)|$")
if sCmd and sCmd == sScriptCmd then
if not tAllowUsers[tUser.iProfile] then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", у тебя нет прав на использование команды '"..sCmd.."'!")
else
if sElseData == "" then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", ты должен ввести логин и пароль!")
else
local sEnteredNick, sEnteredPass = sElseData:match("^(%S+)%s(%S+)$")
if not sEnteredNick or not sEnteredPass then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", ты должен ввести и логин и пароль!")
end
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", "..GetData(sEnteredNick, sEnteredPass))
end
end
return true
end
end

function UserConnected(tUser)
if tAllowUsers[tUser.iProfile] then
Core.SendToUser(tUser, "$UserCommand 1 3 Меню хаба\\Ваш баланс$<%[mynick]> !"..sScriptCmd.." %[line:login] %[line:pass]||")
end
end
OpConnected = UserConnected
RegConnected = UserConnected



мне надо сделеть так чтоб по запросу приходил баланс с етого сайта http://mydc.ru/r/?http://http://stat.kms.multinex.ru

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

Автор: Ksan 7.6.2013, 12:40

RoL, и что вам мешает использовать этот скрипт? Там же тоже тот же сайт используется.
И да, вы ссылку приводите неправильно - лишний префикс http://
И то же самое - в самом скрипте.
И, наконец, - скрипты в сообщениях нужно прятать в спойлеры! (кнопка спойлера - над окном написания сообщения коричневая с буквой S внутри.

Автор: RoL 7.6.2013, 13:22

Цитата(Ksan @ 7.6.2013, 14:40) *
RoL, и что вам мешает использовать этот скрипт? Там же тоже тот же сайт используется.
И да, вы ссылку приводите неправильно - лишний префикс http://
И то же самое - в самом скрипте.
И, наконец, - скрипты в сообщениях нужно прятать в спойлеры! (кнопка спойлера - над окном написания сообщения коричневая с буквой S внутри.


не мог бы помочь я вобще не врубаюсь в луя

Цитата(Ksan @ 7.6.2013, 14:40) *
RoL, и что вам мешает использовать этот скрипт? Там же тоже тот же сайт используется.
И да, вы ссылку приводите неправильно - лишний префикс http://
И то же самое - в самом скрипте.
И, наконец, - скрипты в сообщениях нужно прятать в спойлеры! (кнопка спойлера - над окном написания сообщения коричневая с буквой S внутри.


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

Цитата(RoL @ 7.6.2013, 15:00) *
не мог бы помочь я вобще не врубаюсь в луя



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


На форуме 40 человек и некто помочь не может я вшоки от токого форума


Цитата(RoL @ 7.6.2013, 15:13) *
не мог бы помочь я вобще не врубаюсь в луя



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



На форуме 40 человек и некто помочь не может я вшоки от токого форума


вобще изначально код взят с этого кода

Автор: Ksan 7.6.2013, 13:55

RoL
1. Я никогда не писал скрипты для получения баланса.
2. И даже если бы писал, то вряд ли смог бы вам объяснить что-то, судя по предыдущему вашему комменту.
3. Не спешите огорчаться, возможно, кто-то другой сможет вам помочь, на этом форуме есть такие.

Автор: RoL 7.6.2013, 14:03

Цитата(Ksan @ 7.6.2013, 15:55) *
RoL
1. Я никогда не писал скрипты для получения баланса.
2. И даже если бы писал, то вряд ли смог бы вам объяснить что-то, судя по предыдущему вашему комменту.
3. Не спешите огорчаться, возможно, кто-то другой сможет вам помочь, на этом форуме есть такие.


Врбще скрипт написал Николай но его увы нет на форуме

Автор: Артём 7.6.2013, 14:34

RoL, зачем так много и часто, даже себя, цитируешь?

Автор: RoL 7.6.2013, 14:36

Цитата(Артём @ 7.6.2013, 16:34) *
RoL, зачем так много и часто, даже себя, цитируешь?


Я первый раз пишу на форумах

Автор: Ksan 7.6.2013, 14:48

1.

Цитата(RoL @ 7.6.2013, 18:03) *
Врбще скрипт написал Николай но его увы нет на форуме
Так вот в теме того скрипта и надо было писать свою просьбу!
Ещё и сейчас не поздно написать там. Люди бы хоть знали, о каком скрипте речь идёт и что вы там понаменяли в своей "версии"..
Да и ни к чему пытаться писать своё, если вы даже ссылки не умеете писать и различать неправильную от правильной.. Просто попросите в той теме по аналогу топикового скрипта написать вам другой для получения баланса с представленной вами ссылки.

2. По поводу излишнего цитирования:
-- на этом форуме вообще не принято цитировать из сообщения, если оно последнее в теме (а вы постоянно это делаете),
-- цитировать нужно только то, на что отвечаете, даже хоть два слова из всего сообщения можете привести в цитате,
-- себя цитировать - это ни в какие ворота.

Автор: RoL 7.6.2013, 15:26

Здравствуйте уважаемые прогромисты луя вот столкнулся содним интересным скриптом вот собствено код скрипта

CODE
-- Это лучше не трогать:
local http, sScriptCmd, sBot, tAllowUsers
----------------------------------------------------------------------------------------------------
-- Конфиг скрипта:
----------------------------------------------------------------------------------------------------

-- Команда скрипта:
sScriptCmd = "balans"

-- Таймаут подключения к серверу статистики (время на ожидание),
-- столько может висеть скрипт при запросе баланса, в секундах:
iScriptTimeout = 1

-- Профили которые будут иметь доступ к скрипту:
tAllowUsers = {
[0] = true,
[1] = true,
[2] = true,
[3] = true,
[-1] = true,
}

----------------------------------------------------------------------------------------------------
-- Конец конфига!
----------------------------------------------------------------------------------------------------

function OnStartup()
http = require("socket.http")
http.TIMEOUT = iScriptTimeout
sBot = SetMan.GetString(21)
end

function GetData(login, pass)
local a, b = http.request([[http://billing:8080/balance_sender?login=]]..login..[[&pswd=]]..pass..[[&mid=5]])
if b and b == 200 then
local c = a:match("status=\"(%S+)\"")
if c then
if c == "error" then
return "Ошибка логина или пароля"
elseif c == "ok" then
local d = a:match("summa=\"(%S+)%s*\"")
if d then
return "Ваш баланс равен "..d.." руб."
else
return "Сумма не найдена"
end
else
return "Ответ не корректен"
end
else
return "Запрос не корректен"
end
else
return "Запрос не обработан"
end
end

function ChatArrival(tUser, sData)
local sCmd, sElseData = sData:match("^%b<>%s+%p(%S+)%s*(.*)|$")
if sCmd and sCmd == sScriptCmd then
if not tAllowUsers[tUser.iProfile] then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", у тебя нет прав на использование команды '"..sCmd.."'!")
else
if sElseData == "" then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", ты должен ввести логин и пароль!")
else
local sEnteredNick, sEnteredPass = sElseData:match("^(%S+)%s(%S+)$")
if not sEnteredNick or not sEnteredPass then
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", ты должен ввести и логин и пароль!")
end
Core.SendToUser(tUser, "<"..sBot.."> *** "..tUser.sNick..", "..GetData(sEnteredNick, sEnteredPass))
end
end
return true
end
end

function UserConnected(tUser)
if tAllowUsers[tUser.iProfile] then
Core.SendToUser(tUser, "$UserCommand 1 3 Меню хаба\\Ваш баланс$<%[mynick]> !"..sScriptCmd.." %[line:login] %[line:pass]||")
end
end
OpConnected = UserConnected
RegConnected = UserConnected



Помогите настроить скрипт так чтоб он отсылал мой баланс с этого сайта http://mydc.ru/r/?http://kms.multinex.ru

Сам пробывал ннастроить уменя не получилась прошу вас помочь

Автор: RoL 7.6.2013, 15:32

Лююди момогити сделать срочно нужен плиз

Вот сылка http://mydc.ru/r/?http://stat.kms.multinex.ru нашей сети

Автор: Ksan 7.6.2013, 15:36

RoL, я фигею с вас.. :((

Автор: RoL 7.6.2013, 15:40

Всё я разобрался тут не много

Елиб я часто тут писал тогда ладно а я первый раз так сказать познавающий big_smile.gif

Автор: Saymon21 7.6.2013, 19:10

Во первых, данный скрипт мало кому нужен. А раз так, только спец. заказом и за какое-то $$.
Во вторых, кастыли изобретать как-то не особо охота. Был-бы REST-API...
В третих, слишком мало информации для реализации. Откуда нам знать, как оно всё выглядит из нутри? Нужен доступ, имхо.

Автор: Артём 7.6.2013, 20:02

Цитата(RoL @ 7.6.2013, 15:26) *
Код
local a, b = http.request([[http://billing:8080/balance_sender?login=]]..login..[[&pswd=]]..pass..[[&mid=5]])

почему ссылка не та стоит? там же http://mydc.ru/r/?http://issa.kms.multinex.ru/index.php?r=site/login

Автор: RoL 8.6.2013, 16:08

вотт могу придоставить пароль и логи kmsnet033221c авот пароль 89098460373 это для того чтоб вы посмотрели как всё состоит из нутри


если чё котособерётся мне помочь можете поситить мой хаб вот адрес dchub://dc.kommfort.ru мой ник на хабе Rol

Автор: Артём 8.6.2013, 18:08

RoL, бесишь уже!!!
ХВАТИТ в двух темах писать одно и то же нытьё!!!

Автор: RoL 8.6.2013, 18:25

Давай умный подскажи что писать big_smile.gif

Автор: Артём 8.6.2013, 18:35

RoL, тебе здесь никто и ничего не должен, так что отдыхай и меньше флуда.

Автор: RoL 8.6.2013, 18:48

Я не не су флуд я просто общаюсь с людьми в этом чате и попросил помощи сволиш

Если не в силах вышие ума помочь в этом так и скажите и я пойму точто тут всем похер на всех
А если вам надо за плотить за это на зовите вашу ссумму и я подумаю над этим

Автор: Nickolya 8.6.2013, 23:18

Тему закрываю, все обсуждение дальше http://mydc.ru/topic2612.html.