MirLua

[unsane]

donald, Да, protocols.CallService не передает контакт.

Добавил новый метод. Заработает в следующем ночнике.

Code: [Select]

local protocols = require('m_protocols')
protocols.CallSendChain(1441, '/GetInfo')

[donald]

unsane Спасибо. Еще вопрос, я не могу из lua выполнить
local user32 = require('c:\\windows\\system32\\user32.dll')
Выходит сообщение файл не найден.
Если дать команду
file = io.open ('c:\\windows\\system32\\user32.dll' , "r") - ошибки нет

[unsane]

Нужно в начале скрипта сделать так:

Code: [Select]

package.cpath = package.cpath .. ';c:\\windows\\system32\\?.dll'
а потом уже дергать require.
Но это не поможет, т.к. луа умеет загружать только те dll, в которых экспортирована специальная функция int luaopen_*(lua_State *L).

[donald]

Здравствуйте, перестал работать метод Message (возвращает nil)
local hHook = m.HookEvent("MirLua/RecvMessage", function(w, l)
    local ccd = CCSDATA(l)
ccd.Message
Случилось это, где-то после с 17 мая.
cdd.hContact - работает.

[unsane]

donald, а так?

Code: [Select]

local hHook = m.HookEvent("MirLua/RecvMessage", function(w, l)
    local ccd = CCSDATA(l)
    local pre = PROTORECVEVENT(ccd.lParam)
    print(pre.Message)
end


[donald]

unsane Так работает

[MisterMyth]

Как можно создать в Туллбаре кнопку "Открыть входящие". Такая есть в протокольном меню mail.ru. Хотелось бы вынести ее в Туллбар... Спасибо.

[unsane]

Code: [Select]

local mbb = require('m_msg_buttonsbar')
local icolib = require('m_icolib')

local moduleName = 'MyReceivedFiles'
local BBBF_ISIMBUTTON = 32
local BBBF_ISRSIDEBUTTON = 128
local bbButton =
{
  Module = moduleName,
  ButtonID = 1,
  Flags = BBBF_ISIMBUTTON | BBBF_ISRSIDEBUTTON,
  Tooltip = m.Translate('My received files'),
  Icon = icolib.AddIcon(moduleName, 'My received files')
}

mbb.AddButton(bbButton)

m.HookEvent("TabSRMM/ButtonsBar/ButtonPressed", function(w, l)
  bcd = CustomButtonClickData(l)
  if bcd.Module == moduleName and bcd.ButtonID == 1 then
    m.CallService('SRFile/OpenContRecDir', bcd.hContact, 0)
  end
end)

local script = {}

function script.Unload()
  mbb.RemoveButton(bbButton.Module, bbButton.ButtonID)
end

return script


[donald]

Здравствуйте, подскажите можно-ли из lua удалить из базы контакт полностью? Команда "db.DeleteModule(nil, 'test')" удаляет только модуль.

[Mikalair]

Code: [Select]

m.CallService("DB/Contact/Delete", hContact)


[DreamFlasher]

Hey, how do I retrieve the protocol in which a message is sent from in the following script:

Code: [Select]

message = require('m_message')
winapi = require('winapi')

m.HookEvent("MirLua/RecvMessage", function(w, l)
  local ccd = CCSDATA(l)
  if ccd.Message == 'stopword' then
    winapi.ShellExecute('command', 'file', 'args', 0)
    message.Send(ccd.hContact, ccd.Message)
    return 1;
  end
end)

[donald]

Здравствуйте, подскажите пожалуйста, можно ли в передать unicode строку функции, созданной в lua, у меня не получается.
Выводится пустая строка, вместо test

Code: [Select]

local winapi = require('winapi')
local hService = m.CreateServiceFunction('CreateFunctionSearch', function(w)
    winapi.MessageBox(_, w, 'Lua', 0, 10000)
    return
end)

result = m.CallService('CreateFunctionSearch', '[b]test[/b]')
 

[unsane]

donald, попробуй

Code: [Select]

u'[b]test[/b]'

[Mikalair]

unsane, не выйдет, wparam не кастится к строке.

[donald]

Не работает. Пока приходит в голову передать строку через базу данных