怎么用R语言控制WiFi触摸墙壁开关

2022-05-23 发布浏览：255 次

本文介绍了如何用 R 对接智能触摸墙壁复合出门开关的方法：可以通过接口实现触摸按键控制门禁/照明、手机远程遥控门禁/照明、HTTP接口远程控制通断、云平台远距离联网控制、门禁信号接收与控制、照明电源开关控制、门禁照明联动控制、单路照明或门禁控制、远程控制照明与门禁、定时开关照明设备、门禁与照明联动控制、远程打开关闭照明与门禁、设备状态监测与联动、客房场景化控制、物理按键控制照明门禁、远程开关状态查询、场景联动照明门禁控制、设备运行状态监控、远程参数配置管理、故障告警通知、延时通断控制、设备分组控制、多设备联动控制、自定义联动逻辑控制、线路状态反馈控制、本地按键与远程双控制、2 路独立线路控制。

智能触摸墙壁复合出门开关

更多...

适用场景

智能家居门禁照明控制、共享场所门禁照明管理、智能办公门禁照明控制、安防门禁场景、门店门禁照明改造、会议室门禁照明控制、舞蹈室门禁照明管理、设备机房门禁照明控制、弱电间门禁照明联动、线下服务场景门禁照明控制、无人值守门禁照明场景、共享棋牌室门禁照明联动、共享茶室门禁照明管理、共享自习室工位照明控制、共享台球室包间门禁控制、共享麻将室灯光管理、共享会议室门禁照明控制、共享舞蹈室场景联动、共享酒店公寓房态联动、共享工位门禁照明管理、共享联合办公场景控制、酒店客房智能改造、民宿房间智能控制、共享茶室灯光控制、共享自习室门禁联动、办公室照明门禁控制、店铺照明设备管理、智能公寓客房控制、共享棋牌室设备控制、无人值守空间管理、弱电间设备联动、智能化改造、智能家居照明门禁联动、出租屋照明控制、小型商铺照明管理、共享自习室照明门禁控制、共享台球室灯光控制、共享麻将馆门禁照明联动、无人值守门店照明控制、自助设备照明管理、共享健身房灯光控制、共享充电站照明管理、智慧教室照明控制、培训机构教室灯光管理、图书馆自习室照明控制、创客工坊设备照明管理、学校活动室照明控制、培训教室灯光管理、餐厅包厢照明控制、便利店照明管理、银行网点照明控制、医院病房照明管理、展会现场照明控制、活动现场灯光管理、景观亮化照明控制、广告灯箱照明管理、园区公共照明控制、写字楼办公室照明管理、商场店铺照明控制、社区公共照明管理、设备机房照明控制、实验室照明管理、办公设备照明联动中

支持命令

产品手册

版本	对应产品手册
左灯右门	《智能墙壁触摸复合开关[左灯右门]产品手册》
左门右灯	《智能墙壁触摸复合开关[左门右灯]产品手册》

HTTP接口控制以设备控制（向设备下发命令）为例

# First you need to prepare the following values
# 1. AppID (in your console development settings)
# 2. AppSecret (in your console development settings)
# 3. ts (timestamp of the current time, seconds)
# 4. YourSign = md5(md5(AppSecret)ts);(md5 is an encryption method, AppSecret is the AppSecret prepared above, ts is the timestamp prepared above, concatenate the string after the AppSecret after md5 encryption)
# In simple terms, the signature is md5(md5(your developer password)concatenate the above ts timestamp value); ts is the timestamp of the current timestamp; that is, to perform one MD5 on the developer password (AppSecret), then concatenate the timestamp, and then perform one MD5 on the entire concatenated string
# Core request address: api.thingboot.com/AppID/device/control/?sign=YourSign&&ts=ts;
# Request needs to pass two parameters device and order:
# device[string]: unique device ID, can pass multiple [separated by ,], can be viewed in the console, or pulled through the interface
# order[json string]: the command to be issued, for example:
# {"power":1}, usually to connect the circuit of the switch
# {"power3":0}, usually to close the third line of the switch or controller
# {"play:gbk:16":"hello, welcome to visit"}, let the voice speaker report the specified content
# The same type of product, the command is the same, different product types of commands, please view the product manual page of each product
# Note: you must replace the formal AppID and AppSecret with real-time timestamp calculation of the signature, the request must have device device ID and order command

#确保安装了必要的包：
#install.packages("httr")
#install.packages("digest")

library(httr)
library(digest)

# 配置参数
app_id <- "qtyVWcgeMq"  # 替换为实际的 AppID
app_secret <- "开发者密码"  # 替换为实际的 AppSecret
device <- "1878"  # 替换为实际的设备 ID
order <- '{"power1":1}'  # 替换为实际的命令

# 计算时间戳
ts <- as.numeric(Sys.time()) * 1000  # 转换为毫秒

# 计算 MD5 哈希值
md5_hash <- digest(app_secret, algo = "md5", serialize = FALSE)

# 计算 sign
sign_input <- paste0(md5_hash, ts)
sign <- digest(sign_input, algo = "md5", serialize = FALSE)

# 构造请求 URL
url <- sprintf("https://api.thingboot.com/%s/device/control/?sign=%s&ts=%d", app_id, sign, ts)

# 创建请求体
body <- list(
  device = device,
  order = order
)

# 发送请求
response <- POST(
  url,
  body = body,
  encode = "multipart",
  add_headers(
    `Accept` = "*/*",
    `Host` = "api.thingboot.com",
    `Connection` = "keep-alive"
  )
)

# 输出响应
if (http_status(response)$category == "Success") {
  print(content(response, "text"))
} else {
  print(http_status(response)$message)
}

说明：{AppID}为您的应用ID（由平台生成），免费注册登录后，可在控制台查看；sign和ts的取值，请参考文档。