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

.版本 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)
        .如果真 (封包  ＝ 到字节集 (“心跳”))
            ws.发送 (到字节集 ("好巧 我的心也在跳")
        .如果真结束
        .如果真 (封包  ＝ 到字节集 (“停止心跳”))
            跳出循环 ()
        .如果真结束
        Sleep (100)
    .计次循环尾 ()
    ws.断开 ()