自动远程登陆，断线重连
//自动连接远程//断线1分钟 重新连接
macro_command main()
short Error,server,start,temp_a,status
GetData(status, "Local HMI", LW, 10828, 1) //读取状态
GetData(Error, "Local HMI", LW, 10829, 1) //读取错误代码
GetData(start, "Local HMI", LW, 10820, 1) //开始连接服务器
GetData(server, "Local HMI", LW, 11296, 1) //服务器地址
GetData(temp_a, "Local HMI", LW, 80, 1) //断线重连
if status<>2 then
start=1
server=1
end if
if Error<>0 then
start=0
end if
if start==0 then
temp_a=temp_a+1
if temp_a>6 then
start=1
server=1
temp_a=0
end if
end if
SetData(server, "Local HMI", LW, 11296, 1)
SetData(start, "Local HMI", LW, 10820, 1)
SetData(temp_a, "Local HMI", LW, 80, 1)
end macro_command
页:
[1]