為編程愛好者分享易語言教程源碼的資源網
挂機,挂機器人服務器88一年 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 每日必買商品
注冊機|遊戲腳本|透視輔助|視頻教程 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 挂機,挂機器人服務器88一年
易語言|按鍵精靈|app逆向|微信hook 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 A全站文字廣告,誠邀與您合作

網站首頁 易語言相關 網絡相關源碼 正文

易語言Winsock實現網絡聊天室源碼

三葉資源網 2013-05-17 網絡相關源碼 442 ℃ 1 評論

程序結合易語言擴展界面支持庫和網絡通訊支持庫,實現網絡聊天室功能。

@易語言論壇

.版本 2
.支持庫 spec

.子程序 OnClientMessage
.參數 wparam, 整數型
.參數 lparam, 整數型
.局部變量 len, 整數型
.局部變量 s, 字節集

.判斷開始 (lparam = #FD_CONNECT)
    len = GetLastError ()
    .判斷開始 (len ≠ 0)
        信息框 (“Error in Connecting”, 0, )
    .默認
        m_bInit = 真
        m_bClient = 真
        m_sShowText.加入文本 (“Having connected to server” + #換行符)
        ' 三葉資源網(juhua445643.cn)
    .判斷結束
    返回 ()
.判斷 (lparam = #FD_READ)
    s = 取空白字節集 (1024)
    len = recv (m_hSocket, 取變量數據地址 (s), 1024, 0)
    m_sShowText.加入文本 (到文本 (s) + #換行符)
    返回 ()
.判斷 (lparam = #FD_WRITE)
    返回 ()
.判斷 (lparam = #FD_CLOSE)
    返回 ()


文件下載

Tags:

來源:三葉資源網,歡迎分享,公衆号:iisanye,(三葉資源網④群:72857039

已有1位網友發表了看法:

歡迎 發表評論:

百度站内搜索
關注微信公衆号
三葉資源網④群:三葉資源網③群

網站分類
随機tag
NoobyProtectSEkgtemp轉MP3小号桃源挖礦圖片文字識别資源管理器數據分頁類socks5樂玩插件勒索病毒黑貓論壇無限加好友Java支持庫多線程百度識圖源碼取色器apk查殼工具藍奏網盤比特币酷狗繁星PC協議枚舉文件cnzzt統計
最新評論