易語言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.斷開 ()