Changes for page 2 Script
Last modified by Devin Chen on 2025/06/06 14:03
Summary
-
Page properties (1 modified, 0 added, 0 removed)
Details
- Page properties
-
- Content
-
... ... @@ -70,6 +70,12 @@ 70 70 71 71 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. 72 72 73 +As for How to get the botToken and chatID, please check the followig videos: 74 + 75 +[[https:~~/~~/www.youtube.com/watch?v=zh6yYlnjX7k>>https://www.youtube.com/watch?v=zh6yYlnjX7k]] 76 + 77 +[[https:~~/~~/www.youtube.com/watch?v=Pj8mwuMZZvg>>https://www.youtube.com/watch?v=Pj8mwuMZZvg]] 78 + 73 73 {{code language="Lua"}} 74 74 local tempBit = 0 75 75 local tempWord = 0 ... ... @@ -214,6 +214,135 @@ 214 214 end 215 215 {{/code}} 216 216 223 +== **1.7 Twilio WhatsApp Messaging** == 224 + 225 +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. 226 + 227 +About how to register the Twilio API, please check the following video: 228 + 229 +[[https:~~/~~/www.youtube.com/watch?v=Id4lKichauU>>https://www.youtube.com/watch?v=Id4lKichauU]] 230 + 231 +{{code language="Lua"}} 232 +local tempBit = 0 233 +local tempWord = 0 234 + 235 +local https = require("https") 236 +local json = require("json") 237 +local ltn12 = require("ltn12") 238 + 239 +local SID = 'AC1703bd710ffa98006d2bcc0b********' 240 +local Token = 'd3c11897623c39e538b20263ec19****' 241 + 242 +local twilioPhoneNumber = '+14155238886' 243 +local receiverPhoneNumber = '+8615880018277' 244 + 245 +local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/' 246 +function encodingBase64(data) 247 + return ((data:gsub('.', function(x) 248 + local r,b='',x:byte() 249 + for i=8,1,-1 do r=r..(b%2^i-b%2^(i-1)>0 and '1' or '0') end 250 + return r; 251 + end)..'0000'):gsub('%d%d%d?%d?%d?%d?', function(x) 252 + if (#x < 6) then return '' end 253 + local c=0 254 + for i=1,6 do c=c+(x:sub(i,i)=='1' and 2^(6-i) or 0) end 255 + return b:sub(c+1,c+1) 256 + end)..({ '', '==', '=' })[#data%3+1]) 257 +end 258 + 259 +function encodeUrl(str) 260 + str = string.gsub(str, "([^%w%.%- ])", function(c) 261 + return string.format("%%%02X", string.byte(c)) end) 262 + return string.gsub(str, " ", "+") 263 +end 264 + 265 + 266 + 267 + 268 +function requestBodySplice(message, sender, receiver) 269 + local reqBody = '' 270 + local encodeMess = encodeUrl(message) 271 + local encodeSend = encodeUrl(sender) 272 + local encodeRece = encodeUrl(receiver) 273 + --reqBody = "Body=Hello%20Wecon2&From=whatsapp%3A%2B14155238886&To=whatsapp%3A%2B8615880018277" 274 + reqBody = string.format("Body=%s&From=whatsapp:%s&To=whatsapp:%s", encodeMess, encodeSend, encodeRece) 275 + print(reqBody) 276 + return reqBody 277 +end 278 + 279 + 280 +-- Send http.get request and return response result 281 +function getHttpsUrl(url,header,reqbody) 282 + local body = {} 283 + local bodyJson = json.encode(body) 284 + local result_table, code, headers, status = https.request{ 285 + method = "POST", 286 + url = url, 287 + source = ltn12.source.string(reqbody), 288 + headers = header, 289 + sink = ltn12.sink.table(body) 290 + } 291 + print("code:"..code) 292 + if code~= 200 then 293 + return 294 + else 295 + return body 296 + end 297 +end 298 + 299 +function getMessageUrl(whatsAppMessage) 300 + local auth = SID..':'..Token 301 + local url = "https://api.twilio.com/2010-04-01/Accounts/"..SID.."/Messages" 302 + --local reqMess = "message="..twilioMessage 303 + local reqMess = requestBodySplice(whatsAppMessage, twilioPhoneNumber, receiverPhoneNumber) 304 + local headers = 305 + { 306 + ["Authorization"] = "Basic "..encodingBase64(auth), 307 + ["Content-Type"] = "application/x-www-form-urlencoded", 308 + ["Content-Length"] = #reqMess 309 + } 310 + 311 + print("Get the link:"..url) 312 + getHttpsUrl(url, headers, reqMess) 313 +end 314 + 315 + 316 + 317 +function Twilio.main() 318 + --dosomething 319 + --local auth = SID..':'..Token 320 + --print(requestBodySplice("HelloWorld", twilioPhoneNumber, receiverPhoneNumber)) 321 + --print(encodingBase64(auth)) 322 + local bitValue = addr_getbit("@testBit"); 323 + local message = '' 324 + print("b=="..bitValue) 325 + if bitValue == 1 and bitValue ~= tempBit then 326 + message = 'Alarm V-Box triggered, the output is '.. bitValue 327 + getMessageUrl(message) 328 + print("Notification pushed of triggering alarm,"..bitValue) 329 + elseif bitValue == 0 and bitValue ~= tempBit then 330 + message = 'Alarm V-Box dismissed, the output is '.. bitValue 331 + getMessageUrl(message) 332 + print("Notification pushed of dismissing alarm,"..bitValue) 333 + end 334 + tempBit = bitValue----Prevent monitoring values from continuous being sent to the platform 335 + 336 + local wordValue = addr_getword("@testWord") 337 + print("w=="..wordValue) 338 + --dosomething 339 + if wordValue >= 100 and wordValue ~= tempWord and tempWord <= 100 then 340 + message = 'Alarm V-Box triggered, the temperature is '.. wordValue 341 + getMessageUrl(message) 342 + print("Notification pushed of triggering alarm,"..wordValue) 343 + elseif wordValue < 100 and wordValue ~= tempWord and tempWord >= 100 then 344 + message = 'Alarm V-Box dismissed, the temperature is '.. wordValue 345 + getMessageUrl(message) 346 + print("Notification pushed of dismissing alarm,"..wordValue) 347 + end 348 + tempWord = wordValue----Prevent monitoring values from continuous being sent to the platform 349 +end 350 +{{/code}} 351 + 217 217 = **2 V-Box connect with third part server** = 218 218 219 219 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. ... ... @@ -366,142 +366,134 @@ 366 366 -- Meta class 367 367 --main 368 368 function mq.main() 369 - 370 - 504 + if not mq.m then 505 + local err = "" 371 371 372 - mq.m, err = mqtt.create("tcp://grouprobotinfo.com:1883", "ClienID") -- create connection 373 - if mq.m then 374 - mq.config = { 375 - username = "",-- ID 376 - password = "",-- password 377 - netway = 1, -- Ethernet connection, WIFI=1 378 - -- keepalive = 100, -- Optional, set the connection heartbeat interval for 100 seconds. 379 - -- cleansession = 0, -- Optional, keep session 380 - } 381 - mq.m:on("message", function(topic, msg) -- Register for receiving message callbacks 382 - local str = string.format("%s:%s", topic, msg) 383 - -- print("mqtt msg:", str) -- Print out the received topics and content 384 - end 385 - ) 386 - mq.m:on("offline", function (cause) -- Register for lost connection callbacks 387 - -- addr_setstring("@xxx", "cause"..(cause or " got nil")) 388 - end) 389 - mq.m:on("arrived", function() -- Registration for sending messages to callbacks 390 - print("msg arrived") 391 - end) 392 - else 393 - print("mqtt create failed:", err) -- Create object failed 394 - end 395 - else 396 - if mq.m:isconnected() then -- If online, post a message 397 - local phaseStatus ="unknow" 398 - if addr_getbit("@Standby")== 1 then 399 - phaseStatus = "Standby" 400 - elseif addr_getbit("@Pre-Freeze")==1 then 401 - phaseStatus= "Pre-Freeze" 402 - elseif addr_getbit("@Prepare")==1 then 403 - phaseStatus ="Prepare" 404 - elseif addr_getbit("@Primary Dry")==1 then 405 - phaseStatus = "Primary dry" 406 - elseif addr_getbit("@Secondary Dry")==1 then 407 - phaseStatus = "Secondary Dry" 408 - end 409 --- print(addr_getbit("@Primary Dry")) 507 + mq.m, err = mqtt.create("tcp://grouprobotinfo.com:1883", "ClienID") -- create connection 508 + if mq.m then 509 + mq.config = { 510 + username = "",-- ID 511 + password = "",-- password 512 + netway = 1, -- Ethernet connection, WIFI=1 513 + -- keepalive = 100, -- Optional, set the connection heartbeat interval for 100 seconds. 514 + -- cleansession = 0, -- Optional, keep session 515 + } 516 + mq.m:on("message", function(topic, msg) -- Register for receiving message callbacks 517 + local str = string.format("%s:%s", topic, msg) 518 + -- print("mqtt msg:", str) -- Print out the received topics and content 519 + end) 520 + mq.m:on("offline", function (cause) -- Register for lost connection callbacks 521 + -- addr_setstring("@xxx", "cause"..(cause or " got nil")) 522 + end) 523 + mq.m:on("arrived", function() -- Registration for sending messages to callbacks 524 + print("msg arrived") 525 + end) 526 + else 527 + print("mqtt create failed:", err) -- Create object failed 528 + end 529 + else 530 + if mq.m:isconnected() then -- If online, post a message 531 + local phaseStatus ="unknow" 532 + if addr_getbit("@Standby")== 1 then 533 + phaseStatus = "Standby" 534 + elseif addr_getbit("@Pre-Freeze")==1 then 535 + phaseStatus= "Pre-Freeze" 536 + elseif addr_getbit("@Prepare")==1 then 537 + phaseStatus ="Prepare" 538 + elseif addr_getbit("@Primary Dry")==1 then 539 + phaseStatus = "Primary dry" 540 + elseif addr_getbit("@Secondary Dry")==1 then 541 + phaseStatus = "Secondary Dry" 542 + end 543 + --print(addr_getbit("@Primary Dry")) 410 410 ------------------------------------------------------------------------------------------------------------------------- 411 - local activating ="unknow" 412 - if addr_getbit("@Compressor")==1 then 413 - activating = ",".."Compressor" 414 - end 415 - if addr_getbit("@Silicone Pump")==1 then 416 - activating = activating..",".."Silicone Pump" 417 - end 418 - if addr_getbit("@Vacuum Pump")==1 then 419 - activating = activating..",".."Vacuum Pump" 420 - end 421 - if addr_getbit("@Root Pump")==1 then 422 - activating = activating..",".."Root Pump" 423 - end 424 - if addr_getbit("@Heater")==1 then 425 - activating = activating..",".."Heater" 426 - end 427 - if addr_getbit("@Valve Silicone")==1 then 428 - activating = activating..",".."Valve Silicone" 429 - end 430 - if addr_getbit("@Valve Ice Condenser")==1 then 431 - activating = activating..",".."Valve Ice Condenser" 432 - end 433 - if addr_getbit("@Valve Vacuum Pump")==1 then 434 - activating = activating..",".."Valve Vacuum Pump" 435 - end 436 - local pr_activating =string.sub(activating,2) 437 - -- print(pr_activating) 545 + local activating ="unknow" 546 + if addr_getbit("@Compressor")==1 then 547 + activating = ",".."Compressor" 548 + end 549 + if addr_getbit("@Silicone Pump")==1 then 550 + activating = activating..",".."Silicone Pump" 551 + end 552 + if addr_getbit("@Vacuum Pump")==1 then 553 + activating = activating..",".."Vacuum Pump" 554 + end 555 + if addr_getbit("@Root Pump")==1 then 556 + activating = activating..",".."Root Pump" 557 + end 558 + if addr_getbit("@Heater")==1 then 559 + activating = activating..",".."Heater" 560 + end 561 + if addr_getbit("@Valve Silicone")==1 then 562 + activating = activating..",".."Valve Silicone" 563 + end 564 + if addr_getbit("@Valve Ice Condenser")==1 then 565 + activating = activating..",".."Valve Ice Condenser" 566 + end 567 + if addr_getbit("@Valve Vacuum Pump")==1 then 568 + activating = activating..",".."Valve Vacuum Pump" 569 + end 570 + local pr_activating =string.sub(activating,2) 571 + -- print(pr_activating) 572 + local status_text ="unknow" 573 + if addr_getbit("@Status Run")==1 then 574 + status_text = "RUNNING" 575 + else 576 + status_text = "STOP" 577 + end 578 +------------------------------------------------------------------------------------------------------------------------- 579 + local js = {type="status", 580 + mc_name ="FD300", 581 + status=status_text, 582 + elapsed_time={ 583 + hour=addr_getword("@Elapsed Time (Hour)"), 584 + min=addr_getword("@Elapsed Time (Minute)"), 585 + sec=addr_getword("@Elapsed Time (Second)") 586 + }, 587 + phase = phaseStatus, 588 + step = addr_getword("@Step"), 589 + activating_output = pr_activating, 590 + sv=addr_getshort("@SV Silicone")/10, 591 + pv=addr_getshort("@PV Silicone")/10, 592 + product1=addr_getshort("@Product 1")/10, 438 438 594 + product2=addr_getshort("@Product 2")/10, 595 + product3=addr_getshort("@Product 3")/10, 596 + product4=addr_getshort("@Product 4")/10, 597 + ice1=addr_getshort("@Ice condenser 1")/10, 598 + ice2=addr_getshort("@Ice condenser 2")/10, 599 + vacuum=addr_getfloat("@Vacuum") 600 + } 601 + local jsAlarm = { HPC = addr_getbit("@B_25395#W0.00"), 602 + ODPC = addr_getbit("@B_25395#W0.01"), 603 + MTPC=addr_getbit("@B_25395#W0.02"), 604 + HTT = addr_getbit("@B_25395#W1.03"), 605 + CPC = addr_getbit("@B_25395#W0.08"), 606 + CPSP =addr_getbit("@B_25395#W1.00"), 607 + CPVP =addr_getbit("@B_25395#W0.10"), 608 + CPRP =addr_getbit("@B_25395#W0.11"), 609 + HP =addr_getbit("@B_25395#W1.01"), 610 + PP= addr_getbit("@B_25395#W1.02"), 611 + PO=addr_getbit("@B_25395#W0.07"), 612 + FSE=addr_getbit("@B_25395#W2.04"), 613 + AVVSVV=addr_getbit("@B_25395#W1.12"), 614 + ICHT=addr_getbit("@B_25395#W3.06") 615 + } 616 + -- ("@B_25395#CIO1.02") 617 + mq.m:publish("mqtt-v-box-epsilon-fd300", json.encode(js) , 0, 0) 618 + mq.m:publish("mqtt-v-box-epsilon-alarm-fd300", json.encode(jsAlarm) , 0, 0) 619 + else 620 + local stat, err = mq.m:connect(mq.config) -- connection 621 + if stat == nil then --Determine whether to connect 622 + print("mqtt connect failed:", err) 623 + return -- Connection failed, return directly 624 + end 625 + mq.m:subscribe("mqtt-v-box-epsilon", 0)-- Subscribe to topics 439 439 440 - 441 - local status_text ="unknow" 442 - if addr_getbit("@Status Run")==1 then 443 - status_text = "RUNNING" 444 - else 445 - status_text = "STOP" 446 - end 447 -------------------------------------------------------------------------------------------------------------------------- 448 - 449 - local js = {type="status", 450 - mc_name ="FD300", 451 - status=status_text, 452 - elapsed_time={ 453 - hour=addr_getword("@Elapsed Time (Hour)"), 454 - min=addr_getword("@Elapsed Time (Minute)"), 455 - sec=addr_getword("@Elapsed Time (Second)") 456 - }, 457 - phase = phaseStatus, 458 - step = addr_getword("@Step"), 459 - activating_output = pr_activating, 460 - sv=addr_getshort("@SV Silicone")/10, 461 - pv=addr_getshort("@PV Silicone")/10, 462 - product1=addr_getshort("@Product 1")/10, 463 - 464 - product2=addr_getshort("@Product 2")/10, 465 - product3=addr_getshort("@Product 3")/10, 466 - product4=addr_getshort("@Product 4")/10, 467 - ice1=addr_getshort("@Ice condenser 1")/10, 468 - ice2=addr_getshort("@Ice condenser 2")/10, 469 - vacuum=addr_getfloat("@Vacuum") 470 - 471 - } 472 - local jsAlarm = { HPC = addr_getbit("@B_25395#W0.00"), 473 - ODPC = addr_getbit("@B_25395#W0.01"), 474 - MTPC=addr_getbit("@B_25395#W0.02"), 475 - HTT = addr_getbit("@B_25395#W1.03"), 476 - CPC = addr_getbit("@B_25395#W0.08"), 477 - CPSP =addr_getbit("@B_25395#W1.00"), 478 - CPVP =addr_getbit("@B_25395#W0.10"), 479 - CPRP =addr_getbit("@B_25395#W0.11"), 480 - HP =addr_getbit("@B_25395#W1.01"), 481 - PP= addr_getbit("@B_25395#W1.02"), 482 - PO=addr_getbit("@B_25395#W0.07"), 483 - FSE=addr_getbit("@B_25395#W2.04"), 484 - AVVSVV=addr_getbit("@B_25395#W1.12"), 485 - ICHT=addr_getbit("@B_25395#W3.06") 486 - 487 - } 488 - 489 - -- ("@B_25395#CIO1.02") 490 - mq.m:publish("mqtt-v-box-epsilon-fd300", json.encode(js) , 0, 0) 491 - mq.m:publish("mqtt-v-box-epsilon-alarm-fd300", json.encode(jsAlarm) , 0, 0) 492 - else 493 - local stat, err = mq.m:connect(mq.config) -- connection 494 - if stat == nil then --Determine whether to connect 495 - print("mqtt connect failed:", err) 496 - return -- Connection failed, return directly 497 - end 498 - mq.m:subscribe("mqtt-v-box-epsilon", 0)-- Subscribe to topics 499 - 500 - end 501 - -- mq.m:unsubscribe("stc/test") 502 - -- mq.m:disconnect() -- close matt 503 - -- mq.m:close() -- close clase 504 - end 627 + end 628 + -- mq.m:unsubscribe("stc/test") 629 + -- mq.m:disconnect() -- close matt 630 + -- mq.m:close() -- close clase 631 + end 505 505 end 506 506 {{/code}} 507 507