Need Virtual Device for Pioneer VSX 923

[Splinter 0]

Hello everybody

 

I need a Virtual Device for my Pioneer VSX 923

I need the following buttons:

Power ON

Power OFF

Mute

Slider for volume level

Outputs buttons for all HDMI

Thank you for your help.

[Splinter 0]

POWER ON:

--[[
%% properties
%% globals
--]]

fibaro:log("Start process");

local _deviceIp = "192.168.1.200";
local _devicePort = 23;
local _maxRetryProcess = 2;

local function _process(retry)
    retry = retry or 0;
    --open the socket
    local tcpSocket = Net.FTcpSocket(_deviceIp, _devicePort);
    --set the read timeout
    tcpSocket:setReadTimeout(250);
    --notify user
    fibaro:log("Try Power ON, #" .. retry .. " please wait...");
    fibaro:sleep(250);    
    --send packet
    local bytes, errorCode = tcpSocket:write("\r\nPO\r\n");
    --check for error     
    if errorCode == 0 then
    --cli should return the string sent if success
    local result = tcpSocket:read();
        -- could compare to the encoded version of the call to confirm success
    fibaro:log(result);
    fibaro:sleep(1000);
    return true;
    else
    if retry < _maxRetryProcess then
        fibaro:log("Retry process, please wait...");
        fibaro:sleep(1000);
        return _process(retry + 1);
    end
    return false;
    end
end

local f, result = pcall(_process);

if (f) then
    if (result == true) then
        fibaro:log("Command successufully transmited.");
    else
        fibaro:log("Cannot send command!");
    end
else
    fibaro:log("Error: " .. f);
end

POWER OFF:

--[[
%% properties
%% globals
--]]

fibaro:log("Start process");

local _deviceIp = "192.168.1.200";
local _devicePort = 23;
local _maxRetryProcess = 2;

local function _process(retry)
    retry = retry or 0;
    --open the socket
    local tcpSocket = Net.FTcpSocket(_deviceIp, _devicePort);
    --set the read timeout
    tcpSocket:setReadTimeout(250);
    --notify user
    fibaro:log("Try Power OFF, #" .. retry .. " please wait...");
    fibaro:sleep(250);    
    --send packet
    local bytes, errorCode = tcpSocket:write("\r\nPF\r\n");
    --check for error     
    if errorCode == 0 then
    --cli should return the string sent if success
    local result = tcpSocket:read();
        -- could compare to the encoded version of the call to confirm success
    fibaro:log(result);
    fibaro:sleep(1000);
    return true;
    else
    if retry < _maxRetryProcess then
        fibaro:log("Retry process, please wait...");
        fibaro:sleep(1000);
        return _process(retry + 1);
    end
    return false;
    end
end

local f, result = pcall(_process);

if (f) then
    if (result == true) then
        fibaro:log("Command successufully transmited.");
    else
        fibaro:log("Cannot send command!");
    end
else
    fibaro:log("Error: " .. f);
end

[Kage 37]

Please login or register to see this link.