求助 python转易语言的写法

zjkl1

import socket

def discover_devices():
    print("发现门禁设备")
    devices = {}
   
    print("创建设备套接字")
    sock = socket.socket(socket.AF_INET, socket.SOCK_DGRAM)
    sock.setsockopt(socket.SOL_SOCKET, socket.SO_BROADCAST, 1)
    sock.settimeout(5)
    sock.bind(('0.0.0.0', 7000))
   
    print("发送广播请求")
    sender = socket.socket(socket.AF_INET, socket.SOCK_DGRAM)
    sender.setsockopt(socket.SOL_SOCKET, socket.SO_BROADCAST, 1)
    sender.sendto(b"discover acs all", ('255.255.255.255', 6000))
    sender.close()
   
    print("接收设备回应")
    while True:
        try:
            data, addr = sock.recvfrom(1024)
            if b'alive' in data:
                ip = addr[0]
                ident = data.split(b'alive ')[1].decode().strip()
                if ip not in devices:
                    devices[ip] = ident
        except socket.timeout:
            break
   
    sock.close()
    return devices

# 执行设备发现并显示结果
devices = discover_devices()
print("设备发现结果:")
for ip, ident in devices.items():
    print(f"IP地址: {ip}, 设备标识: {ident}")



这段py代码转易语言怎么写呢

xiaoyu1986

发现门禁设备.e (9.39 KB, 下载次数: 7)

2025-7-9 02:19 上传

点击文件名下载附件

真冬

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
discover_devices	devices

变量名	类 型	静态	数组	备 注
sock	整数型
sender	整数型
readfds	fd_set
addr	文本型
data	文本型
devices	devices
alive	文本型		0

标准输出 (, “发现门禁设备”, #换行符 )
' devices ＝ {  }
标准输出 (, “创建设备套接字”, #换行符 )
sock ＝ socket_socket ( #AF_INET, #SOCK_DGRAM )
setsockopt (sock, #SOL_SOCKET, #SO_BROADCAST, 字符 (1), 4)
sock_settimeout (5)
sock_bind (sock, “0.0.0.0”, 7000)
标准输出 (, “发送广播请求”, #换行符 )
sender ＝ socket_socket ( #AF_INET, #SOCK_DGRAM )
setsockopt (sender, #SOL_SOCKET, #SO_BROADCAST, 字符 (1), 4)
sender_sendto (sender, “discover acs all”, “255.255.255.255”, 6000)
closesocket (sender)
标准输出 (, “接收设备回应”, #换行符 )
判断循环首 (真)
如果真 (sock_settimeout (5, sock, readfds) ＝ 0)
跳出循环 ()
addr ＝ sock_recvfrom (sock, 1024, data)
如果真 (寻找文本 (data, “alive”, , 假) ≠ -1)
加入成员 (devices.ip, addr)
alive ＝ 分割文本 (data, “alive”, )
加入成员 (devices.ident, alive [2])

判断循环尾 ()
closesocket (sock)
WSACleanup ()
返回 (devices)

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
devices	devices
i1	整数型

' 执行设备发现并显示结果
devices ＝ discover_devices ()
标准输出 (, “设备发现结果:”, #换行符 )
变量循环首 (1, 取数组成员数 (devices.ident), 1, i1)
标准输出 (, “IP地址: ”, devices.ip [i1], “, 设备标识: ”, devices.ident [i1], #换行符 )
变量循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
socket_socket	整数型
参数名	类 型	参考	可空	数组	备 注
参数1	整数型
参数2	整数型

WSAStartup (合并短整数 (2, 2), 申请内存 (4096, 真))
返回 (socket (参数1, 参数2, #IPPROTO_UDP ))

子程序名	返回值类型	公开	备 注
sock_bind
参数名	类 型	参考	可空	数组	备 注
参数1	整数型
参数2	文本型
RECEIVER_PORT	短整数型

变量名	类 型	静态	数组	备 注
a	sockaddr_in

a.sin_family ＝ #AF_INET
a.sin_addr ＝ htonl (参数2)
a.sin_port ＝ htons (RECEIVER_PORT)
bind (参数1, a, 16)

子程序名	返回值类型	公开	备 注
sock_settimeout	整数型
参数名	类 型	参考	可空	数组	备 注
参数
sock
readfds	fd_set

变量名	类 型	静态	数组	备 注
timeout	timeval
i1	整数型
a	整数型
b	整数型

' readfds.fd_count ＝ 0
. ' 计次循环首 (取数组成员数 (readfds.fd_array), i1)
' readfds.fd_array [i1] ＝ 0
. ' 计次循环尾 ()
' ' FD_SET (sock, readfds)
' timeout.tv_sec ＝ 参数
' timeout.tv_usec ＝ 0
' 返回 (select (0, readfds, 0, 0, timeout))
判断 (是否为空 (sock))
a ＝ 参数 × 1000 ＋ 取启动时间 ()
b ＝ a － 取启动时间 ()
如果真 (b ＜ 0)
b ＝ 0
返回 (b)
返回 (a)

子程序名	返回值类型	公开	备 注
sender_sendto
参数名	类 型	参考	可空	数组	备 注
参数1	整数型
参数2	文本型
参数3	文本型
参数4	短整数型

变量名	类 型	静态	数组	备 注
to	sockaddr_in

to.sin_family ＝ #AF_INET
to.sin_addr ＝ inet_addr (参数3)
to.sin_port ＝ htons (参数4)
sendto (参数1, 到字节集 (参数2), 取文本长度 (参数2), 0, to, 16)

子程序名	返回值类型	公开	备 注
sock_recvfrom	文本型
参数名	类 型	参考	可空	数组	备 注
参数
参数2	整数型
data	文本型

变量名	类 型	静态	数组	备 注
sender_addr	sockaddr_in

data ＝ 取空白文本 (参数2)
recvfrom (参数, data, 参数2, 0, sender_addr, 16)
返回 (inet_ntoa (sender_addr.sin_addr))

数据类型名	公开	备 注
sockaddr_in
成员名	类 型	传址	数组	备 注
sin_family	短整数型
sin_port	短整数型
sin_addr	整数型
sin_zero	字节型		8

数据类型名	公开	备 注
fd_set
成员名	类 型	传址	数组	备 注
fd_count	整数型			how many are SET?
fd_array	整数型		64	an array of SOCKETs

数据类型名	公开	备 注
timeval
成员名	类 型	传址	数组	备 注
tv_sec
tv_usec

数据类型名	公开	备 注
devices
成员名	类 型	传址	数组	备 注
ip	文本型		1
ident	文本型		1

DLL命令名	返回值类型	公开	备 注
socket	整数型		Socket又称套接字，应用程序通常通过套接字向网络发出请求或者应答网络请求。
DLL库文件名:
ws2_32.dll
在DLL库中对应命令名:
socket
参数名	类 型	传址	数组	备 注
af	整数型
type	整数型			SOCK_STREAM or SOCK_DGRAM
protocol	整数型

DLL命令名	返回值类型	公开	备 注
setsockopt	整数型
DLL库文件名:
ws2_32
在DLL库中对应命令名:
setsockopt
参数名	类 型	传址	数组	备 注
s	整数型			0
level	整数型			0
optname	整数型			0
a1	文本型			0
optlen	整数型			0

DLL命令名	返回值类型	公开	备 注
WSAStartup	整数型
DLL库文件名:
ws2_32.dll
在DLL库中对应命令名:
WSAStartup
参数名	类 型	传址	数组	备 注
wVersionRequested	整数型
lpWSAData	整数型

DLL命令名	返回值类型	公开	备 注
bind	整数型
DLL库文件名:
ws2_32.dll
在DLL库中对应命令名:
bind
参数名	类 型	传址	数组	备 注
s	整数型			0
a	sockaddr_in			0
namelen	整数型			0

DLL命令名	返回值类型	公开	备 注
htonl	整数型		将long从主机转换为网络字节序（big-endian）
DLL库文件名:
ws2_32.dll
在DLL库中对应命令名:
htonl
参数名	类 型	传址	数组	备 注
hostlong	文本型

DLL命令名	返回值类型	公开	备 注
htons	短整数型		将short从主机转换为网络字节序（big-endian）
DLL库文件名:
ws2_32.dll
在DLL库中对应命令名:
htons
参数名	类 型	传址	数组	备 注
hostshort	短整数型

DLL命令名	返回值类型	公开	备 注
select	整数型
DLL库文件名:
ws2_32
在DLL库中对应命令名:
select
参数名	类 型	传址	数组	备 注
nfds	整数型			0
readfds	fd_set			0
writefds	整数型			0
exceptfds	整数型			0
a1	timeval			0

DLL命令名	返回值类型	公开	备 注
sendto	整数型
DLL库文件名:
ws2_32.dll
在DLL库中对应命令名:
sendto
参数名	类 型	传址	数组	备 注
s	整数型
buf	字节集
len	整数型
flags	整数型
to	sockaddr_in
tolen	整数型

DLL命令名	返回值类型	公开	备 注
inet_addr	整数型		转换IPv4点分十进制格式到IN_ADDR结构
DLL库文件名:
ws2_32.dll
在DLL库中对应命令名:
inet_addr
参数名	类 型	传址	数组	备 注
cp	文本型

DLL命令名	返回值类型	公开	备 注
closesocket	整数型
DLL库文件名:
ws2_32.dll
在DLL库中对应命令名:
closesocket
参数名	类 型	传址	数组	备 注
s	整数型			0

DLL命令名	返回值类型	公开	备 注
recvfrom	整数型
DLL库文件名:
ws2_32
在DLL库中对应命令名:
recvfrom
参数名	类 型	传址	数组	备 注
s	整数型
buf	文本型
len	整数型
flags	整数型
from	sockaddr_in
fromlen	整数型

DLL命令名	返回值类型	公开	备 注
WSACleanup	整数型
DLL库文件名:
ws2_32
在DLL库中对应命令名:
WSACleanup
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
inet_ntoa	文本型		转换IPv4网络地址到点分十进制格式的ASCII字符串
DLL库文件名:
ws2_32.dll
在DLL库中对应命令名:
inet_ntoa
参数名	类 型	传址	数组	备 注
in	整数型

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 discover_devices, devices<br /> .局部变量 sock, 整数型<br /> .局部变量 sender, 整数型<br /> .局部变量 readfds, fd_set<br /> .局部变量 addr, 文本型<br /> .局部变量 data, 文本型<br /> .局部变量 devices, devices<br /> .局部变量 alive, 文本型, , "0"<br /> <br /> 标准输出 (, “发现门禁设备”, #换行符)<br /> ' devices ＝ {  }<br /> <br /> 标准输出 (, “创建设备套接字”, #换行符)<br /> sock ＝ socket_socket (#AF_INET, #SOCK_DGRAM)<br /> setsockopt (sock, #SOL_SOCKET, #SO_BROADCAST, 字符 (1), 4)<br /> sock_settimeout (5)<br /> sock_bind (sock, “0.0.0.0”, 7000)<br /> <br /> 标准输出 (, “发送广播请求”, #换行符)<br /> sender ＝ socket_socket (#AF_INET, #SOCK_DGRAM)<br /> setsockopt (sender, #SOL_SOCKET, #SO_BROADCAST, 字符 (1), 4)<br /> sender_sendto (sender, “discover acs all”, “255.255.255.255”, 6000)<br /> closesocket (sender)<br /> <br /> 标准输出 (, “接收设备回应”, #换行符)<br /> .判断循环首 (真)<br />     .如果真 (sock_settimeout (5, sock, readfds) ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br />     addr ＝ sock_recvfrom (sock, 1024, data)<br />     .如果真 (寻找文本 (data, “alive”, , 假) ≠ -1)<br />         加入成员 (devices.ip, addr)<br />         alive ＝ 分割文本 (data, “alive”, )<br />         加入成员 (devices.ident, alive [2])<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> closesocket (sock)<br /> WSACleanup ()<br /> 返回 (devices)<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 devices, devices<br /> .局部变量 i1, 整数型<br /> <br /> ' 执行设备发现并显示结果<br /> devices ＝ discover_devices ()<br /> 标准输出 (, “设备发现结果:”, #换行符)<br /> .变量循环首 (1, 取数组成员数 (devices.ident), 1, i1)<br />     标准输出 (, “IP地址: ”, devices.ip [i1], “, 设备标识: ”, devices.ident [i1], #换行符)<br /> .变量循环尾 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 socket_socket, 整数型<br /> .参数 参数1, 整数型<br /> .参数 参数2, 整数型<br /> <br /> WSAStartup (合并短整数 (2, 2), 申请内存 (4096, 真))<br /> 返回 (socket (参数1, 参数2, #IPPROTO_UDP))<br /> <br /> .子程序 sock_bind<br /> .参数 参数1, 整数型<br /> .参数 参数2, 文本型<br /> .参数 RECEIVER_PORT, 短整数型<br /> .局部变量 a, sockaddr_in<br /> <br /> a.sin_family ＝ #AF_INET<br /> a.sin_addr ＝ htonl (参数2)<br /> a.sin_port ＝ htons (RECEIVER_PORT)<br /> bind (参数1, a, 16)<br /> <br /> <br /> .子程序 sock_settimeout, 整数型<br /> .参数 参数<br /> .参数 sock, , 可空<br /> .参数 readfds, fd_set, 参考 可空<br /> .局部变量 timeout, timeval<br /> .局部变量 i1, 整数型<br /> .局部变量 a, 整数型, 静态<br /> .局部变量 b, 整数型<br /> <br /> ' readfds.fd_count ＝ 0<br /> .' 计次循环首 (取数组成员数 (readfds.fd_array), i1)<br />     ' readfds.fd_array [i1] ＝ 0<br /> .' 计次循环尾 ()<br /> ' ' FD_SET (sock, readfds)<br /> ' timeout.tv_sec ＝ 参数<br /> ' timeout.tv_usec ＝ 0<br /> ' 返回 (select (0, readfds, 0, 0, timeout))<br /> .判断开始 (是否为空 (sock))<br />     a ＝ 参数 × 1000 ＋ 取启动时间 ()<br /> .默认<br />     b ＝ a － 取启动时间 ()<br />     .如果真 (b ＜ 0)<br />         b ＝ 0<br />     .如果真结束<br />     返回 (b)<br /> .判断结束<br /> 返回 (a)<br /> <br /> .子程序 sender_sendto<br /> .参数 参数1, 整数型<br /> .参数 参数2, 文本型<br /> .参数 参数3, 文本型<br /> .参数 参数4, 短整数型<br /> .局部变量 to, sockaddr_in<br /> <br /> to.sin_family ＝ #AF_INET<br /> to.sin_addr ＝ inet_addr (参数3)<br /> to.sin_port ＝ htons (参数4)<br /> sendto (参数1, 到字节集 (参数2), 取文本长度 (参数2), 0, to, 16)<br /> <br /> .子程序 sock_recvfrom, 文本型<br /> .参数 参数<br /> .参数 参数2, 整数型<br /> .参数 data, 文本型<br /> .局部变量 sender_addr, sockaddr_in<br /> <br /> data ＝ 取空白文本 (参数2)<br /> recvfrom (参数, data, 参数2, 0, sender_addr, 16)<br /> 返回 (inet_ntoa (sender_addr.sin_addr))<br /> <br /> <br /> .版本 2<br /> <br /> .数据类型 sockaddr_in<br />     .成员 sin_family, 短整数型<br />     .成员 sin_port, 短整数型<br />     .成员 sin_addr, 整数型<br />     .成员 sin_zero, 字节型, , "8"<br /> <br /> .数据类型 fd_set<br />     .成员 fd_count, 整数型, , , how many are SET?<br />     .成员 fd_array, 整数型, , "64", an array of SOCKETs<br /> <br /> .数据类型 timeval<br />     .成员 tv_sec<br />     .成员 tv_usec<br /> <br /> .数据类型 devices<br />     .成员 ip, 文本型, , "1"<br />     .成员 ident, 文本型, , "1"<br /> <br /> <br /> .版本 2<br /> <br /> .DLL命令 socket, 整数型, "ws2_32.dll", "socket", , Socket又称套接字，应用程序通常通过套接字向网络发出请求或者应答网络请求。<br />     .参数 af, 整数型<br />     .参数 type, 整数型, , SOCK_STREAM or SOCK_DGRAM<br />     .参数 protocol, 整数型<br /> <br /> .DLL命令 setsockopt, 整数型, "ws2_32", "setsockopt"<br />     .参数 s, 整数型, , 0<br />     .参数 level, 整数型, , 0<br />     .参数 optname, 整数型, , 0<br />     .参数 a1, 文本型, , 0<br />     .参数 optlen, 整数型, , 0<br /> <br /> .DLL命令 WSAStartup, 整数型, "ws2_32.dll", "WSAStartup"<br />     .参数 wVersionRequested, 整数型<br />     .参数 lpWSAData, 整数型<br /> <br /> .DLL命令 bind, 整数型, "ws2_32.dll", "bind"<br />     .参数 s, 整数型, , 0<br />     .参数 a, sockaddr_in, , 0<br />     .参数 namelen, 整数型, , 0<br /> <br /> .DLL命令 htonl, 整数型, "ws2_32.dll", "htonl", , 将long从主机转换为网络字节序（big-endian）<br />     .参数 hostlong, 文本型<br /> <br /> .DLL命令 htons, 短整数型, "ws2_32.dll", "htons", , 将short从主机转换为网络字节序（big-endian）<br />     .参数 hostshort, 短整数型<br /> <br /> .DLL命令 select, 整数型, "ws2_32", "select"<br />     .参数 nfds, 整数型, , 0<br />     .参数 readfds, fd_set, 传址, 0<br />     .参数 writefds, 整数型, , 0<br />     .参数 exceptfds, 整数型, , 0<br />     .参数 a1, timeval, 传址, 0<br /> <br /> .DLL命令 sendto, 整数型, "ws2_32.dll", "sendto"<br />     .参数 s, 整数型<br />     .参数 buf, 字节集, 传址<br />     .参数 len, 整数型<br />     .参数 flags, 整数型<br />     .参数 to, sockaddr_in, 传址<br />     .参数 tolen, 整数型<br /> <br /> .DLL命令 inet_addr, 整数型, "ws2_32.dll", "inet_addr", , 转换IPv4点分十进制格式到IN_ADDR结构<br />     .参数 cp, 文本型, 传址<br /> <br /> .DLL命令 closesocket, 整数型, "ws2_32.dll", "closesocket"<br />     .参数 s, 整数型, , 0<br /> <br /> .DLL命令 recvfrom, 整数型, "ws2_32", "recvfrom"<br />     .参数 s, 整数型<br />     .参数 buf, 文本型, 传址<br />     .参数 len, 整数型<br />     .参数 flags, 整数型<br />     .参数 from, sockaddr_in, 传址<br />     .参数 fromlen, 整数型, 传址<br /> <br /> .DLL命令 WSACleanup, 整数型, "ws2_32", "WSACleanup"<br /> <br /> .DLL命令 inet_ntoa, 文本型, "ws2_32.dll", "inet_ntoa", , 转换IPv4网络地址到点分十进制格式的ASCII字符串<br />     .参数 in, 整数型

发现门禁-随意写的不知道对不对.e (10.99 KB, 下载次数: 0)

2025-7-9 02:48 上传

点击文件名下载附件


随意写的也不知道对不对