易语言websocket客户端纯源码(无模块)

下载地址：https://6yunpan.pipipan.com/fs/17009107-375104141

以下是部分代码，完整代码请自行去下载

.版本 2

.程序集 Main

.子程序 _启动子程序,整数型,请在本子程序中放置易模块初始化代码
.局部变量 WSAData,WSADATA

‘ 本源码来自易语言资源网
‘ (www.eyuyan.la)
.如果真 (WSAStartup (514,WSAData) ≠ 0)
    输出调试文本 (“WSA 初始化失败”)
    返回 (0)
.如果真结束
‘ 改自此帖开源  感谢原作者开源 https://bbs.125.la/forum.PHP?mod=viewthread&tid=14039123&highlight=websocket
‘ 有问题私信论坛

测试程序 ()
返回 (0)  ‘ 可以根据您的需要返回任意数值

.子程序 测试程序
.局部变量 封包,字节集,"0"
.局部变量 ws,WebSocket
.局部变量 i,整数型

.如果真 (ws.连接 (“ws://127.0.0.1:8080/”))
    ws.发送 (到字节集 (“I‘m coming”))
    .计次循环首 (ws.接收 (封包),i)
        .如果真 (封包 [i] ＝ 到字节集 (“心跳”))
            ws.发送 (到字节集 ("好巧 我的心也在跳")
        .如果真结束
        .如果真 (封包 [i] ＝ 到字节集 (“停止心跳”))
            跳出循环 ()
        .如果真结束
        Sleep (100)
    .计次循环尾 ()
    ws.断开 ()