Changes for page 2 Script

Last modified by Devin Chen on 2025/06/06 14:03

From 16.1 to 15.2 From 30.1 to 29.1

From version 29.1

edited by Hunter
on 2022/11/21 17:30

Change comment: There is no comment for this version

To version 16.1

edited by Leo Wei
on 2022/07/09 17:46

Change comment: There is no comment for this version

Raw
Rendered

Summary

Page properties (2 modified, 0 added, 0 removed)
Attachments (0 modified, 0 added, 2 removed)
- InputHTTPparameter.png
- image-20220709173500-1.png

Details

Page properties

Author

@@ -1,1 +1,1 @@
--XWiki.Hunter
++XWiki.admin

Content

@@ -13,7 +13,7 @@
  for example. addr_setshort(addr,num) Function: Write 16-bit signed decimal address
  addr_getshort(addr) Function:Read 16-bit signed decimal address
  addr_getword(string addr)Function: Read 16-bit unsigned decimal address
--More script function are in the second section of  [[“V-BOX Script Interface Manual”>>doc:V-BOX.V-Net.Manual.04 Lua Script.01 Lua Functions.WebHome]]
++More script function are in the second section of  [[“V-BOX Script Interface Manual”>>doc:V-BOX.V-Net.1\.User Manual.04 Lua Script.01 Lua Functions.WebHome]]
  == **1.2 Arithmetic** ==
@@ -36,46 +36,39 @@
  Script is as below:
--(% class="box infomessage" %)
--(((
++{{code language="Lua"}}
  function sms.main()
--~-~-~-~-~-~-send condition~-~-~-~-~-~-
++------send condition------
  local temp1 = addr_getword("@Temperature1")
  local temp2 = addr_getword("@Temperature2")
  local temp3 = addr_getword("@Temperature3")
  local timer = addr_getword("@Timer")
  local tag = addr_getbit("@Tag")
--~-~-~-~-~-~-lasting time~-~-~-~-~-~-
++------lasting time------
  if temp1 > 5 and temp2 > 10 and temp3 < 20 then
--    timer = timer + 1
--    addr_setword("@Timer",timer)
++ timer = timer + 1
++ addr_setword("@Timer",timer)
  else
--    timer = 0
--    addr_setword("@Timer",timer)
++ timer = 0
++ addr_setword("@Timer",timer)
  end
--~-~-~-~-~-~-send sms & output Y0~-~-~-~-~-~-
++------send sms & output Y0------
  if timer > 5 then
--    if tag == 0 then
--        send_sms_ira("19859254700","alarm trigger")
--        addr_setbit("@Tag",1)
--    end
++ if tag == 0 then
++  send_sms_ira("19859254700","alarm trigger")
++  addr_setbit("@Tag",1)
++ end
  elseif tag == 1 then
  send_sms_ira("19859254700","alarm release")
  addr_setbit("@Tag",0)
  end
  end
--)))
++{{/code}}
  == **1.5 Telegram notification** ==
  This example shows how to use the Bot API to send message into Telegram group or channel. When monitoring bit "@HDX" changes, it will trigger and send the message. Please replace with your own Token and chat id.
--As for How to get the botToken and chatID, please check the followig videos:
--
--[[https:~~/~~/www.youtube.com/watch?v=zh6yYlnjX7k>>https://www.youtube.com/watch?v=zh6yYlnjX7k]]
--
--[[https:~~/~~/www.youtube.com/watch?v=Pj8mwuMZZvg>>https://www.youtube.com/watch?v=Pj8mwuMZZvg]]
--
  {{code language="Lua"}}
  local tempBit = 0
  local tempWord = 0
@@ -141,313 +141,7 @@
  end
  {{/code}}
--== **1.6 LINE Notify** ==
--This example shows how to use the LINE Notify to send message into LINE group. When monitoring bit "@test" changes, it will trigger and send the message. Please replace with your own Token.
--
--{{code}}
--local tempBit = 0
--local tempWord = 0
--
--local LineToken = "08XCpubkOdwGdGgRTXF0x8umiyrALtoM0v6lBFUV6PC"
--
--local https = require("https")
--local json = require("json")
--local ltn12 = require("ltn12")
--
---- Send http.get request and return response result
--function getHttpsUrl(url,header,reqbody)
--    local body = {}
--    local bodyJson = json.encode(body)
--    local result_table, code, headers, status = https.request{
--        method = "POST",
--        url = url,
--        source = ltn12.source.string(reqbody),
--        headers = header,
--        sink = ltn12.sink.table(body)
--   }
--    print("code:"..code)
--    if code~= 200 then
--        return
--    else
--        return body
--    end
--end
--
--function getMessageUrl(lineMessage)
--    local url = "https://notify-api.line.me/api/notify"
--    local reqMess = "message="..lineMessage
--    local headers =
--                {
--                        ["Authorization"] = "Bearer "..LineToken,
--                        ["Content-Type"] = "application/x-www-form-urlencoded",
--                        ["Content-Length"] = #reqMess
--                }
--
--    print("Get the link:"..url)
--    getHttpsUrl(url, headers, reqMess)
--end
--
--
--function linenotify.main()
--    local bitValue = addr_getbit("@test");
--    local message = ''
--    print("b=="..bitValue)
--    if bitValue == 1 and bitValue ~= tempBit then
--        message = 'Alarm V-Box triggered, the output is '.. bitValue
--        getMessageUrl(message)
--        print("Notification pushed of triggering alarm,"..bitValue)
--    elseif bitValue == 0 and bitValue ~= tempBit then
--        message = 'Alarm V-Box dismissed, the output is '.. bitValue
--        getMessageUrl(message)
--        print("Notification pushed of dismissing alarm,"..bitValue)
--    end
--    tempBit = bitValue----Prevent monitoring values from continuous being sent to the platform
--
--    local wordValue = addr_getword("@t2")
--    print("w=="..wordValue)
--    --dosomething
--    if wordValue >= 100 and wordValue ~= tempWord and tempWord <= 100 then
--        message = 'Alarm V-Box triggered, the temperature is '.. wordValue
--        getMessageUrl(message)
--        print("Notification pushed of triggering alarm,"..wordValue)
--    elseif wordValue < 100 and wordValue ~= tempWord and tempWord >= 100 then
--        message = 'Alarm V-Box dismissed, the temperature is '.. wordValue
--        getMessageUrl(message)
--        print("Notification pushed of dismissing alarm,"..wordValue)
--    end
--    tempWord = wordValue----Prevent monitoring values from continuous being sent to the platform
--end
--{{/code}}
--
--== **1.7 Twilio WhatsApp Messaging** ==
--
--This example shows how to use the Twilio API to send WhatsApp message to private number. When monitoring bit "@testBit" changes, it will trigger and send the message. Please replace with your own SID, Token, twilioPhoneNumber and receiverPhoneNumber.
--
--About how to register the Twilio API, please check the following video:
--
--[[https:~~/~~/www.youtube.com/watch?v=Id4lKichauU>>https://www.youtube.com/watch?v=Id4lKichauU]]
--
--{{code language="Lua"}}
--local tempBit = 0
--local tempWord = 0
--
--local https = require("https")
--local json = require("json")
--local ltn12 = require("ltn12")
--
--local SID = 'AC1703bd710ffa98006d2bcc0b********'
--local Token = 'd3c11897623c39e538b20263ec19****'
--
--local twilioPhoneNumber = '+14155238886'
--local receiverPhoneNumber = '+8615880018277'
--
--local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
--function encodingBase64(data)
--    return ((data:gsub('.', function(x)
--        local r,b='',x:byte()
--        for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end
--        return r;
--    end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x)
--        if (#x < 6) then return '' end
--        local c=0
--        for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end
--        return b:sub(c+1,c+1)
--    end)..({ '', '==', '=' })[#data%3+1])
--end
--
--function encodeUrl(str)
--    str = string.gsub(str, "([^%w%.%- ])", function(c)
--    return string.format("%%%02X", string.byte(c)) end)
--    return string.gsub(str, " ", "+")
--end
--
--
--
--
--function requestBodySplice(message, sender, receiver)
--    local reqBody = ''
--    local encodeMess = encodeUrl(message)
--    local encodeSend = encodeUrl(sender)
--    local encodeRece = encodeUrl(receiver)
--    --reqBody = "Body=Hello%20Wecon2&From=whatsapp%3A%2B14155238886&To=whatsapp%3A%2B8615880018277"
--    reqBody = string.format("Body=%s&From=whatsapp:%s&To=whatsapp:%s", encodeMess, encodeSend, encodeRece)
--    print(reqBody)
--    return reqBody
--end
--
--
---- Send http.get request and return response result
--function getHttpsUrl(url,header,reqbody)
--    local body = {}
--    local bodyJson = json.encode(body)
--    local result_table, code, headers, status = https.request{
--        method = "POST",
--        url = url,
--        source = ltn12.source.string(reqbody),
--        headers = header,
--        sink = ltn12.sink.table(body)
--   }
--    print("code:"..code)
--    if code~= 200 then
--        return
--    else
--        return body
--    end
--end
--
--function getMessageUrl(whatsAppMessage)
--    local auth = SID..':'..Token
--    local url = "https://api.twilio.com/2010-04-01/Accounts/"..SID.."/Messages"
--    --local reqMess = "message="..twilioMessage
--    local reqMess = requestBodySplice(whatsAppMessage, twilioPhoneNumber, receiverPhoneNumber)
--    local headers =
--                {
--                        ["Authorization"] = "Basic "..encodingBase64(auth),
--                        ["Content-Type"] = "application/x-www-form-urlencoded",
--                        ["Content-Length"] = #reqMess
--                }
--
--    print("Get the link:"..url)
--    getHttpsUrl(url, headers, reqMess)
--end
--
--
--
--function Twilio.main()
--  --dosomething
--  --local auth = SID..':'..Token
--  --print(requestBodySplice("HelloWorld", twilioPhoneNumber, receiverPhoneNumber))
--  --print(encodingBase64(auth))
--  local bitValue = addr_getbit("@testBit");
--    local message = ''
--    print("b=="..bitValue)
--    if bitValue == 1 and bitValue ~= tempBit then
--        message = 'Alarm V-Box triggered, the output is '.. bitValue
--        getMessageUrl(message)
--        print("Notification pushed of triggering alarm,"..bitValue)
--    elseif bitValue == 0 and bitValue ~= tempBit then
--        message = 'Alarm V-Box dismissed, the output is '.. bitValue
--        getMessageUrl(message)
--        print("Notification pushed of dismissing alarm,"..bitValue)
--    end
--    tempBit = bitValue----Prevent monitoring values from continuous being sent to the platform
--
--    local wordValue = addr_getword("@testWord")
--    print("w=="..wordValue)
--    --dosomething
--    if wordValue >= 100 and wordValue ~= tempWord and tempWord <= 100 then
--        message = 'Alarm V-Box triggered, the temperature is '.. wordValue
--        getMessageUrl(message)
--        print("Notification pushed of triggering alarm,"..wordValue)
--    elseif wordValue < 100 and wordValue ~= tempWord and tempWord >= 100 then
--        message = 'Alarm V-Box dismissed, the temperature is '.. wordValue
--        getMessageUrl(message)
--        print("Notification pushed of dismissing alarm,"..wordValue)
--    end
--    tempWord = wordValue----Prevent monitoring values from continuous being sent to the platform
--end
--{{/code}}
--
--
--== **1.8 How to parse value from HTTP response body** ==
--
--This example use [[https:~~/~~/www.weatherapi.com/>>https://www.weatherapi.com/]] as example, to show how to parse value from HTTP response body. When we input the city name into address "@HDW5050":
--
--(% style="text-align:center" %)
--[[image:InputHTTPparameter.png]]
--
--Then the response body would be like as following:
--
--{{code language="json"}}
--{
--    "location": {
--        "name": "Madrid",
--        "region": "Madrid",
--        "country": "Spain",
--        "lat": 40.4,
--        "lon": -3.68,
--        "tz_id": "Europe/Madrid",
--        "localtime_epoch": 1669022636,
--        "localtime": "2022-11-21 10:23"
--    },
--    "current": {
--        "last_updated_epoch": 1669022100,
--        "last_updated": "2022-11-21 10:15",
--        "temp_c": 13.0,
--        "temp_f": 55.4,
--        "is_day": 1,
--        "condition": {
--            "text": "Partly cloudy",
--            "icon": "//cdn.weatherapi.com/weather/64x64/day/116.png",
--            "code": 1003
--        },
--        "wind_mph": 11.9,
--        "wind_kph": 19.1,
--        "wind_degree": 210,
--        "wind_dir": "SSW",
--        "pressure_mb": 1015.0,
--        "pressure_in": 29.97,
--        "precip_mm": 0.0,
--        "precip_in": 0.0,
--        "humidity": 88,
--        "cloud": 75,
--        "feelslike_c": 10.8,
--        "feelslike_f": 51.4,
--        "vis_km": 10.0,
--        "vis_miles": 6.0,
--        "uv": 3.0,
--        "gust_mph": 22.1,
--        "gust_kph": 35.6
--    }
--}
--{{/code}}
--
--(% class="wikigeneratedid" %)
--So we decode json into lua object to assign the value into addresses HDW6060(temperature), HDW7070(humidity) the code example like follows:
--
--{{code language="lua"}}
--local APIkey = '70faaecf926b4341b1974006221711'
--
--
--local http = require("socket.http")
--local json = require("json")
--
---- Send http.get request and return response result
--function getHttpsUrl(url)
--    local result_table, code, headers, status = http.request(url)
--    print("code:"..code)
--    if code~= 200 then
--        return
--    else
--        return result_table
--    end
--end
--
--function sendAPI(key, city)
--    local url = "http://api.weatherapi.com/v1/current.json?key="..key.."&q="..city.."&aqi=no"
--    --local url = 'http://v-box.net'
--    --local url = 'https://www.google.com/'
--    --http://api.weatherapi.com/v1/current.json?key=70faaecf926b4341b1974006221711&q=Barcelona&aqi=no
--    print("Get the link:"..url)
--    local body = getHttpsUrl(url)
--    --print(body)
--    local jsonBody = json.decode(body)
--    --print(jsonBody["current"]["temp_c"])
--    --print(type(jsonBody["current"]["temp_c"]))
--    --print(type(jsonBody["current"]["humidity"]))
--    addr_setfloat("@HDW6060", jsonBody["current"]["temp_c"])
--    addr_setword("@HDW7070", jsonBody["current"]["humidity"])
--end
--
--
--function Weather.main()
--    local cityName = addr_getstring("@HDW5050",6)
--    print("cityName: "..cityName)
--    sendAPI(APIkey, cityName)
--end
--{{/code}}
--
  = **2 V-Box connect with third part server** =
  V-Box have two mode.One is for V-Net,User need to use WECON server to store data.We call this V-NET platform.
@@ -466,273 +466,157 @@
  (% class="mark" %)2.If your server requires SSL certificate to log in,please use OpenCloud.Because only OpenCloud platform can support to upload certificate
--(% class="wikigeneratedid" %)
--**✎Note: **Before program the script of MQTT, please make sure the server(MQTT broker) can be connected through MQTT Client tool.
++== **2.1 V-Box connect with customer server:grouprobotinfo.com** ==
--(% class="wikigeneratedid" %)
--Tool link: **[[MQTT.fx>>http://mqttfx.jensd.de/index.php/download]]**
++This demo does not use SSL certification. Script is as below
--== **2.1 V-Box connect with test server(General Example)** ==
++Demo1:
--{{code language="lua"}}
----MQTT configuration table
--local MQTT_CFG={}
--MQTT_CFG.username = "weconsupport"
--MQTT_CFG.password = "123456"
--MQTT_CFG.netway = 0
--MQTT_CFG.keepalive = 60
--MQTT_CFG.cleansession = 1
----TCP URL
--MQTT_URL = "tcp://mq.tongxinmao.com:1883"
----Client ID
--MQTT_CLIENT_ID = "V-BOXH-AG"
++{{code language="Lua"}}
++-- Meta class
++--main
++function mq.main()
++ if not mq.m then
++  local err = ""
----Generate UUID
--function uuid()
--    local seed = {'e','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'}
--    local tb = {}
--    for i=1, 32 do
--        table.insert(tb, seed[math.random(1,16)])
--    end
--    local sid=table.concat(tb)
--    return string.format('%s',
--        string.sub(sid,1,32)
--    )
--end
++  mq.m, err = mqtt.create("tcp://grouprobotinfo.com:1883", "ClienID")  -- create connection
++  if mq.m then
++   mq.config = {
++    username = "",-- ID
++    password = "",-- password
++    netway = 1, -- Ethernet connection, WIFI=1
++    -- keepalive = 100, -- Optional, set the connection heartbeat interval for 100 seconds.
++    -- cleansession = 0, -- Optional, keep session
++   }
++   mq.m:on("message", function(topic, msg) -- Register for receiving message callbacks
++    local str = string.format("%s:%s", topic, msg)
++    -- print("mqtt msg:", str) -- Print out the received topics and content
++   end
++   )
++   mq.m:on("offline", function (cause) -- Register for lost connection callbacks
++    -- addr_setstring("@xxx", "cause"..(cause or " got nil"))
++   end)
++   mq.m:on("arrived", function() -- Registration for sending messages to callbacks
++    print("msg arrived")
++   end)
++  else
++   print("mqtt create failed:", err) -- Create object failed
++  end
++ else
++  if mq.m:isconnected() then -- If online, post a message
++     local phaseStatus ="unknow"
++     if addr_getbit("@Standby")== 1 then
++         phaseStatus = "Standby"
++     elseif addr_getbit("@Pre-Freeze")==1 then
++         phaseStatus= "Pre-Freeze"
++     elseif addr_getbit("@Prepare")==1 then
++         phaseStatus ="Prepare"
++     elseif addr_getbit("@Primary Dry")==1 then
++         phaseStatus = "Primary dry"
++     elseif addr_getbit("@Secondary Dry")==1 then
++         phaseStatus = "Secondary Dry"
++     end
++--   print(addr_getbit("@Primary Dry"))
++-------------------------------------------------------------------------------------------------------------------------
++     local activating ="unknow"
++     if addr_getbit("@Compressor")==1 then
++         activating = ",".."Compressor"
++     end
++     if addr_getbit("@Silicone Pump")==1 then
++         activating = activating..",".."Silicone Pump"
++     end
++     if addr_getbit("@Vacuum Pump")==1 then
++         activating = activating..",".."Vacuum Pump"
++     end
++     if addr_getbit("@Root Pump")==1 then
++         activating = activating..",".."Root Pump"
++     end
++     if addr_getbit("@Heater")==1 then
++         activating = activating..",".."Heater"
++     end
++     if addr_getbit("@Valve Silicone")==1 then
++         activating = activating..",".."Valve Silicone"
++     end
++     if addr_getbit("@Valve Ice Condenser")==1 then
++         activating = activating..",".."Valve Ice Condenser"
++     end
++     if addr_getbit("@Valve Vacuum Pump")==1 then
++         activating = activating..",".."Valve Vacuum Pump"
++     end
++     local pr_activating =string.sub(activating,2)
++    --  print(pr_activating)
----Topic name to subscribed
--local SUBSCRIBE_TOPIC = 'testtopic/test/no1/123456'
----Topic name to be published
--local PUBLISH_TOPIC = 'testtopic/test/no1/7890'
++     local status_text ="unknow"
++     if addr_getbit("@Status Run")==1 then
++         status_text = "RUNNING"
++     else
++         status_text = "STOP"
++     end
++-------------------------------------------------------------------------------------------------------------------------
++     local js =  {type="status",
++                  mc_name ="FD300",
++                  status=status_text,
++                  elapsed_time={
++                                hour=addr_getword("@Elapsed Time (Hour)"),
++                                min=addr_getword("@Elapsed Time (Minute)"),
++                                sec=addr_getword("@Elapsed Time (Second)")
++                                },
++                   phase = phaseStatus,
++                   step = addr_getword("@Step"),
++                   activating_output = pr_activating,
++                   sv=addr_getshort("@SV Silicone")/10,
++                   pv=addr_getshort("@PV Silicone")/10,
++                   product1=addr_getshort("@Product 1")/10,
----real time
--local LAST_TIME = 0
++                   product2=addr_getshort("@Product 2")/10,
++                   product3=addr_getshort("@Product 3")/10,
++                   product4=addr_getshort("@Product 4")/10,
++                   ice1=addr_getshort("@Ice condenser 1")/10,
++                   ice2=addr_getshort("@Ice condenser 2")/10,
++                   vacuum=addr_getfloat("@Vacuum")
++                }
++     local jsAlarm = {  HPC = addr_getbit("@B_25395#W0.00"),
++                        ODPC = addr_getbit("@B_25395#W0.01"),
++                        MTPC=addr_getbit("@B_25395#W0.02"),
++                        HTT = addr_getbit("@B_25395#W1.03"),
++                        CPC = addr_getbit("@B_25395#W0.08"),
++                        CPSP =addr_getbit("@B_25395#W1.00"),
++                        CPVP =addr_getbit("@B_25395#W0.10"),
++                        CPRP =addr_getbit("@B_25395#W0.11"),
++                        HP =addr_getbit("@B_25395#W1.01"),
++                        PP= addr_getbit("@B_25395#W1.02"),
++                        PO=addr_getbit("@B_25395#W0.07"),
++                        FSE=addr_getbit("@B_25395#W2.04"),
++                        AVVSVV=addr_getbit("@B_25395#W1.12"),
++                        ICHT=addr_getbit("@B_25395#W3.06")
++
++                }
----initialize mqtt
--function mqtt_init()
--    print(string.format("mqtt init mqtt_url:%s mqtt_clientid:%s", MQTT_URL, MQTT_CLIENT_ID))
--    g_mq, err = mqtt.create(MQTT_URL, MQTT_CLIENT_ID) -- create mqtt object,and declare it as a global variable
--    if g_mq then
--        g_mq:on("message", mqtt_msg_callback) -- Register a callback for receiving messages
--        print("mqtt init success")
--    else
--        print("mqtt init failed:", err)
--    end
--end
++    -- ("@B_25395#CIO1.02")
++     mq.m:publish("mqtt-v-box-epsilon-fd300", json.encode(js) , 0, 0)
++     mq.m:publish("mqtt-v-box-epsilon-alarm-fd300", json.encode(jsAlarm) , 0, 0)
++  else
++   local stat, err = mq.m:connect(mq.config) -- connection
++   if stat == nil then --Determine whether to connect
++    print("mqtt connect failed:", err)
++    return -- Connection failed, return directly
++   end
++   mq.m:subscribe("mqtt-v-box-epsilon", 0)-- Subscribe to topics
---- connect to mqtt
--function mqtt_connect()
--    print("mqtt connecting...")
--    local stat, err = g_mq:connect(MQTT_CFG)
--    if stat == nil then
--        print("mqtt connect failed:", err)
--        return
--    else
--        print("mqtt connected")
--    end
--    g_mq:subscribe(SUBSCRIBE_TOPIC, 0)
++  end
++  -- mq.m:unsubscribe("stc/test")
++  -- mq.m:disconnect() -- close matt
++  -- mq.m:close() -- close clase
++ end
  end
--
---- Received message callback function
--function mqtt_msg_callback(topic, msg)
--    print("topic:", topic)
--    print("msg:", msg)
--    local objMsg = json.decode(msg)
--    local water = objMsg.data.waterlevel
--    local temp = objMsg.data.temperature
--    addr_setword("@HDW20",water)
--    addr_setword("@HDW10",temp)
--end
--
----Send data (data upload to platform and encapsulate it with custom functions)
--function send_data()
--    local pub_data = {
--        timestamp = os.time(),
--        messageId = 1,
--        event = 'test_data',
--        mfrs = 'V-Box',
--        data = {
--            id = uuid(),
--            waterlevel = addr_getword("@HDW10"),
--            temperature = addr_getword("@HDW20")
--        }
--    }
--    return g_mq:publish(PUBLISH_TOPIC, json.encode(pub_data), 0, 0)
--end
--
--
----main function fixed timed execution
--function MQTT.main()
--    --dosomething
--    print(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " main start")
--    --determine the mqtt object whether exist
--    if g_mq then
--        --determine the mqtt object whether has been connected or not
--        if g_mq:isconnected() then
--            send_data()
--        else
--            --if exceed 20 sec not connect, reconnect once
--            if os.time() - LAST_TIME > 20 then
--                LAST_TIME = os.time()
--                --connect to mqtt or reconnect
--                mqtt_connect()
--            end
--        end
--    else
--        --mqtt object does not exist so create new one
--        mqtt_init()
--    end
--    print(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " main end")
--end
  {{/code}}
--== **2.2 V-Box connect with customer server:grouprobotinfo.com** ==
++== **2.2 V-Box connect with Azure platform** ==
--This demo does not use SSL certification. Script is as below
--
--Demo1:
--
--{{code language="lua"}}
---- Meta class
----main
--function mq.main()
-- if not mq.m then
--  local err = ""
--
--  mq.m, err = mqtt.create("tcp://grouprobotinfo.com:1883", "ClienID")  -- create connection
--  if mq.m then
--   mq.config = {
--    username = "",-- ID
--    password = "",-- password
--    netway = 1, -- Ethernet connection, WIFI=1
--    -- keepalive = 100, -- Optional, set the connection heartbeat interval for 100 seconds.
--    -- cleansession = 0, -- Optional, keep session
--   }
--   mq.m:on("message", function(topic, msg) -- Register for receiving message callbacks
--    local str = string.format("%s:%s", topic, msg)
--    -- print("mqtt msg:", str) -- Print out the received topics and content
--   end)
--   mq.m:on("offline", function (cause) -- Register for lost connection callbacks
--    -- addr_setstring("@xxx", "cause"..(cause or " got nil"))
--   end)
--   mq.m:on("arrived", function() -- Registration for sending messages to callbacks
--    print("msg arrived")
--   end)
--  else
--   print("mqtt create failed:", err) -- Create object failed
--  end
-- else
--  if mq.m:isconnected() then -- If online, post a message
--     local phaseStatus ="unknow"
--     if addr_getbit("@Standby")== 1 then
--      phaseStatus = "Standby"
--     elseif addr_getbit("@Pre-Freeze")==1 then
--      phaseStatus= "Pre-Freeze"
--     elseif addr_getbit("@Prepare")==1 then
--      phaseStatus ="Prepare"
--     elseif addr_getbit("@Primary Dry")==1 then
--      phaseStatus = "Primary dry"
--     elseif addr_getbit("@Secondary Dry")==1 then
--      phaseStatus = "Secondary Dry"
--     end
--     --print(addr_getbit("@Primary Dry"))
---------------------------------------------------------------------------------------------------------------------------
--     local activating ="unknow"
--     if addr_getbit("@Compressor")==1 then
--      activating = ",".."Compressor"
--     end
--     if addr_getbit("@Silicone Pump")==1 then
--      activating = activating..",".."Silicone Pump"
--     end
--     if addr_getbit("@Vacuum Pump")==1 then
--      activating = activating..",".."Vacuum Pump"
--     end
--     if addr_getbit("@Root Pump")==1 then
--      activating = activating..",".."Root Pump"
--     end
--     if addr_getbit("@Heater")==1 then
--      activating = activating..",".."Heater"
--     end
--     if addr_getbit("@Valve Silicone")==1 then
--      activating = activating..",".."Valve Silicone"
--     end
--     if addr_getbit("@Valve Ice Condenser")==1 then
--      activating = activating..",".."Valve Ice Condenser"
--     end
--     if addr_getbit("@Valve Vacuum Pump")==1 then
--      activating = activating..",".."Valve Vacuum Pump"
--     end
--     local pr_activating =string.sub(activating,2)
--    --  print(pr_activating)
--     local status_text ="unknow"
--     if addr_getbit("@Status Run")==1 then
--      status_text = "RUNNING"
--     else
--      status_text = "STOP"
--     end
---------------------------------------------------------------------------------------------------------------------------
--     local js = {type="status",
--        mc_name ="FD300",
--        status=status_text,
--        elapsed_time={
--          hour=addr_getword("@Elapsed Time (Hour)"),
--          min=addr_getword("@Elapsed Time (Minute)"),
--          sec=addr_getword("@Elapsed Time (Second)")
--        },
--        phase = phaseStatus,
--        step = addr_getword("@Step"),
--        activating_output = pr_activating,
--        sv=addr_getshort("@SV Silicone")/10,
--        pv=addr_getshort("@PV Silicone")/10,
--        product1=addr_getshort("@Product 1")/10,
--
--        product2=addr_getshort("@Product 2")/10,
--        product3=addr_getshort("@Product 3")/10,
--        product4=addr_getshort("@Product 4")/10,
--        ice1=addr_getshort("@Ice condenser 1")/10,
--        ice2=addr_getshort("@Ice condenser 2")/10,
--        vacuum=addr_getfloat("@Vacuum")
--     }
--     local jsAlarm = {  HPC = addr_getbit("@B_25395#W0.00"),
--          ODPC = addr_getbit("@B_25395#W0.01"),
--          MTPC=addr_getbit("@B_25395#W0.02"),
--          HTT = addr_getbit("@B_25395#W1.03"),
--          CPC = addr_getbit("@B_25395#W0.08"),
--          CPSP =addr_getbit("@B_25395#W1.00"),
--          CPVP =addr_getbit("@B_25395#W0.10"),
--          CPRP =addr_getbit("@B_25395#W0.11"),
--          HP =addr_getbit("@B_25395#W1.01"),
--          PP= addr_getbit("@B_25395#W1.02"),
--          PO=addr_getbit("@B_25395#W0.07"),
--          FSE=addr_getbit("@B_25395#W2.04"),
--          AVVSVV=addr_getbit("@B_25395#W1.12"),
--          ICHT=addr_getbit("@B_25395#W3.06")
--     }
--     -- ("@B_25395#CIO1.02")
--     mq.m:publish("mqtt-v-box-epsilon-fd300", json.encode(js) , 0, 0)
--     mq.m:publish("mqtt-v-box-epsilon-alarm-fd300", json.encode(jsAlarm) , 0, 0)
--  else
--   local stat, err = mq.m:connect(mq.config) -- connection
--   if stat == nil then --Determine whether to connect
--    print("mqtt connect failed:", err)
--    return -- Connection failed, return directly
--   end
--   mq.m:subscribe("mqtt-v-box-epsilon", 0)-- Subscribe to topics
--
--  end
--  -- mq.m:unsubscribe("stc/test")
--  -- mq.m:disconnect() -- close matt
--  -- mq.m:close() -- close clase
-- end
--end
--{{/code}}
--
--== **2.3 V-Box connect with Azure platform** ==
--
  In this demo,V-Box connects with Azure by SSL certification.
  Video link: [[https:~~/~~/youtu.be/cdI6rIQcpMY?list=PL_Bpnb2RgaksCic9HCcVAZhU9sYwCRKzW>>https://youtu.be/cdI6rIQcpMY?list=PL_Bpnb2RgaksCic9HCcVAZhU9sYwCRKzW]]
@@ -741,129 +741,137 @@
  Script is as below
--(% class="box infomessage" %)
--(((
--~-~-https:~/~/support.huaweicloud.com/qs-IoT/iot_05_0005.html  mqtt.fx monitor to connect azure iot
++{{code language="Lua"}}
++--https://support.huaweicloud.com/qs-IoT/iot_05_0005.html  mqtt.fx monitor to connect azure iot
  sprint = print
--~-~-Get custom configuration parameters (vbox custom information)
--~-~-local CUSTOM = bns_get_config("bind")
--~-~-local DS_ID = CUSTOM.DSID or "60a71ccbbbe12002c08f3a1a_WECON"
++--Get custom configuration parameters (vbox custom information)
++--local CUSTOM = bns_get_config("bind")
++--local DS_ID = CUSTOM.DSID or "60a71ccbbbe12002c08f3a1a_WECON"
--~-~-Cloud mode interface to obtain the MQTT information configured by the cloud platform: (5 returns, namely the server address, client ID, connection table, last word table, certificate table)
++
++--Cloud mode interface to obtain the MQTT information configured by the cloud platform: (5 returns, namely the server address, client ID, connection table, last word table, certificate table)
  local MQTT_URL, MQTT_CLIENTID, MQTT_CFG, MQTT_LWT, MQTT_CART = mqtt.setup_cfg()
--~-~-MQTT_CFG.username = '60a71ccbbbe12002c08f3a1a_WECON'
--~-~-MQTT_CFG.password='wecon123'
--~-~-MQTT_CLIENTID = '60a71ccbbbe12002c08f3a1a_WECON_0_0_2021052110usernxame:60a71ccbbbe12002c08f3a1a_WECONpassword:a0a951581855aa8e0262129da6cf1b43f2c0ecfac4fa56117fc5a20c90be169a'
++--MQTT_CFG.username = '60a71ccbbbe12002c08f3a1a_WECON'
++--MQTT_CFG.password='wecon123'
++--MQTT_CLIENTID = '60a71ccbbbe12002c08f3a1a_WECON_0_0_2021052110usernxame:60a71ccbbbe12002c08f3a1a_WECONpassword:a0a951581855aa8e0262129da6cf1b43f2c0ecfac4fa56117fc5a20c90be169a'
--~-~-publish to topics
++--publish to topics
  local pub_RE_TOPIC = string.format('devices/wecon_02/messages/events/')
--~-~-Subscribe topics
++--Subscribe topics
  local Subscribe_RE_TOPIC1 = string.format('devices/wecon_02/messages/devicebound/#')
--~-~-variable
++--variable
  local last_time = 0
--~-~-Timing main function
++
++--Timing main function
  function Azure.main()
--   sprint(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " Azureiot.main start")
--   if g_mq then
--        if g_mq:isconnected() then
--            send_Data()
--        else
--            if os.time() - last_time > 20 then
--                last_time = os.time()
--                mymqtt_connect()
--            end
--        end
--    else
--        mymqtt_init()
--    end
--    sprint(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " Azureiot.main end")
++   sprint(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " Azureiot.main start")
++   if g_mq then
++        if g_mq:isconnected() then
++            send_Data()
++        else
++            if os.time() - last_time > 20 then
++                last_time = os.time()
++                mymqtt_connect()
++            end
++        end
++    else
++        mymqtt_init()
++    end
++    sprint(os.date("%Y-%m-%d %H:%M %S", os.time()) .. " Azureiot.main end")
  end
--~-~- Initialize MQTT
++-- Initialize MQTT
  function mymqtt_init()
--    sprint(string.format("mqtt init mqtt_url:%s mqtt_clientid:%s", MQTT_URL, MQTT_CLIENTID))
--    g_mq, err = mqtt.create(MQTT_URL, MQTT_CLIENTID) ~-~- Create the object and declare it as a global variable
--    if g_mq then
--        g_mq:on("message", mymqtt_msg_callback) ~-~- Register to receive message callbacks
--        sprint("mqtt init success")
--    else
--        sprint("mqtt init failed:", err)
--    end
++    sprint(string.format("mqtt init mqtt_url:%s mqtt_clientid:%s", MQTT_URL, MQTT_CLIENTID))
++    g_mq, err = mqtt.create(MQTT_URL, MQTT_CLIENTID) -- Create the object and declare it as a global variable
++    if g_mq then
++        g_mq:on("message", mymqtt_msg_callback) -- Register to receive message callbacks
++        sprint("mqtt init success")
++    else
++        sprint("mqtt init failed:", err)
++    end
  end
--~-~- Connect to MQTT server
++-- Connect to MQTT server
  function mymqtt_connect()
--    sprint("mqtt connecting...")
--    local stat, err = g_mq:connect(MQTT_CFG,MQTT_LWT, MQTT_CART)
--    if stat == nil then
--        sprint("mqtt connect failed:", err)
--        return
--    else
--        sprint("mqtt connected")
--    end
--    g_mq:subscribe(Subscribe_RE_TOPIC1, 0)
++    sprint("mqtt connecting...")
++    local stat, err = g_mq:connect(MQTT_CFG,MQTT_LWT, MQTT_CART)
++    if stat == nil then
++        sprint("mqtt connect failed:", err)
++        return
++    else
++        sprint("mqtt connected")
++    end
++    g_mq:subscribe(Subscribe_RE_TOPIC1, 0)
  end
--~-~- Receive MQTT message callback function
++-- Receive MQTT message callback function
  function mymqtt_msg_callback(topic, msg)
--    print("topic:",topic)
--    print("revdata:",msg)
--   ~-~- local revData = json.decode(msg)
-- ~-~-  if topic == Subscribe_RE_TOPIC1 then ~-~-Process topic information subscribed from the cloud
--~-~- if string.match(topic,Subscribe_RE_TOPIC1) then
--     ~-~-   print("topi11:",topic)
--       setValue(revData)
--   ~-~- end
++    print("topic:",topic)
++    print("revdata:",msg)
++   -- local revData = json.decode(msg)
++ --  if topic == Subscribe_RE_TOPIC1 then --Process topic information subscribed from the cloud
++-- if string.match(topic,Subscribe_RE_TOPIC1) then
++     --   print("topi11:",topic)
++       setValue(revData)
++   -- end
  end
--~-~-Process the received data
--~-~-function setValue(revData)
--   ~-~- if revData ~~=nil then
-- ~-~-       for i,v in pairs(revData) do
--  ~-~-          print("Data received：",i,v)
--  ~-~-      end
--   ~-~- end
--~-~-end
++--Process the received data
++--function setValue(revData)
++   -- if revData ~=nil then
++ --       for i,v in pairs(revData) do
++  --          print("Data received：",i,v)
++  --      end
++   -- end
++--end
--~-~-Get real-time data
++--Get real-time data
  function getData()
--    local jdata = {}
--    local addr = bns_get_alldata()
--    print(json.encode(addr))
--    for i,v in pairs(addr) do
--        if v[2] == 1 then
--           jdata[v[3]] = v[4]
--        end
--    end
--    return jdata
--end
++    local jdata = {}
++    local addr = bns_get_alldata()
++    print(json.encode(addr))
++    for i,v in pairs(addr) do
++        if v[2] == 1 then
++           jdata[v[3]] = v[4]
++        end
++    end
++    return jdata
++end
--~-~-send data
++
++--send data
  function send_Data()
--    local pub_data = {100
--     ~-~-   services=~{~{
--\\            ~-~-serviceId ='Temperature',
--           ~-~- properties={
--               ~-~- value = 55
--           ~-~- },
--       ~-~- }}
++    local pub_data = {100
++     --   services={{
++
++            --serviceId ='Temperature',
++           -- properties={
++               -- value = 55
++           -- },
++       -- }}
  }
  sprint(json.encode(pub_data))
  print("..........",pub_RE_TOPIC)
--    return g_mq:publish(pub_RE_TOPIC, json.encode(pub_data), 0, 0)
++    return g_mq:publish(pub_RE_TOPIC, json.encode(pub_data), 0, 0)
  end
--)))
++{{/code}}
--== **2.4 How to configure the Huawei platform?（✎Note: Huawei IOT DA function is only in China area.If you want this function,you need to use chinese mobile to register）** ==
++== **2.3 How to configure the Huawei platform?** ==
++(% class="box infomessage" %)
++(((
++✎Note: Huawei IOT DA function is only in China area.If you want this function,you need to use chinese mobile to register
++)))
++
 .Register a account: [[https:~~/~~/www.huaweicloud.com/intl/en-us/s/JUlPVERNJQ>>https://www.huaweicloud.com/intl/en-us/s/JUlPVERNJQ]]
 .log in the Huawei IOTDA
@@ -1011,7 +1011,7 @@
  (% style="text-align:center" %)
  [[image:1624441186851-536.png||height="434" width="700" class="img-thumbnail"]]
--== **2.5 V-Box connect with Huawei platform** ==
++== **2.4 V-Box connect with Huawei platform** ==
  In this demo,V-Box connects with Huawei by SSL certification.
@@ -1132,7 +1132,7 @@
  (% style="text-align:center" %)
  [[image:1624506666650-161.png||height="547" width="1000" class="img-thumbnail"]]
--== **2.6 V-Box connect with AWS platform** ==
++== **2.5 V-Box connect with AWS platform** ==
  === **Log in AWS** ===
@@ -1189,67 +1189,96 @@
  }
  {{/code}}
--=== **Create things** ===
++1. **Create things**
  Click “Manage”~-~-->“Things”~-~-->“Create things”~-~-->“Create single thing”
--[[image:image-20220709165402-6.png]]
--[[image:image-20220709165402-7.png]]
++|
++| |[[image:image-20220709165402-6.png]]
++|
++| |[[image:image-20220709165402-7.png]]
++
++|
++| |[[image:image-20220709165402-8.png]]
++
  Name the thing~-~-->Click “Next”
--[[image:image-20220709165402-8.png]]
  Select the way to create certificate
--[[image:image-20220709165402-9.png]]
++|
++| |[[image:image-20220709165402-9.png]]
++
  Select policy
--[[image:image-20220709165402-10.png]]
--[[image:image-20220709165402-11.png]]
++|
++| |[[image:image-20220709165402-10.png]]
--=== **Test with MQTT.fx tool** ===
++
++|
++| |[[image:image-20220709165402-11.png]]
++
++1. **Test with MQTT.fx tool**
++
  Click “View Setting” to get the “Broker Adress”
--[[image:image-20220709165402-13.png]]
--[[image:image-20220709165402-12.png]]
++|
++| |[[image:image-20220709165402-12.png]]
--Create one connection in MQTT.fx tool, set broker port as 8883.
++|
++| |[[image:image-20220709165402-13.png]]
--[[image:image-20220709165402-14.png]]
++
++|
++| |[[image:image-20220709165402-14.png]]
++
++Create one connection in MQTT.fx tool, set broker port as 8883.
++
  Upload the CA File, Client Certificate File, Client Key File
--[[image:image-20220709165402-15.png]]
++|
++| |[[image:image-20220709165402-15.png]]
++
  Publish message to topic “TEST”
--[[image:image-20220709165402-17.png]]
--Click”Test”~-~-->”MQTT test client”~-~-->”Subscrible to a topic”, to get message publish from MQTT.fx tool.
++|
++| |[[image:image-20220709165402-16.png]]
--[[image:image-20220709173500-1.png]]
++|
++| |[[image:image-20220709165402-17.png]]
++Click”Test”~-~-->”MQTT test client”~-~-->”Subscrible to a topic”, to get message publish from MQTT.fx tool.
++
  And we can also send message form AWS platform to MQTT.fx tool.
--[[image:image-20220709165402-18.png]]
--=== **Configurate in CloudTool** ===
++|
++| |[[image:image-20220709165402-18.png]]
++1. **Configurate in CloudTool**
++
  Copy the same setting in MQTT.fx to MQTT configuration
--[[image:image-20220709165402-19.png]]
++|
++| |[[image:image-20220709165402-19.png]]
++
   Add a lua script and copy the lua demo into it.
--[[image:image-20220709165402-20.png]]
++|
++| |[[image:image-20220709165402-20.png]]
++
  sprint = print
  ~-~-Cloud mode interface to obtain the MQTT information configured by the cloud platform: (5 returns, namely the server address, client ID, connection table, last word table, certificate table)
@@ -1430,6 +1430,10 @@
  end
++
++
  Get message in AWS
--[[image:image-20220709165402-21.png]]
++
++|
++| |[[image:image-20220709165402-21.png]]

InputHTTPparameter.png

Author

...	...	@@ -1,1 +1,0 @@
1		-XWiki.Hunter

Size

...	...	@@ -1,1 +1,0 @@
1		-17.9 KB

Content

image-20220709173500-1.png

Author

...	...	@@ -1,1 +1,0 @@
1		-XWiki.Jim

Size

...	...	@@ -1,1 +1,0 @@
1		-1.5 MB

Content

Changes for page 2 Script

Summary

Details

Navigation

Table of Contents