单码登陆美易自绘的网络验证UI

用线程方式取代时钟, 通信不会卡UI
要在易语言的 系统配置 把判断死循环去掉
死循环 ＝ 真
.判断循环首 (死循环)
延时 (1000 × 10) ' 意思是10秒通信一次，用了计次一定要注意，通信延时过短，返回-10，
ret ＝ 心跳 (msg)
.如果真 (ret ＝ 0) ' 心跳状态码没有定义0，如果返回0说明json解析失败，整数型易语言默认0，json解析失败原因一般是网络问题
延时 (1000 × 10) ' 如果是网络问题，重试一下，延迟下再访问
ret ＝ 心跳 (msg) ' 再重连一次
.如果真结束
' --------------------------------------------------------------------
.如果真 (ret ＝ 0)
' 还是0的话，提示也好，退出也行，不处理也可以，你自己决定。
高级信息框 (取窗口句柄 (), “链接不上，可能网络问题！”, “”, 16, 0, 15000)
_窗口1_将被销毁 ()
.如果真结束
' --------------------------------------------------------------------
.如果真 (ret ≠ 1)
高级信息框 (取窗口句柄 (), msg, “”, 16, 0, 5000) ' 显示5秒，自动消失
_窗口1_将被销毁 () ' 这里处理自动退出，退不退你自己决定